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Chapter One 


How the BASIC Interpreter works 
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How the BASIC Interpreter Works 


The BASIC interpreter is one of the most important parts of a computer. 
The interpreter is responsible for the following tasks, among others: 


1) Allows the user to enter data through the keyboard either as a 
DIRECT mode command or stored as a BASIC program line. 


2) Ifthe data entered is a DIRECT mode command statement, the 
BASIC interpreter calls the proper routines to tokenize the 
command statement and execute the command statement. 


3) If the data entered is a BASIC program line, the BASIC 
interpreter calls the routines necessary to tokenize the program 
line and store it in memory. 


4) If the program stored in memory is to be RUN, the BASIC 
interpreter calls the necessary routines to execute the individual 
command statements in the BASIC program. 


Now that we generally understand what the BASIC interpreter is supposed 
to do, let's take a closer look at how it works. 


Upon powerup or reset, the 8502 microprocessor in the C-128 starts 
executing the RESET routine stored in locations $FFFC and $FFFD. This 
address 1s called the RESET Vector. It normally holds the address of the 
RESET routine at $FF3D. However, like any other vector, the address 
stored here can be changed to point to any other address that the user 
wishes. In this case, it applies only to the reset button. 


The RESET routine takes care of initializing the C-128 and finishes by 
calling the routine that displays the startup message to the screen. Once this 
has been done, control is turned over to the BASIC interpreter loop. 


Let's mention another routine before we continue. It's the IRQ (Interrupt 
ReQuest) routine. Its address is stored in the IRQ Vector at locations $FFFE 
and $FFFF. The address that is normally stored here when the computer is 
initialized is $FF17, which eventually jumps through an indirect vector 
located at $0314. This vector can point to several things, such as the tape 
I/O routines, but normally this vector points to $FA65—the normal entry 
point for the Interrupt ReQuest (IRQ) routine. 
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Every 1/60th of a second, the IRQ routine scans the keyboard to see if a key 
has been pressed. If a key is pressed, the ASCII value which corresponds 
to that key is stored in the keyboard buffer to await removal by BASIC. 


Once the key value has been stored by the IRQ routine in the buffer, the 
BASIC interpreter can later retrieve the ASCII value and store it into the 
INPUT buffer. The process continues until the ASCII value for the 
<RETURN3> key (or <SHIFT><RETURN3>) 1s detected. 


When the value for the <RETURN> key is detected, the BASIC interpreter 
checks to see if the first character in the statement is a number. If it's a 
number, the BASIC interpreter calls the necessary routines to tokenize and 
store the statement in memory as a BASIC program line. However, if the 
first character is not a number, then the BASIC interpreter calls the 
necessary routines to tokenize the statement and then execute it as a 
DIRECT mode statement. 


For instance, if you type the statement PRINT without a preceding line 
number and then press the <RETURN> key, the statement is immediately 
tokenized and executed. This will PRINT a blank line to the screen. 
However, if you type the same PRINT statement preceded by a number and 
press the <RETURN> key, the statement is tokenized and stored in memory 
as a BASIC program line. 


When the BASIC RUN command is used to execute the BASIC program 
stored in memory, the BASIC interpreter is responsible for calling the 
different routines that search for the command tokens and execute the 
commands that are specified. 


The BASIC interpreter must keep track of many values and addresses in 
order to RUN a program correctly. It uses what is known as a stack to keep 
track of the various parameters and addresses. This can be thought of as a 
stack of papers piled on top of each other, each sheet containing a single 
value. Because the stack is such an important concept in the BASIC 
interpreter's operation, we'll go into much greater detail on the stack's 
operation in the next section. 
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1.1 The Pseudo Stack in the C-128 


The term stack is used to describe an area of memory set aside as a work 
area for storing the parameters necessary for the operation of a routine. In 
the C-128, there are two such stacks: the processor stack, located at $0100 - 
$01FF, and the pseudo stack, located at $0800 - $O09FF. 


The processor stack is used by the 8502 when executing machine language 
instructions such as PHA, which pushes (saves) the value in the accumulator 
onto the processor stack, and PLA, which pulls (retrieves) the topmost 
value from the stack and places it into the accumulator. Each time an 
operation is performed using the stack, an internal register in the 8502 called 
the Stack Pointer is automatically incremented or decremented so that it 
points to the next available stack location to be used. For example, when a 
PHA is executed, the stack pointer is decremented. When a PLA is executed, 
the stack pointer is incremented. If the stack pointer should get too full 
when the processor stack is used, then a 'FORMULA TOO COMPLEX'! 
error is displayed. 


The second stack is the pseudo stack, which is used by the BASIC routines 
GOSUB, FOR/NEXT, and DO/LOOP. Each of these routines stores a 
different set of parameters that it needs to accomplish its respective task. 
The stack pointer for the pseudo stack is located in memory at $7D and $7E. 


However, unlike the processor's stack pointer, the pseudo stack pointer 1s 
not automatically updated when information is stored or retrieved from it. 
The individual routines that use the pseudo stack are responsible for 
updating the stack pointer. 


For example, if a routine needs to store a parameter on the pseudo stack, it 
will store the value to the pseudo stack and then decrement the pseudo stack 
pointer to point to the next available memory location on the stack. If a 
routine needs to get a parameter from the pseudo stack, the pseudo stack 
pointer is incremented and the value that it points to is retrieved. If the 
pseudo stack pointer should get too full when the processor stack is used, 
then an 'OUT OF MEMORY' or 'FORMULA TOO COMPLEX' error 1s 
displayed, depending on when the stack overflow occurred. 


Now let's discuss how the GOSUB/RETURN, FOR/NEXT, and DO/LOOP 
command routines use the pseudo stack to accomplish their individual jobs. 
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The machine language routines for these commands can be found in the 
BASIC ROMs at the following locations: 


Routine Location 

GOSUB/RETURN $59CF and $5262 
FOR/NEXT $4DF9 and $57F4 
DO/LOOP $5FEO and $608A 


1.1.1 How GOSUB/RETURN Uses the Pseudo Stack 


The GOSUB/RETURN command combination is used when you want to 
perform a subroutine that is identified by another line number in a BASIC 
program, and then return to your original line number in the same program. 
Here is an example of the GOSUB/RETURN command combination: 


10 PRINT “HELLO" 


20 GOSUB 50 

30 PRINT "EVERYBODY" 
40 END 

50 PRINT "THERE" 

60 RETURN 


When the program is running and the BASIC interpreter comes across the 
token for GOSUB, it will call the GOSUB routine at $59CF. 


The GOSUB routine at $59CF stores five bytes of information on the pseudo 
stack that are to be used by the RETURN command routine at $5262. These 
five bytes of information are stored in the following order, starting at the 
memory location pointed to by the Top Of Stack pointer (TOS) and working 
downward towards the bottom of the stack at $0800: 
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$0800 


FREE STACK SPACE 


BYTE 


$04 


$03 


$02 


$01 


$00 





TOS = Top Of Stack pointer (Pseudo stack pointer) 


Note: The address that is stored in Bytes $00 and $01 points 


to the first byte after the token for the GOSUB 
command. 


After the information has been stored on the stack, the program continues 
execution at the line number specified after the GOSUB command, and 
continues until the token for the RETURN command ($8E) is encountered. 


When a RETURN command is encountered, the five bytes of information 
that were stored on the pseudo stack by the GOSUB routine are used by the 
RETURN routine. This routine searches for the first occurrence of the 
GOSUB token and then retrieves the information that was stored there , but 
in the reverse order. This information is then used to return the program 
execution to the place where the GOSUB command was used to continue the 
program at the next statement or line number. 
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1.1.22 How DO/LOOP uses the Pseudo Stack 


The DO/LOOP command combination is used when you want to execute a 
certain area of the BASIC program over and over. An example of the 
DO/LOOP command follows: 


10 DO 
20 PRINT "HELLO THERE EVERYBODY" 
30 LOOP 


When the program is running and the BASIC interpreter comes across the 
token for DO, it calls the DO routine at $5FEO. The DO routine stores five 
bytes of information on the pseudo stack that are to be used by the LOOP 
command routine at $608A. 


These five bytes of information are stored on the pseudo stack starting at the 


memory location pointed to by the Top Of Stack pointer (TOS), and 
working downward towards the bottom of the stack at $0800: 


$0800 







FREE STACK SPACE 


Token value for the DO command (SEB) 
LSB of the HEX value for the line number to LOOP to 


MSB of the HEX value for the line number to LOOP to 
LSB of the address of the DO statement 


MSB of the address of the DO statement 


TOS = Top Of Stack pointer (Pseudo stack pointer) 


BYTE 





$04 


$03 






$02 





$01 





$00 





TOS 


Note: The address that is stored in Bytes $00 and $01 points 
to the first byte after the token for the DO command. 
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After the information has been stored on the stack, the program continues 


executing with the next line number until the token for the LOOP command 
(SEC) is encountered. 


When a LOOP command is encountered, the five bytes of information that 
were stored on the pseudo stack by the DO routine at $5FEO are used by the 
LOOP routine at $608A. This routine searches for the first occurrence of the 
DO token ($EB) and then retrieves the information that was stored there, but 
in the reverse order. This information is then used to loop the program 
execution to the place where the DO command is located. 


1.1.33 How FOR/NEXT uses the Pseudo Stack 


The FOR/NEXT command combination is used when you want to execute a 
certain area of the BASIC program a specific number of times. This 
command combination can also be used as a delay loop. An example of 
FOR/NEXT: 


10 FOR X=1 TO 10 
20 PRINT "HELLO THERE EVERYBODY" 
30 NEXT 


When the program is running and the BASIC interpreter comes across the 
token for FOR, it will call the FOR routine at $5DF9. The FOR routine stores 
eighteen bytes of information on the pseudo stack. 


These eighteen bytes of information are stored on the pseudo stack in the 
following order starting at the memory location that 1s pointed to by the Top 
Of Stack pointer (TOS) and working downward towards the bottom of the 
stack at $0800: 
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$0800 
FREE STACK SPACE 
BYTE 
$11 Token value for the FOR command ($81) 
$10 LSB of the address of the variable name's descriptor 
SOF MSB of the address of the variable name's descriptor 
SOE EXPonent of the floating point STEP value 
$0D Ml of the floating point STEP value 
: TOS 


TOS =Top Of Stack pointer (Pseudo stack pointer) 
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After the information has been stored on the stack, the program continues 


executing with the next line number until the token for the NEXT command 
($82) is encountered. 


When a NEXT command is encountered, the eighteen bytes of information 
that were stored on the pseudo stack by the FOR routine are used by the 
NEXT routine. This routine searches for the first occurrence of the FOR 
token ($81) and then retrieves the information that was stored there, but in 
the reverse order. This information is then used to determine whether the 
FOR/NEXT loop is finished or whether it needs to be executed again. 
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1.2 Program Storage in the C-128 


The format of a program that has been stored in C-128 memory 1s very 
similar to the format stored by the other home computers that Commodore 
produces. However, the C-128 does tokenize some of the BASIC 
commands and functions differently. 


In the C-128, the added commands and functions make it necessary to use 
dual token commands and functions. Dual token commands and functions 
consist of a two byte token, with the first byte value being either a $CE or 
$FE. An example of a dual token command is the command PLAY. This 
command when tokenized and stored in memory consists of the two bytes 
$FE and $04. This is indeed different than a single token command like 
PRINT, which is tokenized as a one byte value of $99 (See Appendix B). 


The start of BASIC text usually begins at location $1C01 in RAM bank 0. 
This is the starting address that will be used for the examples discussed in 
this text. 


For the following discussion, it is easier to explain the storage of a BASIC 
program if an example program is used. Consequently, turn your computer 
on and type in the following short BASIC program: 


10 PRINT"HELLO" 
20 END 


After you have entered the program, enter the MONITOR and type 
M 01C00 01C17. This displays a memory dump of the area of memory in 
RAM bank 0 where the BASIC program was stored. Your screen will look 
like this: 


00 01 02 03 04 05 06 07 08 O09 OA OB OC OD OE OF 


>01C00: 00 OE 1C OA 00 99 22 48 45 4c 4C 4F 22 00 14 1C 
>01C10: 14 00 80 00 00 00 -- -- -- -- -- -- -=- -- -- -- 


The first thing that can be found stored at $1C00 is the single zero byte 
which indicates the end of a BASIC line. This memory location must 
always be set to zero when storing a BASIC program, or else a 'SYNTAX' 
error is issued when you try to RUN the program. 
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Next, stored in locations $1C01 and $1C02 are the LSB (Least Significant 
Bit) and MSB (Most Significant Bit) , respectively, of the line link address 
that points to the line link of the next program line. In our example, 
locations $1C01 and $1C02 point to location $1COE. 


Following these two bytes at $1C03 and $1C04 are the LSB and MSB 
value, respectively, of the program line number entered with the BASIC 
program line. In our example, the line number value is $000A or 10. 


Following the program line number is the tokenized BASIC program line 
that represents the original BASIC program line. Each keyword is converted 
to a one or two byte token and then stored in memory. However, the text 
that is to be printed, which was enclosed in quotes when the program line 
was typed in, is only converted to its HEX equivalent and stored in 

memory. 7 


The first program line 1s represented by the following partial memory dump: 


00 01 02 03 04 05 06 07 08 O09 OA OB OC OD 


>1C00: 00 OF 1C OA 00 99 22 48 45 4C 4C 4F 22 00 


The byte following the MSB of the program line number at location $1C05 
is the tokenized value for the command PRINT ($99). The seven bytes that 
follow the token for PRINT from location $1C06 to $1COC are the ASCII 
values for the quotes and letters of the text to be printed, "HELLO". A 
single zero byte is stored at location $1COD to indicate the end of the 
program line. 


Now let's see how the last program line looks in memory: 


OF OF 10 11 12 13 14 15 


>1cOD: 14 1C 14 00 80 00 00 00 


As you can see, the next BASIC program line starts at locations $1COE and 
1COF. These are the LSB and MSB of the line link address that points to the 
next line link address of the next program line. In this case, the address is 
$1C14, 


The next two bytes, locations $1C10 and $1C11, are the LSB and MSB, 


respectively, of the second program line's line number. Here the line 
number is $0014, or decimal 20. 


13 


Abacus Software C-128 BASIC 7.0 Internals 


Next, the token for the END command is stored at $1C12 ($80). Since the 
END command its the only thing in this BASIC program line, the end of line 
marker ($00) is stored at location $1C13. 


This sequence of bytes continues until the last program line is reached. 
Since line 20 is the last program line, two consecutive zero bytes are stored 
at locations $1C14 and $1C15. This constitutes the end of BASIC program 
marker. 


The address of the byte after the end of BASIC program marker is stored in 
locations $1210 and $1211. The address stored in these locations is used by 
the various routines such as the LOAD, SAVE, and RENUMBER routines so 
that the end of the BASIC program can be determined. These locations are 
updated each time a program line is inserted or deleted. 


Let's take a moment to illustrate with a simple diagram how the line links, 
etc., are used: 


Start Of BASIC End of line End of line 
Line link Address Line link address End of 


| BASIC line # [ BASIC line # <n flag 
(ofu Tak Tu] sexe _loly luk. xl sexr _Jololo 





Pointer to next Pointer to next 
Line link address Line link address 
Figure 1.2 
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1.2.1 Resurrecting a BASIC Program 


Now that we have seen how a BASIC program line is stored in memory, 
let's see what happens when we use the command NEW and some ways to 
UNNEW a program that has been accidently "erased" from memory. 


When you type in the command NEW and press <RETURN>, two things 
happen. First, two zero bytes are stored at the beginning of the BASIC text 
memory. Normally these locations are $1C01 and $1C02. Consequently, a 
memory dump of the area of memory where the BASIC program was stored 
would look like this: 


00 01 O02 03 04 05 06 O07 O08 O09 OA OB OC OD OE OF 


>01C00;: 00 00 00 OA 00 99 22 48 45 4C 4C 4F 22 00 15 1C 
>01C10: 14 00 80 00 00 00 -- -=— w= <= me He Rm me ee 


Next, the end of BASIC pointer at $1210 and $1211 is updated to point to 
one byte past the last zero byte that was just written. So the pointer is 
updated to $1C04. The address that locations $1210 and $1211 would now 
point to would be location $1C04. 


That is really all that happens when you use the NEW command. The 
previous BASIC program is not erased. Therefore, if the first line link 
address can be restored and the program lines linked together, the BASIC 
program can be unNEWed. 


There are many ways of accomplishing this, but two methods are very 
simple to use. Due to some software quirks in the BASIC 7.0 ROMs, they 
are available to everyone. First, type in the following BASIC program: 


10 PRINT "HELLO" 
20 END 


Now type NEW and press <RETURN>. Type LIST and press <RETURN> 
to verify that the program is really gone—or so we think. Now type in the 
following statement in the DIRECT mode and press <RETURN3>: 

POKE DEC("1C01") ,1:RENUMBER 


Now type LIST and press <RETURN3> to verify that the BASIC program 
has really returned. "Amazing!" you say. Well, now try the next method. 


15 





Abacus Software C-128 BASIC 7.0 Internals 


Since the program has returned, make it disappear again with the NEW 
command. Again type LIST and press <RETURN> to verify that it is 
indeed gone. Now type in the following statement in the DIRECT mode and 
press <RETURN>: 


POKE DEC("1C01"),1:DELETE 0 


Now type LIST and press <RETURN> and again the BASIC program has 
been returned. How the unNEW is accomplished is hidden in the ROMs and 
can be found in the ROM listing under the routines for the RENUMBER and 
DELETE commands. 


1.2.2 Recovering from a System "Crash" 


Occasionally the C-128 will hang up, such as is the case when a SYS toa 
wrong address is executed and puts the microprocessor into an infinite loop. 
When this happens, there are four ways to recover from the crash: 


1) Turn the computer off and then on. 


2) Press the reset button and use the unNEW examples in Section 
b:2.1. 


3) Press the <RUN/STOP><RESTORE> key combination. 
The fourth way you might recover from a system crash is outlined below: 


1) Depress and hold down the <RUN/STOP> key. 

2) While still holding down the <RUN/STOP> key, press the 
RESET button on the right side of the 128 and release it. 

3) After you see that the computer has powered up in the machine 
language monitor, release the <RUN/STOP> key. 

4) Check to ensure that location $0A04 has a $C1 in it to ensure 
that the BASIC IRQ, etc., has been initialized. If it has a $CO 
in it, change it to $C1. 

5) Type an X and press <RETURN> to return to BASIC. 

6) Type in LIST and press <RETURN?> to list the recovered 
program. 
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1.3 Variable Storage Format in the C-128 


The way the C-128 handles its variables is not too much different than the 
way that the C-64 handles its variables. However, in the 128, the zero page 
pointers have been moved and the variables themselves are stored in RAM 
BANK 1 instead of being stored immediately following the BASIC text, as 
it's done in the 64. This is a distinct advantage to the BASIC programmer. 
With the 128, if a program stops due to a 'SYNTAX' error or any other 
reason short of crashing the computer, the programmer can edit the line that 
1S Causing the problem and restart the program with a single GOSUB or 
GOTO command. Unlike the 64, this will not destroy the variable values that 
were stored in memory between the time the program started running and 
the time it crashed. This is the main difference in the way the 128 and the 64 
handle their variables. Now that we have covered the difference between the 
way that the 64 and 128 handle their variables, let's move on to discuss the 
actual format used by the 128 to store variables. 


In the 128, as in the 64, there are three categories of variables: Simple, 
Complex, and Function variables. The Simple and Complex variables can 
be broken down into three types: Floating Point (FP), Integer, and String 
variables. However, Function variables can only be Floating Point type. 


Each variable is allocated a seven byte descriptor in RAM BANK 1 starting 
at $0400 to indicate the type of variable (the value of the variable or length 
of the variable if it is a string, and the address of the variable in RAM 
BANK 1, if the variable is a string). 


You assign each variable a name. A variable name may consist of one or 
two characters, and include any alphanumeric character (as long as the first 
character of the variable name is a letter, not a number). If the first character 
of the variable name is found to be a number by the BASIC interpreter, a 
"SYNTAX ' error will occur. 


Also, if the variable name is followed by a percent sign (%) or a dollar sign 
($), it is defined as an Integer or String variable, respectively. However, if 
the variable name is not followed by either % or $, the variable is designated 
as a Floating Point variable. 


There are a few variable names that are reserved exclusively for the use of 


the 128's operating system. These variable names are as follows: DS, DSS, 
EL, ER, ERRS, ST, TI, TIS. Also, any variable name that has a reserved 
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keyword imbedded in it cannot be used. For instance, you cannot use a 


variable name such as 'TO' because this is one of the reserved keywords of 
the BASIC operating system. 


After a variable name has been designated, the BASIC operating system 
evaluates the name to determine if it is valid. If the variable name is invalid, 
a 'SYNTAX' error will occur. However, if the variable name is valid, bit 
seven of one, both, or neither of the characters in the variable name is set to 
indicate which of the three types the variable is. Let's take a moment to 
clarify how the type of variable is represented in the variable name. 


1) If the variable is a Floating Point variable, the values stored in 
Bytes 0 and 1 of the variable descriptor represent the HEX value 
of the two characters assigned to that particular variable. If there 
is only one character assigned to the variable, Byte 1 will contain 
the HEX value $00. 


2) If the variable is an Integer (%), the values stored in Bytes 0 and 
1 of the variable descriptor represent the HEX value of the two 
characters assigned to that particular variable, but, with bit seven 
set in both of the characters. If there is only one character 
assigned to the variable, Byte 1 will contain the HEX value $80. 


3) If the variable is a String ($), the values stored in Bytes 0 and 1 
of the variable descriptor represent the HEX value of the two 
characters assigned to that particular variable. However, this 
time, bit seven is set only in the second character which is stored 
in Byte 1. If the variable name only contains one character, Byte 
1 of the variable descriptor will contain the HEX value $80. 


4) If the variable is a Function variable (FN), the values stored in 
Bytes 0 and 1 of the variable descriptor represent the HEX value 
of the two characters assigned to that particular variable. 
However, bit seven is set only in the first character which is 
stored in Byte QO. If there is only one character assigned to the 
variable, Byte 1 will contain the HEX value $00. 


To further clarify this point, let's see what each type of variable name looks 
like in memory. The following figure illustrates how each type of variable is 
represented by setting bit seven in one, both, or neither of the characters in 
the variable name. 
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VARIABLE BYTE VARIABLE 
NAME 00,01 TYPE 


Floating Point 
Integer 
String 
Function variable 














DEF FN AA(XX) 


Now that we have discussed how each variable type is identified in the 
variable name, let's cover how these different types appear in memory for 
the three categories of variables: Simple, Complex, and Function variables. 


1.3.1 Simple Variables 


Simple variables are non-array variables. This category of variables can be 
broken down into three types: Floating Point, Integer, and String variables. 
We will take each type and show how each appears in memory and describe 
the meaning of each byte that is associated with that type of variable. 


First, type in and run the following short program, it will make it easier to 
see how actual values are stored using each type. 


10 AA oe 
20 AA% -117 
30 AAS = "C-128" 


The table below shows a memory dump of the area where those variables 
are stored. Remember, variable storage starts in RAM BANK 1 at $0400. 


VARIABLE TYPE BASIC STATEMENT 

















ADDRESS: BYTE 
IN HEX :00:01:02:03:04:05:06: 









>10400 :41:41:81:59:99:99:9A: 
>10407 :C1:C1l:FF:8B:00:00:00: 
>1O040E :41:C1:05:F9:FE:00:00: 


Floating Point 
Integer 
String 
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1.3.1.1 Floating Point Variables 


Floating Point variables (FP) are used when a high degree of accuracy 1s 
needed in mathematical calculations. This is because a FP value can range 
from 2.93873588 E - 39 to 1.70141183 E + 38. 


The C-128 calculates the FP value to 10 digits of precision which requires 5 
bytes of storage area as seen in the table below. For an example of how a 
FP variable is stored in memory, type the following in DIRECT mode and 
press <RETURN>: 


CLR:A = 128 
Now, enter the MONITOR and type M 10400 10407 and press 
<RETURN>. This will display the memory in RAM BANK 1 from $0400 
to $0407 which contains the descriptor of the variable A as shown below. 
>10400: 41 00 88 00 00 00 00 


Since this type of variable is a Floating Point variable, bit 7 is not set in 
either of the two characters of the variable name stored in bytes 0 and 1. 


The description of the seven bytes that make up the Floating Point Variable 
Descriptor is shown below. 


FLOATING POINT VARIABLE DESCRIPTOR 


Variable name with bit seven not set 
Variable name with bit seven not set 


Exponent value (EXP) 
M1 
M2 
M3 
M4 





The way the C-128 represents a FP value at first seems to be complicated 
but in reality, it is not. For example, to convert the Integer value 53 to its 
binary FP equivalent, the following steps must be followed : 
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1. Calculate the highest power of 2 that will divide evenly into the 
specified value. The closest power of two that will divide into 
the value 53 is 5. After dividing the value of 53 by 2 to the fifth 
power, this leaves a remainder of 21 ($15). 


53 = 2° with a remainder of 21 ($15) 


2. Derive the exponent by adding 129 ($81) to power of two that 
was calculated in the step 1. 


5 + 129 = 134 ($86) 


3. Convert the remainder from the operation in step 1 to binary 
format. 


21 = 00010101 = (24 + 22 + 29) = (16+ 441) 


4. Take the highest power of 2 that was obtained in step 1 (which 
is 5 in this example) and subtract one from it which will give 
you 2°. Then, starting with bit 6 of M1, write 24, etc until you 
reach bit 0 of M4 which would have 2°26. 


Then take the binary representation of 21 and starting from bit 
6 in M1 (Bit 7 is the sign bit) moving toward bit 0, locate the 
first bit that is Set, which in this example would be bit 4. This 
bit represents 2°, so place that '1' into BIT 6 of M4. Then 
place the remaining bits, regardless if they are set or cleared, 
into the remaining bits in M1 until you place the last bit of the 
binary value for 21, which is a one in this case, into bit 2 of 
M1. Then fill the remaining bits in M1 with zeros along with 
M2 - M4. Finally ,since the original value was positive, place a 
zero for BIT 7 in M1. If the value would have been negative 
you would have set BIT 7 to indicate this. After you have 
completed the representation of M1 thru M4, they should look 
like the figure on the next page. 


21 


CC 


0 0 
5 4 


0 1 1 0 
3 2 1 0 
Exponent 


Binary 

Representation 

Bit value 
76543210765 43241 «0 76543210 7654321 0 


M1 M2 M3 M4 Mantissa 


Floating Point representation of the value 53 


Exp = $86 
Ml = $54 
M2 = $00 
M3) = $00 
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1.3.1.2 Integer Variables 


As you can see in the table below, an Integer variable's value is stored in 
MSB, LSB format respectively. An Integer value can range from -32768 to 
32767. In HEX, these values are represented as $FFFF to $7FFF with 
$8000 to $FFFF representing -32768 to -1, and $0000 to $7FFF 
representing 0 to 32767. Integer variables should be used as often as 
possible to increase the execution speed of a program. 


For an example of how an Integer is stored in memory, type the following 
in the DIRECT mode and press <RETURN>: 


CLR:A% = 32767 
Now, enter the MONITOR and type M 10400 10407 and press 
<RETURN>. This will display the memory in RAM BANK 1 from $0400 
to $0407 which contains the descriptor of the variable A% as shown below. 
>10400: Cl 80 7F FF 00 00 00 


Since this type of variable is an Integer variable, bit 7 1s set in both of the 
two characters of the variable name that are stored in Bytes 0 and 1. 


The description of the seven bytes that make up an Integer Variable 
Descriptor is shown below. 


INTEGER VARIABLE DESCRIPTOR 


Variable name with bit seven set 
Variable name with bit seven set 
MSB of the 16 bit binary value 


LSB of the 16 bit binary value 
not used filled with zero 
not used filled with zero 
not used filled with zero 
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1.3.1.3 String Variables 


String variables are not quite as difficult to handle or understand as Floating 
Point Numbers but require more effort to manage than Integer variables. 
The creation of a string variable by the operating system 1s fairly straight- 
forward. With the exception of the system's reserved strings such as DSS, 
the main entry point for the creation of a string is usually through the 
BASIC LET command at $53C6. There are many routines that are required 
to manage string variables such as the routines that add and delete the string 
from memory by either adding it to the bottom of the string storage area or 
moving the strings that are below it up over the one to be deleted. The actual 
storage format for the string variable itself is very simple. 


For an example on String variable storage, let's create a string in memory 
by using the normal BASIC method. Type in the following statement and 
press <RETURN>: 


CLR: AS="C-128" 


Now let's see what happened. When the CLR command was executed, it 
reset the system pointers back to their normal values. This simply told the 
operating system to start placing the variable descriptors at $0400 moving 
upward towards $FFOO and to start placing the actual strings at $FFOO 
moving downward towards $0400. 


Now enter the monitor by typing MONITOR in the DIRECT mode and 
pressing <RETURN>. EnterM 10400 10407 and press <RETURNS> to 
inform the monitor that you wish to see a HEX dump of the memory from 
$0400 to $0407 in RAM BANK 1. This area of memory is where the 
variable descriptors are stored. If you look at the first seven bytes which are 
the variable descriptor for AS, you will see the following: 


>10400 :41 80 05 F9 FE OO OO 


Now if you start with the first byte of the descriptor (nominal byte zero) 
which is at $0400, you will find a HEX value of $41. This is the first 
character of the variable name which is the letter A. The second character of 
the variable name, stored in Byte 1, was not specified. Therefore, the 
operating system set bit seven in the second byte of the descriptor in order 
to indicate that this descriptor is for a string. 
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The description of the seven bytes that make up a String Variable Descriptor 
is Shown below. 


STRING DESCRIPTOR 


BYTE 00] Variable name with bit seven not set 
01] Variable name with bit seven set 
O02] Length of the string 


03 | LSB of the address of the string in RAM BANK 
04] MSB of the address of the string in RAM BANK 
05 | not used filled with zero 
06] not used filled with zero 





The following table indicates how the string that was assigned to A$ above 
would be stored in RAM. 


STRING STORED IN RAM BANK 1 


ADDRESS 


LSB, MSB of the 
address of this 
string's descriptor 





Remember that strings are added one character at a time moving downward 
toward $0400. The two bytes that preceed the string (SFEFE and $FEFF) 
are the address which points to the length of the string in the variable 
descriptor. The reason for this address is to enable garbage collection to 
scan through the string storage area and locate which strings are no longer 
required. The flag for the garbage collection is very simple. When a string is 
to be discarded, a routine will place an $FF in the MSB of the descriptor's 
address after the string and place the length of the string in the LSB of the 
descriptor's address. For example, in DIRECT mode type the following 
statement and press <RETURN>. 


CLR:AS = "COMMODORE":BS = "64":CS = "128":BS="" 
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The operating system first performed a CLR. Then it assigned the string 
variables and placed the strings in the string storage area. When it reached 
the statement BS="", it placed the new string ("") at the bottom of the 
string storage area and changed the address of the variable descriptor after 
the BS="64" to $FFO2, in LSB, MSB format. Go into the MONITOR and 
enter J F92EA which forces a garbage collection. Now look at what 
happened to your strings. You now know how garbage collection is 
performed and why, if you have a lot of strings and you delete the first 
string that was created, your computer seems to hang up on you! 


1.3.2 Complex Variables 


A Complex variable is another name for an Array variable. This category 
can be broken down into three types: Floating Point , Integer, and String 
variables. We will take each type and show how each appears in memory 
and then describe the meaning of each byte that is associated with that type 
of variable. 


The first thing that should be noted is that the three types of complex 
variables are identified by setting Bit 7 in one, both, or neither of the 
characters in the variable name that is assigned to the array. This is the same 
method of identification that is use with the simple variable types. 


The following figure illustrates how the name of each type of complex 
variable is represented in memory. 


VARIABLE | BYTE VARIABLE 
NAME 00,01 TYPE 


Floating Point 
Integer 
String 





To better understand how the different variable types are stored in memory, 
type in and RUN the following BASIC program: 
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10 DIM AA(0), AA%(0), AAS (0) 


20 AA (0) = 1.7 
30 AA%(0) = -117 
40 AAS(0) = "C-128" 


The following figure represents what a memory dump of the area where the 
variables are stored would look like: 


ADDRESS: BYTE 
IN HEX :00201:02:03:04:05:06:07:00:01:02:03 VARIABLE TYPE STATEMENT 


>10400 2:41:241:20C:00:01:00:01:81:59:99:99:9~A: Floating Point AA(O) = 1.7 
>1040C 2:€1:2C1:09:00:01:00:01:FF:8B:41:C1:0A: Integer AA%(0) =-117 
>10418 :00:01:00:01:05:F9:FE: String AAS (0) ="C-128 





1.3.2.1 The Array Descriptor 


The array descriptor is basically the same for all three types of complex 
variables. The first two bytes contain the variable name and the 
aforementioned flags set in the name to indicate the variable type. The next 
five bytes describe the array size and how many dimensions and how many 
elements that are in the array. The array descriptor is only used once for 
each different array that is defined. For example, if you define an array of 
ten elements, the descriptor is used once followed by a list of the elements. 


The table below describes each of the bytes that can be found in an array 
descriptor: 
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ARRAY DESCRIPTOR 


BYTE QO | Variable name with the flags set in 
01 | The same manner as simple variables 
02 | This byte contains the number of bytes in the ARRAY 
descriptor (7) + (the number of bytes which make up 


03 | the ARRAY ELEMENT * the number of elements 
which is stored in LSB,MSB format 

04 | The number of dimensions in the array 

05 | The number of elements in the array which was 

06 | specified in the DIM statement +1 because the 
AS(0) is a valid element 





When an ARRAY descriptor is created it is formed in a totally different 
manner then the SIMPLE descriptors. Let's take each one of the bytes in the 
descriptor and spend a little time with them. Enter the following BASIC 
program so that you will be able to follow along with us. 


10 DIM A % (1,2,3,4,5) 

20 DIM B $ (10,10) 

30 A & (0,0,0,0,0) = 1 

40 B $ (0,0) = "BASIC 7.0 INTERNALS” 


RUN the aforementioned program then do a MEMORY dump of 10400 thru 
10410 and 109AF 109BF which should look like this. 


NOMINAL BYTE 
00 01 O02 03 O04 O5 06 O7 08 OF OA OB OC OD OE OF 10 


>10400 :C1:80 :AF:05 :05 :00:06 :00:05 :00:04 :00:03 :00:02 :00:01 


FIRST ELEMENT ------------------------- 


>1LO9AF 3:42:80 :74:01 :02 :00:0B :00:0B :13:EB :FE:00 :00:00 :00:00 


FIRST ELEMENT ---- Ss 


SECOND ELEMENT ---------- 
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Bytes 0 through 1 are used in the same manner as SIMPLE variables. 


Bytes 2 through 3 are used to inform the operating system of two things. 
First of all, they are used to find the address of the next ARRAY descriptor. 
In our example these bytes contain AF 05 which, when added to the current 
descriptor's address ($0400), would give us the address of the next 
ARRAY descriptor, which is $09AF. This is also used by the operating 
system as the address of the last ARRAY’'s element. This value is obtained 
by the following formula: 


ADDRESS = 7+(2*(ND- 1))+ (VAR * (EL1+1*EL2 +1...)) 


Where: 
ND = The number of dimensions - 1 (5,5 would be 2 dimensions) 
EL = The element value of the array (5,5 - EL1 =5 , EL2 = 5) 
VAR = Number of bytes per variable type : 


Integers 
Strings 
Floating point 


lout il 
Mm Wd 


Using this formula ,bytes 2 and 3 of our first array would be calculated as 
follows : 


74+(2*4)4+(2*(2*3*4*5 *6)) 
15 + (2 * 720) 
1455 


When 1455 is converted to hex format the result is $05AF which is stored 
in byte 2 and 3 as AF:05. 


Byte 4 is used to indicate the number of DIMENSIONS in the ARRAY, this 
byte is used in conjunction with byte $05 thru NN and in our first example 
this value is 5 which indicates the number of DIMENSIONS that are used in 
this array. 


Byte 5 thru NN (0A) is used to indicate the number of elements in each 
dimension, in the statement DIMA%(10,10) these two bytes would contain 
$00,$0B in LSB/MSB format, followed by $00,$0B, followed by byte 9 
which is the first element in the ARRAY which is (0,0,0). 
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As stated before, the main difference between the different types of arrays is 
in the way that the elements of each type are stored. We will take each type, 
describe each byte of the element, and then show what an array of that 
particular type would look like in memory. 


1.3.2.2 Floating Point Arrays 


The Floating Point array is used to stored numbers with 10 digit accuracy. 


The array consists of the array descriptor followed by a list of the values of 
the five byte Floating Point numbers that were assigned to the array. 


For example, type in the following statement and press <RETURN>. 
CLR:DIM A(0):A(0) = 328.67 


The following table illustrates how this type of array would appear in 
memory if you were todoaM 10400 1040C from the MONITOR. 


>10400 :41 00 OC 00 01 00 01 89 24 55 C2 8F 
The following table describes the meaning of the individual bytes that 


follow the array descriptor. The first Floating Point element begins at 
location $10408. 


FLOATING POINT NUMBER ELEMENT 


Exponent value 





If there was more than one element assigned to the array, the same sequence 
of bytes for each Floating Point Number element would be listed following 
the descriptor. 
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1.3.2.3 Integer Arrays 


The Integer array is used to store numbers that do not require the degree of 
accuracy that the Floating Point Number array has to offer. The format in 
which the Integer array is stored is the same as the Floating Point array 
except, the Integer array only requires two bytes for each element. 


For example, type in the following statement and press <RETURN>. 
CLR:DIM A%(0):A%(0) = 1296 


The following line illustrates how this type of array would appear in 
memory if you were todoaM 10400 10409 from the MONITOR. 


>10400 :Cl 80 09 00 01 00 01 05 10 


The following table describes the meaning of the individual bytes that 
follow the array descriptor. The first Integer element begins at location 
$10407. 


INTEGER ARRAY ELEMENT 


MSB of the 16 bit binary value 





LSB of the 16 bit binary value 


If there were more than one element assigned to the array, the same 
sequence of bytes for each Integer element would be listed following the 
array descriptor. | 


1.3.2.4 String Arrays 


The String array is used to store strings of characters and not numerical 
values like the Floating Point and Integer arrays do. With a String array, the 
list of String elements that follow the array descriptor are the lengths and 
addresses of the strings that are stored in the String Storage Area. 
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For example, type in the following statement and press <RETURN>. 
CLR:DIM A$(0):A$(0) = "C-128" 


The following table illustrates how this type of array would appear in 
memory if you were todoaM 10400 1040A from the MONITOR. 


>10400 :41 80 0A 00 O01 00 O01 O05 FY FE 
The following table describes the meaning of the individual bytes that 
follow the array descriptor. The first String element begins at $10408. 
STRING ARRAY ELEMENT 


Length of the string 


LSB of the address of the string in RAM BANK 1 


MSB of the address of the string in RAM BANK 1 





1.3.3 Function Variables 


The last category of variables is the FuNction (FN) variables. This type of 
variable can only be defined using the Floating Point format. The main use 
of this variable is to allow the user to assign a formula or value to be used 
later when doing mathematical calculations. For instance, type in the 
following line and RUN it. 


10 DEF FN AA (AA) = 123 
The following figure would represent the way that a memory dump of the 
area where this variable is stored would look like. Remember, variable 
storage starts in RAM BANK 1 at $0400. 


>10400 :C1l 41 11 1C 09 04 31 41 41 
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As you can see by the values of the variable name, the Function variable is 
identified by setting Bit 7 in the first character of the variable name. The 
following table gives a description of each of the bytes that are used to store 
this type of variable. 


USER DEFINED FUNCTION 


Variable name with bit seven set 
Variable name with bit seven not set 
LSB of the address of the expression in RAM BANK 0 


MSB of the address of the expression in RAM BANK 0 

LSB of the address of the variable descriptor in RAM BANK 1 
MSB of the address of the variable descriptor in RAM BANK 1 
Contains the first character of the expression 





1.3.4 Variable Pointers 


To make the storing of the different variable types possible, several pointers 
are used to keep track of where everything is. The following table and 
diagram will give you the different pointers that are used when storing 
variables in RAM BANK 1. 


S2F, $30 This location holds the starting address of 
the variable descriptor storage area. It is 
normally set to $0400. 

53, This location holds the starting address of 
the array storage area. 

$33, This location holds the address of the end of 
the BASIC arrays plus one. 


$35, This location holds the address of the bottom 
of the string storage area. 

$39, This location holds the address of the the 
top of the string storage area. It is always 
set to SFFOO. 
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When the 128 is first turned on, VARTAB is set to point to the start of the 
BASIC variable storage area in RAM BANK 1 and MAXMEM1 is set to the 
end of the BASIC variable storage area in RAM BANK 1. Normally, 
VARTAB is set to point to $0400 and MAXMEM1 is set to point to $FFOO. 


MAX 
Memoryl 
String 


Storage Area 
FRETOP 


Currently unused 
memory space that 

is reserved for 
string storage 
and/or ARRAY storage 
See Text for more 
details 


STREND 


ARRAY storage area 


ARYTAB 


Variable 
descriptor 
storage area 
0400 VARTAB 
Common user 
area 
Available to 
all banks 





0000 


When the BASIC CLR routine is called during system initialization, the 
address that is stored in VARTAB is stored in ARYTAB and STREND and the 
address that is stored in MAXMEM1 is stored into FRETOP. This resets all of 
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the pointers to their starting addresses to indicate to the operating system 
that there are not any variables in the variable storage area. 


However, if in the DIRECT mode we were to define a Floating Point 
variable, ARYTAB and STREND would be incremented by seven in order to 
make room for the descriptor of the variable that was being defined. These 
pointers would then point to the next available location for the next variable 
descriptor or for an array. 


If we then define a Floating Point array, ARYTAB would stay where it is, 
but STREND would be be incremented the number of bytes that the array 
needs to make room for that array. So far, we have defined a Floating Point 
variable and a Floating Point array. Now let's try something different. Let's 
define a String variable and see what happens. 


If we define a String variable, ARYTAB and STREND will be incremented 
by seven to make room for the String variable's descriptor. However, this 
time FRETOP will be decremented the number of bytes needed for the actual 
string, plus two. The two extra bytes of memory are used to hold the 
address that points to the length of the string in the variable's descriptor. 
Consequently, anytime you define a string, not only are ARYTAB and 
STREND moved but, FRETOP as well. Let's go one step further and define 
a String array. 


When you define a String array, ARYTAB remains where it is and STREND 
is incremented the number of bytes that are needed for the new array. Also, 
FRETOP is decremented the number of bytes needed for the string part of 
the array plus two. Once again, the two extra bytes of memory are used to 
hold the address that points to the length of the string in the variable's 
descriptor. 


As you can see from the examples above, ARYTAB, STREND, and FRETOP 
change with each variable that is defined. The pointers are incremented or 
decremented as necessary when a variable is added or deleted. 


If in the process of adding a new variable, the pointers STREND and 
FRETOP collide, an 'OUT OF MEMORY' error message is generated. 
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1.3.5 A Variable Dump Program 


As we have seen, there are several types of variables, and each variable type 
has its own format when stored in memory. It would therefore be quite 
useful if a routine was designed to display the value of the variables that are 
stored in memory. Many times it becomes necessary when writing a BASIC 
program to see what the variable values are so that an assessment can be 
made as to whether the program that is being written is operating as it 
should. Without a program such as the VARIABLE DUMP program that is 
presented here, it would become quite tedious to print all of the variable 
values to the screen one at a time. However, VARIABLE DUMP makes the 
job of displaying the individual variable values easier by providing a two 
character command in order to initiate a dump to the screen of all of the 
variable values that are stored in memory. The only variable type that is not 
handled by the VARIABLE DUMP program is arrays. This 1s due to the 
large number of elements that are present in arrays. However,with a little 
effort on your part, this function could be added to the present VARIABLE 
DUMP program. 


1.3.5.1 How To Use The VARIABLE DUMP Program 


In order to use the VARIABLE DUMP program, type in the BASIC 
generator program listed in the section below. This program when RUN will 
POKE the data to memory that is necessary to construct the VARIABLE 
DUMP machine code. After you have typed in the BASIC generator 
program, save a copy of the program to disk. This will ensure that you will 
still have a copy of the program should the computer crash or an error in 
typing was made. This is a good practice to get into, especially with lengthy 
programs, or programs that contain a large amount of DATA statements. 


Once the program has been saved to disk, type RUN and press <RETURN>. 
The program will indicate that it is running by displaying the message 
CURRENT DATA LINE followed by the line number of the DATA 
Statement that is currently being put into memory. If an error in the DATA 
statements should be encountered, an ERROR IN DATA-LINE message 


will be displayed followed by the line number of the DATA statement where 
the error lies. 
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Once the generator program has finished placing the variable dump machine 
code into memory, you will be prompted DO YOU WISH TO SAVE AN 
OBJECT FILE (Y/N). Ifyou want an object file to be saved to disk type 
<Y>. After the object file has been saved to disk by the BASIC generator 
program, you will be prompted once again DO YOU WISH TO SAVE AN 
OBJECT FILE. This feature was included in the program so that a copy of 
the variable dump program's object file could be saved to as many disks as 
desired without having to rerun the original BASIC generator program each 
time you wanted to save a copy of the object file to another disk. It is 
recommended that you save a copy of the variable dump program's object 
file to each disk that you use for the development of BASIC programs as 
you will soon find out that the function that this program serves will be used 
over and over again when developing a BASIC program. 


Once you have finished saving a copy of the object file to the disks you 
want it on, type <N> in response to the prompt DO YOU WISH TO SAVE 
AN OBJECT FILE. After you have done this, the message TYPE SYS 
3072 TO ACTIVATE will be displayed on the screen and the generator 
program will end. The SyS address that is displayed is the address that will 
initialize the VARIABLE DUMP program. Therefore, type <SYS 3072> and 
press <RETURN>. 


Once the program has been initialized, the READY prompt will appear on the 
screen. To use the new added function, type <@V> and press 
<RETURN>. Immediately, the program will print the values of all of the 
variables that are presently stored in memory except the array variables. In 


order to print the variable dump to the printer, enter the following BASIC 
Statement in the DIRECT mode: 


OPEN 4,4, 7:CMD4:@V 


Once the VARIABLE DUMP program's object file has been saved to a disk, 
the next time that you wish to use the program, type the following: 


1541 Disk Drive: BLOAD"VARIABLE DUMP.O",B15:SYS 3072 
or 


1571 Disk Drive: BOOT"VARIABLE DUMP.O",B15 
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1.3.5.2 The Variable Dump Generator Program 


The following BASIC program is designed to generate the VARIABLE 
DUMP program as well as allow you to save the object file to disk. 


10 GOTO140 


20 
30 
40 
50 
60 
70 
80 
90 


110 
120 


100 


: VARIABLE DUMP GENERATOR 
COPYRIGHT (C) 1986 BY 
JIM D. SPRINGER 
AND 


DENNIS J. JARVIS 


SCNCLR 

Y=0 : LN=250 : AD=DEC ("0C00") 
FORI=ADTOAD+310STEP8 : Y=XOR(Y,15): 
VOLY:PRINT" [HOME] CURRENT DATA LINE"LN 
READDS : POKEI+X, DEC (DS) 
X=X+1:CK=CK+DEC (DS) : IFX<>8THENGOTO170 
READCKS: IF (CK AND 255) <>DEC(CKS) THENPRINT"ERROR 
IN DATA - LINE"LN:END 

X=0 : CK=0 : LN=LN+10:NEXT 

PRINT" [CURDN] [CURDN]DO YOU WISH TO SAVE AN 
OBJECT FILE (Y/N)" 

GETKEYAS : IFAS<>"Y"AND AS<>"N"THEN220 
IFAS="Y"THEN SCRATCH"VARIABLE DUMP.O": 
BSAVE"VARIABLE DUMP.O",BO,P(AD) TO P(I): 
VERIFY"*",8: ELSE PRINT" [DOWN] TYPE SYS"AD 
" TO ACTIVATE": END 

GOTO210 

DATA AO,0C,A9,10,A2,4C,8E,8D, 6E 

DATA 03, 8D, 8E, 03, 8C, 8F,03,60, 9F 

DATA 8D, 03,FF,48,C9,40,D0,12, C2 

DATA AO,01,20,C9,03,C9,56,D0, TC 

DATA 09,C8,20,C9,03,F0,07,4C, 00 

DATA 6C, 79,68, 4C,90,03,20,F0, 3C 
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310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


84,68,A9,00, 8D, 00, FF, 8D, 
04,D5,A5, 2F,A4, 30,85,FB, 
84,FC,C4,32,D0,02,C5, 31, 
90,09,20, 7A, 41, 4C, 37, 4D, 
4c,0C,40,A9,0D,20,D2,FF, 
AO, 00,84, OF, 20, 2F, OD, AA, 
29,80,4A,20,1A,0D,20,2F, 
OD, AA, 29,80,20,1A,0D,A5, 
OF, FO, 2A,C9,80,F0,36,C9, 
40,F0,52,20,D5,0C, 20,F5, 
OC, A0, 00, 20, 2A, OD, A8, 8A, 
20,3C, 79,20, 42, 8E,A0,00, 
B9,00,01,F0,06,20,D2,FF, 
C8,D0,F5,F0, 64,20,DB, 0C, 
20,F5,0C,A5,FB,A4,FC,20, 
85, 7A,4C, 8B, OC, 20,F5,0C, 
20,D8,0C, 20,F0,0C,A0,00, 
20,2A,0D,F0, 0B, 85,24,C8, 
20,2F,0D,85,25,20,E9, 55, 
20,F0,0C,D0, 34, 20, DB, 0C, 
20,ED,0C,D0, 2F,A9,25,2C, 
A9,24,2C,A9,20,20,D2,FF, 
A9, 20,20,D2,FF,A9, 3D, 20, 
D2,FF,A9,20,2C, A9, 2A, 2C, 
A9, 22,4C,D2,FF,A5,FB, 18, 
69,02,85,FB, 90,02,E6,FC, 
60,A9, 05, 2C,A9,07,18,85, 
OD, A5,FB, 65, OD, 85, FB, 90, 
02,E6,FC,A5,FB,A4,FC,4C, 
42,0C, 05, OF, 85, OF, 8A, 29, 
7F,D0,02,A9,20,20,D2,FF, 
C8, 60,20, 2F, 0D, AA, C8,A9, 
FB, 20, AB, 03, 60, FF, C8, 60, 
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NOTE: The BASIC generator program above (as well as the MERLIN 
source file of the VARIABLE DUMP program) is included with the other 
programs appearing in this book on the optional disk available from Abacus 
Software. See the back of this book for order information. 
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1.4 Memory Expansion for the C-128 


There are two main types of memory devices used in the 128 to store data, 
programs, and the routines that allow the 128 to operate. These two types of 


memory devices are RAM (Random Access Memory) and ROM (Read Only 
Memory). | 


RAM 1s a storage device that can be both written to and read from. 
However, when power is removed from a RAM chip, all the data that was 
stored is lost. This is one of the biggest disadvantages of this type of 
storage device. Therefore, RAM is intended for the temporary storage of 
data. 


One of the advantages of RAM is that it 1s faster than many other types of 
storage devices such as a disk drive or cassette drive. In the 128, RAM 
chips are used for the 128K of memory space, for the screen storage area 
for the VDC, and for the screen storage area for the VIC. 


ROM is a storage device that usually can only be read. The function of a 
ROM is to supply a permanent storage area for data. This data cannot be 
erased by merely turning off the power switch. 


In the 128, there are several ROMS: Character ROM, BASIC ROM Low, 
BASIC ROM High, and the KERNAL ROM. Each one contains data that is 


necessary to enable the 128 to accomplish all of the functions that it was 
programmed for. 


In the following text we will discuss both the RAM and ROM expansion 
methods in the C-128. 
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1.4.1 RAM Expansion 


There are two other ways in which RAM is used with the 128 that are 
particularly interesting. In fact, they allow the user to be able to expand the 
memory capabilities of the 128. The two ways to expand the memory 
capability of the 128 are adding RAM for BANKS 2 and 3 and the RAM 
Expansion Module (REM). 


Although the software exists to support the addition of RAM for BANKS 2 
and 3, the 128's motherboard does not provide the hardware necessary to 
implement these RAM BANKS. When the 128 was produced, the memory 
addressing scheme was never completed for this type of RAM expansion. 
Unless someone comes out with an internal modification to the 
motherboard, the 128 will never have any more than 128K of internal 
contiguous RAM. 


However, the second method of expanding the 128’s RAM 1s a little more 
usable. This method involves plugging a REM into the expansion port to 
increase the 128's memory capacity. The two RAM modules currently on 
the market are the 1700 and 1750 expansion modules that let you expand the 
128's memory by 128K and 512K bytes, respectively. The RAM that is 
added cannot be accessed in the same manner as RAM inside the 128 .The 
module acts more like a RAM disk and is accessed by using the BASIC 
commands FETCH, STASH, and SWAP. 


1.4.1.1 The RAM Expansion Unit's Controller 


The process that makes all of this possible is known as Direct Memory 
Access, whereby an external controller is allowed to take over the 
computer's bus system to affect the data transfer from the external memory 
to the computer's memory (FETCH), from the computer's memory to the 
external memory (STASH), or exchanging the computer memory with the 
external memory (SWAP). 


The RAM Expansion Controller (REC) used in the 1700 and 1750 RAM 
expansion modules is the 8726. It is responsible for handling all the 
operations that are necessary for transferring data between the expansion 
module and the 128. 
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The 8726 has 11 registers that are used to control the DMA process. These 
registers appear in locations $DFOO to $DFOA. 


The following table gives the various registers and the description of each 
that is used to control the DMA process. 


DMAST status 

DMACMD command 

DMAADL Address Low 
DMAADH Address High 
DMALO LOw 

DMAHI High 

DMABNK BaNK 

DMADAL Data Address Low 


DMADAH Data Address High 


DMAIMR Interrupt Mask Register 





DMAST Address Control Register 
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1.4.1.1.1 DMA STatus register (DMAST) 


The DMA STatus register for the REC is located at $DFOO. This is a read 
only register that is used to store the status of the REC. The definition of 
each bit of this register is as follows: 


BIT 7 This bit is used to indicate whether there is an interrupt pending. 
If this bit is set, this indicates that there is an interrupt waiting to 
be serviced. Note: If Bit 7 is set in the DMAIMR (see Section 
1.4.1.1.7), then whenever Bit 6 or 5 of this register is set, then 
a hardware IRQ is generated, and must be handled by the 
KERNAL IRQ vector at $0314/$0315. 


BIT 6 This bit is used to indicate whether the transfer of a block of data 
has been completed. If this bit 1s set, the block has been 
transferred (see $DFO09). 

BIT 5 This bit when set indicates a verify error (see $DFO9). 


BIT 4 This bit when set indicates that the RAM expansion is a 1750 
model (512K) and not the 1700 model (128K). 


BITS 3-0 Contain the version number of the RAM Expansion Controller. 


1.4.1.1.2 DMA CoMmanbD register (DMACMD) 


The DMA CoMmanD register for the REC is located at $DFO1. This register 
is used to store the command to the REC. The definition of each bit of this 
register 1s as follows: 


BIT 7 This bit when set can have two meanings. To execute the DMA 
process when location $FFOO is accessed again, or to execute 
the DMA process immediately depending on BIT 4 of this 
register. 

BIT 6 Not used at this time. 


BIT 5 This bit when set will activate the AUTOLOAD routine in the 
REC. This option, when activated, will preserve these registers: 
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BIT 4 


BITS 3-2 


BITS 1-0 


DF02, DF03, DFO04, DFO5, DFO7, DFO8. This will enable you 
to perform the same DMA over and over again without having to 
set these addresses up every time you want to perform a DMA. 
The main purpose of the AUTOLOAD function is to save you 
memory. 


When set, this bit will execute the DMA immediately without 
having to store a value at $FFOO. This bit defaults to 0. 


Are not used at this time. NOTE: BASIC sets this bit each time a 
DMA is performed, it has no effect! 


These bits inform the REC of what type of DMA is to be 
performed and have the following meaning. 


BIT 1 0 TYPE OF OPERATION 


Transfer from C-128 to REM 
Transfer from REM to C-128 


Swap C-128 for REM 





Verify C-128 with REM 


1.4.1.1.3 DMA ADdress Low/High register 


(DMAADL,DMAADH) 


The DMA ADDRESS LOW/HIGH registers are located at $DFO2 and 
$DFO03 respectively. These two registers are used to store the LSB and 
MSB of the starting address where the DMA process is to take place inside 


the C-128. 
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1.4.1.1.4 DMA LOw/HIgh register (DMALO,DMAHI) 


The DMA LOW/HIGH registers are located at $DFO4 and $DFO05 
respectively. These two registers are used to store the LSB and MSB of the 
starting address where the DMA process is to take place inside the RAM 
Expansion Module . 


1.4.1.1.55 DMA BaNK register (DMABNK) 


The DMA BANK register is located at $DF06. This register contains the 
BaNK number inside the RAM Expansion Module that the DMA is to take 
place in. The meaning of each of the bit values 1s shown below. 


128K and 512K 


128K and 512K 


512K only 


512K only 
512K only 
512K only 
512K only 


512K only 
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1.4.1.1.6 The DMA data Address Low/High register 
(DMAAL,DMAAH) 


The DMA DATA ADDRESS LOW/HIGH registers are located at $DFO7 
and $DFO08 respectively. These registers are used to store the LSB and MSB 
of the number of bytes that the DMA is to process STASH, SWAP, etc. 


1.4.1.1.7. The DMA Interrupt Mask Register 
(DMAIMR) 


The DMA INTERRUPT register is located at $DFO9 and is similar to the 
ICR register in a CIA. That is, you can select what type of situation or 
incident you wish to test for, and if this situation does occur, then BIT 7 in 
the DMA ST is set and the appropriate bit in that register is set to indicate 
which one of the following occurred. 


BIT 7 This bit is used to enable the interrupt flag. It is the 
responsibility of the software programmer to test the DAM 
STatus register which is located at $DFOO, to see what has 
actually occurred, and process it accordingly. 


BIT 6 This bit, when set, indicates to the REC that you want it to set 
BIT 6 in location $DFOO when the End Of Block occurs. 


BIT 5 This bit, when set, indicates to the REC that you want it to set 
BIT 5 in location $DFOO when their is a verify error. 


BITS 4 - 0 Not used at this time. 


46 


Abacus Software C-128 BASIC 7.0 Internals 





1.4.1.1.8 The DMA Address Control Register 


The DMA ADDRESS CONTROL register is located at $DFOA. This 
register is used to inform the REC if it is to increment the addresses that are 
used for the DMA transfer. For instance, this register allows you to 
increment the address in the REM and not in the C-128 and vice versa. 


BIT 
DESCRIPTION REGISTER AFFECTED 


Increment both addresses (DEFAULT) 
Do not increment REM address 
Do not increment C-128 address 
Do not increment either address 





DMA ADL/ADH,DMA LO/HI 
DMA LO/HI 
DMA ADL/ADH 













1.4.1.2 The Software Nuts and Bolts of DMA 


The process that makes the RAM expansion module possible is known as 
Direct Memory Access, whereby an external controller is allowed to take 
over the computer's bus system to affect the data transfer from the external 
memory to the computer's memory, from the computer's memory to the 
external memory, or exchanging computer memory with external memory. 


The BASIC commands that are used with the RAM expansion module are 
the FETCH, STASH, and SWAP commands. The BASIC syntax for each is 
identical except for the command that is being used. The table below gives 
the syntax for these commands: 


Command syntax: 


FETCH, STASH, SWAP #bytes, insta, expsa, expb 


Where: #bytes = the number of bytes to be fetched, stashed, or swapped 
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insta = internal starting address (address in C-128) 
expsa = external starting address (address in REM) 
expb =external bank number (bank in REM) 


The FETCH command allows to transfer data from the RAM expansion 
module into the computer. When this command is used, the machine 
language routine at $AA28 is called to handle the execution of the 
command. 


For example, the statement FETCH 1024,1024, 0,0 transfers 1K of data 
from the RAM expansion module starting at $0000, ROM BANK 0, to the 
computer's screen memory starting at location $0400. 


The STASH command allows you to transfer data from the computer's 
memory to the RAM expansion module. 


For example, the statement STASH 1024,1024,0,0 transfers 1K of 
data from the computer's screen memory starting at location $0400 to the 
RAM expansion module starting at location $0000 in BANK 0. 


The SWAP command allows you to exchange data between the computer's 
memory and the RAM expansion module. 


For example, the statement SWAP 1024,1024,0,0 exchanges 1K of 
data from the RAM expansion module starting at location $0000 in BANK 0 
to the computer's screen memory starting at location $0400 . 


The manner in which BASIC accomplishes the DMA is fairly straight- 
forward. It first converts the values that follow the BASIC statement and 
place them into the proper addresses to set up the REC (see the description 
of the REC registers above). Then it gets the current BANK number out of 
$03DS which was placed there by the BASIC BANK command. After this 
has been completed, it calls the DMA CALL routine out of the KERNAL 
JUMP TABLE, which is located at $FF5O. 


When the DMA CALL routine is called, the BASIC BANK number must be 
in the accumulator with the DMA command in the Y-register. When the 
DMA CALL routine is reached ($F7A5), it will take the BASIC BANK 
number and convert it over to the appropriate memory configuration value 
(for more information on memory configuration refer to the Appendices) 
with bit 0 omitted to keep the I/O register intact. Next, the routine will place 
this value into the Accumulator and the X-register and jump to the EDMA 


48 


Abacus Software C-128 BASIC 7.0 Internals 


routine at $03FO. This is the actual nuts and bolts of the DMA execution, so 
let's take a closer look at it. 


KHREKEKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKK 


* * 
* EDMA * 
* * 
* Execute Direct Memory Access x 
* * 
HKEKKKEKKKKEKKKKKKKKEKRKKKKKKKKKKKKKKKKKKK 
S$O3FO: LDX £SFFOO 
$O3F3: STY S$DFO1 
S$O3F6: STA  SFFOO 
SO3F9: STX  SFFOO 
$O3FC: RTS 
ADDRE DESCRIPTION 
$03F0 Preserve the current memory configuration in the X-register 


$03F3 Place DMA command in the DMACMD register for the REC 
$03F6 Set the requested memory configuration, execute the DMA 
$03F9 Restore the old memory configuration 


As you can see, the previous routine is fairly straightforward. However, 
there is one thing to remember. The STA SFFOO is what actually executed 
the DMA process, because BASIC does not set BIT 4 in the DMACMD 
register for the REC. This instruction is why you cannot access any RAM 
BANK except RAM BANK 0. The REC in the RAM expansion module 
does not actually use the value that is in $FFOO. It obtains its RAM 
information from the Memory Managment Unit Ram Configuration 
Register, or simply MMURCR. To help you past this shortcoming, we 
have reworked the Execute Direct Memory Access routine for you which 
will automatically extract the RAM BANK that you want to access and set 
the MMURCR for you. Then after the DMA process has been completed, 
the routine restores the MMURCR register back to its previous 
configuration value. 


The main entry point is still $03FO to maintain compatibility with the 
existing operating system which 1s the top priority. 
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ORG SO3E4 ;Spare memory area just above OLD DMA 
;routine 

EXECUTE = %00010000 ;Set the bit to DISABLE the 
;SFFOO TRIGGER 

MMURCR = $D506 ;Memory Management Unit Ram 
;Configuration Reg. 

DMAST = SDFOO ;Direct Memory Access STatus 
;register 

DMACMD = SDFO1 ;DMA CoMmanD register 


KKKKKKKKKKKKKEKKKKKKKKEKKKKKKKKKKKKEKKKKKEKKKKKKKKKKKKKKKKK 


* 
SMMURCR * 
* 
Set MMU Ram Configuration Reg 


This routine will take the value that is in the 
Accumulator which during a BASIC DMA is the memory 
configuration of the current BASIC BANK number. 


Bits 5 thru 0 are discarded because we are only 
concerned with the RAM BANK number that is 
requested. 


* 

* 

* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* If your using this routine with machine language, * 
* just call EDMA with the RAM BANK number in the * 
* Accumulator (see the section on the MMU for more 3 
* details). sd 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 


ON ENTRY: A = Memory configuration 
xX Not used in this routine 
Y = Not used in this routine 


ON EXIT: A = New MMURCR value 
| X = Old MMURCR value 
Y = DMACMD value 


KEKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


O3E4; AE 06 D5 SMMURCR LDX  ##MMURCR ;Get the current RAM 
;Configuration register 

O3E7: 29 CO AND #%11000000 ;Only use the RAM BANK 

O3E9: OD 06 D5 ORA  MMURCR ;Configuration 

Q3EC: 8D 06 D5 STA MMURCR ;Set VIC RAM BANK number 

O3EF: 60 RTS ;Exit the routine 


50 


Abacus Software C-128 BASIC 7.0 Internals 





FoI I II RF I I IOI I II III IRI II TOR IR IR IR I I IO KOK tok tk tk tk tok 


EDMA 
Execute Direct Memory Access 


This routine takes the memory configuration value 
that is in the Accumulator, sets Bit 4 in the value 
in preparation to execute the DMA process, and then 
stores the value in the DMA command register so that 
the DMA will be executed. 


ON ENTRY: A = Memory configuration 
X = Unused 
Y = DMACMD VALUE 


ON EXIT: A = Status of the’ DMA process 
X = MMURCR configuration 
Y = DMACMD value 


+ + £ € FF FF + FF F FF HF HH F FF FF F FF HF 
+ + + % % % HF % % BH FF HF HF F FF HF HF HF 


KEKEKKKEKKEKKKKEKKKKKEKKKKKEKKKKKKEKKKKKKKKKKKKKKKKKKKKKKK KKK 


O3FO: 20 E4 O03 JSR SMMURCR ;Set the RAM BANK number 
;For the VIC memory 

O3F3: 98 TYA | ;Move the DMACMD into the 
;Accumulator 

O3F4: 09 10 ORA #EXECUTE ;Set BIT 4 to Execute the 


;DMA process immediately 
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NOTE: The DMA process will occur on the next 
instruction. 
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O3F6: 8D O01 DF STA DMACMD ;Save the DMA command 
O3F9;: 8E O06 D5 STX MMURCR ;Restore the MMURCR to its 

;Previous memory config. 
O3FC: 60 RTS ;Exit EDMA 


The following BASIC program demonstrates the usefulness of the new 
EDMA routine. Type it in exactly as it is listed and save a copy to the disk. 
Note: Make sure that your RAM expansion module is plugged in before you 
try this demo program. 


S1 
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O SCNCLR:REM FAST 

5 FORA=0TO1 

10 BANKA:FORI=DEC ("2000") TODEC ("200A") : 
POKEI, At+t48:NEXTI,A:AS="BEFORE" : GOSUB100 

20 SLOW 


31 BYTES = 10 
32 C128 = DEC("2000") 
33 REC = 0 
34 BNK = 0 


40 BANKO:STASH BYTES,C128, REC, BNK 

50 BANK1:SWAP BYTES,C128, REC, BNK 

60 BANKO:FETCH BYTES,C128, REC, BNK 

70 AS="AFTER":GOSUB140 

8— END 

100 PRINT:PRINT:PRINT"CURRENT CONTENTS ";AS;" DMA" 

101 FORA=0TO1:PRINT:PRINT"RAM BANK";A 

110 BANKA:FORI=DEC ("2000") TODEC ("200A") : 
PRINTCHRS (PEEK (I) ) ; :NEXTI,A:RETURN 


Next, run the BASIC demo program to see that the data that was stored in 
RAM BANK 0 and RAM BANK 1 before and after the SWAP are the same. 
This will show you that normally BASIC will only enable you to use RAM 
BANK 0 for DMA. However, with this short and simple modification to the 
EDMaA routine, DMA access to any RAM BANK is possible. | 


Next, type in the new EDMA routine with the machine language MONITOR. 
or an assembler and save a copy to disk. To demonstrate that the routine 
works, ensure that the new EDMA routine is in memory and rerun the 
BASIC demo program listed above. What you will see is that with the new 
EDMaA routine, the data that was stored in RAM BANK 0 was indeed 
swapped with the data that was in RAM BANK 1. 
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1.4.1.3 Graphics Demo Program 


The following program will give you some idea of what you can do with the 
extra RAM in the RAM expansion module. The program first draws 16 
hi-res screens and saves then in the REM. The program will then FETCH 
the different screens one at a time to animate the figures on the screen. The 
16 screens use 128K of the RAM in the RAM expansion module. 


Type in the program as it is listed below and save a copy to disk. Next, run 
the program. It will take a couple of minutes to set up the screens. Feel free 
to play around with the graphics commands to generate different effects. 


GOSUB28:SCNCLR:PRINT V"K OF RAM IS INSTALLED":SLEEP2 
SZ=16:FORH=0TO8 :N=INT (RND (1) *4) +1:X1 (H) =N: NEXT 
GRAPHIC3,1 | 
FORJ=0TO8 : X=X+15:X (J) =X: NEXT 
FORJ=0TO8: Y (J) =INT(RND (1) *20) +1:NEXT 
FORL=0TOSZ-1:SCNCLR 
FORI=0T08:COLOR2,I+1 
FAST :Y1=180- (3*Y(T) ) 
CIRCLE2,X(I),180,5,5,,,,90:PAINT2,X(I) ,180 
10 CIRCLE2,X(I),Y1,5,5,,,,90:PAINT2,X(I),Y1 
11 BOX2,X(I)-5,Y1,X(I)+5,180,,1 
12 CIRCLEO,X(I),Y1,5,5, 90,270, ,90 
13 DRAWO,X(I),Y1+5 TO X(I),180+Y1-5 
14 NEXTI 
15 FORK=OTO8 :Y (K) =Y(K) +X1(K) : IFY (K) <=1 OR Y(K) >=42THENX1 (K) =0 
16 NEXTK 
17 GOSUB32 
18 SLOW:STASH V,IA,AD, BN 
19 NEXTL 
20 GRAPHIC3 
21 FORL=0TO15:GOSUB32 
22 FETCH V,IA,AD,BN 
23 NEXT 
24 FORL=15TOOSTEP-1:GOSUB32 
_ 25 FETCH V,IA,AD, BN 
26 NEXT 
27 RUN21 
28 REM ** ENSURE THAT RAM EXP, IS PRESENT ** 
29 A=DEC ("DFO6") : POKEA, 255: IFPEEK (A) <>255THENPRINT"RAM NOT INSTALLED 
!!"sEND 
30 POKEA,0 
31 A=DEC("DFOO") :IF PEEK(A)AND16 THEN V=512:ELSE V=128:RETURN 
32 V=8192: IA=V:MX=65536: BN=- (L>=8) : AD=L*V-MX*BN: RETURN 


oO OA HD OP WN FE 
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1.4.2“-ROM Expansion 


There are two other ways in which ROMs are used in the C-128 that are 
particularly interesting. In fact, they allow users to use ROMs for their own 
purposes. The two other ways in which ROMs are used in the 128 are for 
the Internal and External function ROMs. 


The Internal ROM 1s presently an empty socket that was designed to be used 
in the future. This ROM. socket allows the use of up to 32K of memory area 
that is divided in two parts, $8000 -“$BFFF and $C000 - $FFFF. This area 
is accessible in BASIC with some configurations provided by the BASIC 
BANK command. — 


The External ROM, on the other hand, is quite a bit more accessible and 
usable..One of the most widely used applications of the External function 
ROM is the game cartridge. The cartridge is inserted into the expansion port 
on the rear panel of the C-128. This port also allows the use of up to 32K of 
memory to be used by the cartridge in two parts: $8000 - $BFFF and 
$C000 - $CFFF. 


1.4.2.1 ROM Software Requirements 


In order to use the Internal/External ROM(s), certain requirements have 
been placed upon the software developer of the cartridge. Even though these 
requirements are simple to meet, the operating system is quite picky about 
them. When the computer is first turned on, a routine in ROM located at 
$E26B will check all four possible locations where the ROM (s) could be 
located. These locations are shown below in their priority of testing. 


PHYSICAL ADDRESS 
BASIC BANK ADDRESS TABLE (PAT) 
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The first thing that the routine will check for is the characters 'cbm' (not 
<SHIFT>ed). If a character in the ROM does not match, then the next ROM 
is tested. If there are no ROMs found with these characters, then the system 
will place zeros in location $0AC1 thru $0AC4 which are used by another 
routine which we will discuss in just a moment. 


If the characters ‘cbm' are found to be in a ROM, then the routine will 
check to see if the ROM is an autostart ROM or not. If the value preceding 


the characters 'cbm' is a $01, then the routine will jump to the COLDSTART 
address of the ROM. 


This may start to sound complicated, but it's not. The format that the 
software in the C-128 requires is as follows. NOTE: The X could either be 
an 8 or aC depending which ROM address you are creating. 


ADDRESS DESCRIPTION 7 


$xX000 - $X002] COLDSTART address to JMP to or JSR to. 


$X003 - $X005] SPARE ADDRESS (Old 64 warm start address.) 
$X006 Auto start flag (l=auto start see text) 
$X007 - $X009|] Lower case text 'cbm' 
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1.4.2.2 Auto-starting ROMs 


The KERNAL routine that checks to see if you want a ROM to AUTO 
START checks byte 6 of the ROM. If it contains a value of $01, then the 
routine terminates and JSRs to the ROM at the starting address. For 
example, if you had a game ROM inserted at $8000 in the external ROM 
and you wanted it to autostart, the ROM would be programmed as follows: 


ADDRESS SOURCE CODE} DESCRIPTION 


$8000 - $8002 JSR $800A | Display start up screen. 
$8003 - $8005 JMP $9023 | Enter the main loop of the program. 


$8006 BYTE $01 | Flag to auto start rom 
$8007 - $8009 TXT 'cbm' | Flag to indicate a ROM is inserted here 
S800A From this point on it's up to you 





1.4.2.3. Non-Auto-Starting ROMs 


Let's say, for example, you have developed a series of routines for 
performing structural analysis which you want to market and you wish to 
give the user the capability of using these routines in their own programs by 
just simply SYSing to them. One way of accomplishing this would be to 
create the ROM as explained above and place, for instance, your trademark 
character in place of the autostart byte, byte 6 in the ROM. 


For example, let's say you used the character '@', the routine at $E26B 
would find the ROM cartridge installed and log it in the Physical Address 
Table (PAT). The reason behind the PAT table is very simple. Once a ROM 
has been found when the system is first turned on or reset, the routine at 
$E26B will ‘log' (see the table at 1.4.2.1) it in its PAT table address. This 
table in turn will be used the next time the computer is reset. 


Upon powerup or reset, one of the first things that the computer does after 
some initializations is call another ROM routine called PHOENIX which 
will check for a boot sector on track 1 sector 0 on the disk. The very first 
thing the PHOENIX ($F867) routine will do is check the PAT table to see if 
any ROMs have been logged in and if so, it will JSR to the ROM in the 
Same manner as an AUTOSTART. 
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Wedging Into BASIC 


BASIC 7.0 on the C-128 is one of the most powerful languages ever 
implemented on any of the Commodore computers. However, even with its 
powerful BASIC and all of the new commands, there are probably still 
some commands that you would like to have implemented. For instance, 
maybe some commands like KEYOFF and KEYON would be a nice addition. 
These two programs enable you to turn off the function keys and enable you 
to read and check each function key in your program, then restore them at 
any time to the original C-128 configuration. In this section we are going to 
create the KEYOFF and KEYON commands in a wedge example. 


Adding these commands and others at first may seem to be difficult to do. 
With the C-128 as is with the C-64, commands could be added by using the 
various VECTORS or the SYS command (limited on the C-128). However, 
the most popular way of wedging into BASIC is to wedge into the CHRGET 
(CHaRacter GET) routine. 


2.1 The CHRGET/CHRGOT Routine 


When the computer is first turned on or after the reset button is pressed, 
BASIC copies several routines from ROM (Read Only Memory) into RAM 
(Random Access Memory) to be used by the BASIC and KERNAL 
routines. One of these routines is called CHRGET. It is copied from ROM at 
$4279 - $4297 into RAM at $0380 to $039E. 


BASIC uses the CHRGET routine to get a character from the BASIC 
program memory or the input buffer. The input buffer is used to store 
characters from the keyboard until some action is taken to use these 
characters for other routines. Before we go any further, let's take a look at 
the CHRGET routine. 


On the next page is a disassembly of the CHRGET routine as it appears in 
memory in the C-128. 
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$0380: INC $3D 
$0382: BNE $0386 
$0384: INC $3E 
$0386: STA SFFO1 
$0389: LDY #S$00 
$038B: LDA ($3D),Y 
$038D: STA SFFO3 
$0390: CMP #S$3A 
$0392: BCS $039E 
$0394: CMP #$20 
$0396: BEQ $0380 
$0398: SEC 
$0399: SBC #$30 
$039B: SEC 
$039C: SBC #S$D0 
S039E: RTS 


NOTE: Refer to the disassembly of the CHRGET routine listed above when 
reading the step-by-step description of the routine. 


LOCATION 


$0380 - $0384 


$0386 


$0389 - $038B 


$038D 


DESCRIPTION 


;The TeXT PoinTeR (TXTPTR) is incremented by one 

sto point it to the next character in memory. 

;NOTE: The TeXT PoinTeR is stored in locations $3D/$3E in 
;LSB/MSB format and is used to hold the address of the 
s;next character in memory. 


;This instruction is used to ensure that the character is 
;taken from RAM BANK O which is used for BASIC program 
;storage. If the CHRGET routine is entered here, it is 
;called CHRGOT (CHaRacter GOT) .CHRGOT accomplishes the 
;same job as CHRGET except the TeXT PoinTeR is not 

; incremented. 


;Here the character is taken from memory and stored into 
the Accumulator. If the CHRGET routine is entered here, 
sit is called QNUM (Query for NUMber). 


;This instruction is used to ensure that the memory is 


;reconfigured to have all ROMs in place and RAM BANK 0 
;enabled which is the same thing as a BASIC BANK 14. 
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$0390 ;If the character is a colon or greater, the routine 
;exits with the carry flag set. If the CHRGET routine is 
entered at this point, it is called QNUM which stands 
;for Query NUMber. 


$0394 - $0396 ;If character is a space, then the routine skips it and 
;gets the next character. 


$0398 - SO39E ;The character is checked to see if it is an ASCII digit 
;0-9 by first subtracting $30 and then $D0O. If the char- 
;acter is a digit, the carry flag will be cleared. If the 
;character is not a digit, then the carry flag is set. 


2.2 Wedging into the CHRGET Routine 


One of the reasons that you might want to wedge into the CHRGET routine 
is to implement a new command. However, before you can implement a 
new command, you must modify the CHRGET routine so that it checks for 
the new command. 


If you were to put a JMP or JSR to the routine for the new command at the 
beginning of CHRGET, the new routine would be executed each time that 
CHRGET was called but, not when CHRGOT was called. In addition, the 
new routine would have to increment TXTPTR and read in the next character 
itself. Consequently, in order to accomplish what you set out to do with the 
minimum amount of work, you will have to put the JMP to the new routine 
at $038D, where the new routine will be executed whenever CHRGET or 
CHRGOT is called and the current character that the operating system is 
about to process is already in the Accumulator. 


NOTE: Whenever you make any changes to CHRGET or CHRGOT, 
remember that you must perform the instructions that you replaced with the 
JSR or JMP. If you do not perform the instructions that were deleted, 
CHRGET will not function properly and it could cause the system to crash. 


To illustrate how to wedge into CHRGET to implement a new command, a 
routine was written to implement the KEYON and KEYOFF commands. As 
you will find by reading the ROM listings for the KEY command, even 
though these commands are tokenized by the BASIC operating system, they 
were not implemented when BASIC 7.0 was written. 
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The KEYOFF command redefines the eight function keys to the CHR$ 
values that are used for the function keys in the C-64. The KEYON 
command returns the definitions of the function keys to the C-128 KEY 


definitions. These commands may also be used in the PROGRAM (RUN) 
mode as well as the DIRECT mode. 


The starting address for the KEYON/KEYOFF routine is $0C00. However, 
the machine code from $0C00 to $0C09 puts the JMP $0C10 into $038D. 
The actual KEYON/KEYOFF command routine starts at $0C10. Therefore, 
we will place a JMP $0C10 instruction at location $038D as shown below 
in the partial disassembly of the modified CHRGET routine. 


BEFORE THE AFTER THE 

— MODIFICATION __MODIFICATION _ 
$0389: LDY #$00 $0389: LDY #$00 
SO38B; LDA (S3D).¥ SO038Bi LDA (53D) .¥ 
SO38D; STA SFFO3 SO38D; MP _ SOCi0 
$0390: CMP #$3A $0390: CMP #$3A 


The following disassembly and description are for the new routine that 
implements the KEYON/KEYOFF commands. Once you have typed in either 
the BASIC generator program or the source code using a machine language 
MONITOR, you must SYS DEC ("0C0O") to initialize the routine. 


Once the routine is initialized, the only way that you can interrupt the 
operation of the routine is to either shut the 128 off, press the RESET 
button, or go into the C-64 mode. To use the new commands, type 
KEYOFF to define the function keys to the C-64 definitions and type KEYON 
to return the function keys to the C-128 definitions. 
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OcO00:. 
0CO02: 


0Cc04: 
OCcO06: 
0CcO9: 


OcoCc: 
OCOF: 


0C10: 
0C12: 
0C14: 


0C16: 
0C17: 


OC1A: 
0C1C: 
OC1E: 


0C20: 


cg 
DO 
AO 


C8 
20 


C9 


FO 


C9 


FO 


ORG 

CHRGET 
CHRGOT 
INDTXT 


PKYBUF 
PKYDEF 


;CHaRacter GET routine 
;CHaRacter GOT routine 
;INDirect load from TeXT 
;pointer 


,;Programmable KeY BUFfer 
;Programable KeY DEFinitions 


* * 

* Here is where we WEDGE into the CHRGET routine by * 

* inserting a JMP instruction to the new routine at * 

* $038D. * 

* * 

ee ee * 

oc LDY #>WEDGE ;Get the MSB and 

10 LDA #<WEDGE ;The LSB of the address of 
;The new routine 

4c LDX #S4C ;Opcode for JMP 

8D 03 STX  $038D ;Save the JuMP ° 

8E 03 STA $038E ;To the new routine 

8F 03 STY  $038F ;In CHRGET 

RTS ;And exit to activate it 

* mem meee eee wm ew ee ee ee ee we ee ww we ew we ew ww ww ew Oe em ew ew eww www wee ee = * 

* * 

* This section checks to see if the command KEYON or * 

* KEYOFF was used. - 

* * 

Gk ce cs oe ae a en's ces cess, ees Scene “Gem mses “ces Sass oes ses ee ‘coe a ce es sess ee ce ee * 

F9 WEDGE CMP #SF9 ;Is it the token for 'KEY'? 

1F BNE NOTKEY ;If not, then exit 

00 LDY #$00 sIf it is, then set up an 
;Index to next character 

SPACE INY ;Increment index register 

C9 03 JSR INDTXT ;Get next character after 
;The token for ‘'KEY' 

91 CMP #$91 ;Is next character the 
;Token for 'ON' ? 

36 BEQ KEYON ;Yes, then turn the 
s;function key definition on 

FE CMP #SFE s;If not, is it the value 
;For a dual token ? 

07 BEQ CHKDUAL sYes (first token for OFF) 
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0C22: C9 20 CMP #$20 ;Is there a space between 
;Key and ON or OFF? 
0C24: FO FO BEQ SPACE ;If so, then skip it and get 


;The next character 


* * 

* At this point, the TOKEN for KEY was found, but the * 

* next character after it was not the TOKEN for - 

* either of the new commands. So a JuMP is made to * 

* execute the old KEY command. i 

* * 

ewe eee ee mew ww ew ew ee ww ww ww eww Ow www ww ww ww ww ww ww www ww eww ww ew we * 
0C26: 4C 31 OC JMP OLDKEY 

* ee ee ee ee ee ee ee a ee a = = = = ee * 

* * 

* CHECK FOR THE DUAL TOKEN FOR KEYOFF * 

* * 

* This section of machine code will check to see if * 

* the token after SFE is $24. If it is, then the dual * 

* command token is for the new command KEY OFF. i 

* * 

Xa Se a a ee se eS Se SS ee ee * 
0C29: C8 CHKDUAL INY ;Move to character after 

;The dual token 
OC2A: 20 C9 03 JSR INDTXT ;Get the character 
OC2D: C9 24 CMP #524 sIs it the token for 'OFF'? 
OC2F: FO 08 BEQ KEYOFF ;Yes, then turn the 
;Function key definition off 

0C31: AQ F9 OLDKEY LDA #SF9 ;Get the token for 'KEY' 
0C33: 8D 03 FF NOTKEY STA SFFO3 ;Enable BANK 14 for CHRGET 
0C36: 4C 90 03 JMP CHRGOT ;Return to normal routine 

ee ee ee ee ee ee ee ee ee ee ee * 

* * 

* THE KEYOFF ROUTINE * 

* * 

* This routine defines the eight function keys to the * 

* values that are used in the C-64. - 

* * 

Kee eww ew we eM ew ww we we www ow oe ow wm we we we we we wr we on we ew we ww ow wr a oe ww ee ee ee * 
0C39: 20 80 03 KEYOFF JSR  CHRGET ;Update TXTPTR 
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0C3C: 


OC3E: 
0c41:; 


0C44: 
0C45: 


0C47: 
0C49: 
OC4B: 


OC4E: 


AO 


B9 
99 


88 
10 


AO 
A9 
99 


88 


+ + + + + HH FE HF HF FF HF F F HF F F F HB HF 


KEYOFF FUNCTION KEY DEFINITIONS 


This section of machine code changes the eight 
function key definitions to the values that are used 
on the C-64. 


The following table give the definitions for the 
eight function keys after the KEYOFF command has 
been executed. 


Fl = CHRS§$ (133) F2 
F3 = CHRS (134) F4 
F5 = CHRS (135) F6 
F7 = CHRS (136) F8 


SHIFT/RUN-STOP = CHRS$ (131) 


The following listed keys are also redefined by the 
KEYOFF command. 
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= CHRS (137) 
= CHRS (138) 
= CHRS$ (139) 
CHRS$ (140) 


* + + + % FF %F % HF HF HF % HH HF HF FF FF F F KF HF HF 


HELP KEY = CHRS (132) 

Ses cen a ce ee ce ee ee ce es es ee. ts a es ee a es ee ee is ee ee i ee * 

09 LDY #$09 ;Set up an index to the 
;Number of definitions 

DD C6 NEXTKEY LDA SC6DD,Y ;Get the 64 key 

OA 10 STA PKYDEF,Y ;configuration place it in 
sthe key definition table 

DEY ;Move to next definition 

F7 BPL NEXTKEY ;Continue until all 10 keys 
;Are done 

Fe ce eee ce cee ee ee ee we we we we we ww a a a ee a a a ww wn ow ns wr we ow we oe = = = * 

* * 

* Here we reset the definition lengths of the eight * 

* function keys to l. * 

* * 

Kies a ae a a oe a a ee a ae es a a a a ee ee SS Se SS * 


00 10 


LDY 
LDA 
NEXTKEY1 STA 


DEY 


#509 
#501 
PKYBUF,Y 
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OC4F;: 10 FA BPL NEXTKEY1 ;Continue until all 8 keys 
;Are done 
0C51: 4c 5F OC JMP EXIT ;And exit 
I ce i cs “cs em ‘ce s,s ee ee ee ee ee as Sa a is * 
* * 
* THE KEYON ROUTINE * 
* * 
* This routine will restore the eight function keys to * 
* their original definitions. * 
* * 
Fee ee a a es ee ee ae ee ee a ee ee ee ee ee ee ee ee ee ee ee * 
0C54: AO 76 KEYON LDY #$76 ;Set up an index to the 
;default key definitions 
0C56: B9 A8 CE NEXTKEY2 LDA SCEA8, Y ;Get a chracter from the 
;Original definitions 
0C59: 99 00 10 STA PKYBUF,Y ;Save them | 
OC5C: 88 DEY ;Move to the next character 
OC5D: 10 F7 BPL NEXTKEY2 ;Continue until all of the 
;Keys have been restored 
OCSF: 20 80 03 EXIT JSR CHRGET ;Update TXTPTR 
OC62: 4C 80 03 JMP CHRGET ;And exit to the normal 
;routine 


If you choose to use the BASIC generator program for the 
KEYON/KEYOFF routine, type the program exactly as it is listed here. 


10 REM KEYON/KEYOFF, BASIC 7.0 INTERNALS 

20 LN=160 :A=DEC ("0C00") 

30 FORI=ATOA+t102STEP8 

40 FORJ=0TO7:READDS 

50 V=DEC (DS) 

60 POKEI+Jd, V: CK=CK+V 

70 NEXTJ 

80 READCKS : IF (CKAND255) <>DEC (CK$) THEN 
PRINT"ERROR IN LINE "LN:GOTOL50 

90 LN=LN+10 

100 CK=0:NEXTI 

110 PRINT"DO YOU WANT TO SAVE THIS PROGRAM ?" 

120 GETKEYAS: IFAS="N"THEN 140 

130 BSAVE "KEYON/KEYOFF.0",B0O,P3072 TO P3175 

140 PRINT"TYPE 'SYS 3072' TO ACTIVATE" 

150 END 
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160 DATAA0,0C,A9,10,A2,4C, 8E, 8D, 6E 
170 DATAO3, 8D, 8E, 03, 8C, 8F, 03,60, 9F 
180 DATAC9,F9,D0,1F,A0,00,C8,20, 39 
190 DATAC9,03,C9, 91,F0,36,C9,FE, 13 
200 DATAFO,07,C9,20,F0,F0,4C,31, 3D 
210 DATAOC,C8,20,C9,03,C9,24,F0, 9D 
220 DATA08,A9,F9,8D,03,FF,4C,90, 15 
230 DATA03,20,80,03,A0,09,B9,DD, E5 
240 DATAC6,99,0A,10,88,10,F7,A0, A8 
250 DATA09,A9,01,99,00,10,88,10, F4 
260 DATAFA, 4C,5F,0C,A0,76,B9,A8, 28 
270 DATACE, 99,00,10,88,10,F7,20, 26 
280 DATA80,03,4C, 80,03, 6E,73,2D, 60 


After you have finished typing in the generator program, save a copy of the 
program to disk just in case an error causes the loss of the program in 
memory. Next, type RUN and press <RETURN>. After a few seconds, the 
program will ask if you wish to save the object code of the program. Type 
<Y> to save, <N> to run without saving. Once the KEYON/KEYOFF 
program has been saved to the disk, type SYS 3072 or SYS 

DEC ("0C0O0O") and press <RETURN> to activate the new command 
routines. You can also attempt to use the BASIC command: 


BOOT "KEYON/KEYOFF", BO 


It might even work, but there is a bug in the BOOT command which causes 
the system to break if you are using a disk drive that doesn't support the fast 
serial bus—see the BOOT routine for more details. 


If an error is found in the DATA statements, an error message will be printed 
indicating which DATA statement the error is in. Correct the error in the 
DATA statement, save a copy of the program to disk, and RUN the generator 
program again to save the KEYON/KEYOFF routine to disk. 


To test the new commands, enter KEYOFF and <RETURN>. Then type 
KEY and press <RETURN3> to display the current function key definitions. 


What you should see is that the function keys are now defined to the same 
values as the C-64 function keys. To return the function keys to the initial 
C-128 definitions, type KEYON and press <RETURN>. To confirm that 
the function keys have been redefined to their original C-128 values, type 
KEY and press <RETURN3> to display the current function key definitions. 
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The KEYON/KEYOFF routine does not save the current function key 
definitions before it redefines them to the C-64 values. Consequently, if you 
redefined the function keys and then did a KEYOFF and then a KEYON, the 
function keys would be returned to their original C-128 definitions and not 
to the definitions you had before you executed the KEYOFF command. 


If you want to use the new commands in your BASIC program, simply use 
the keyword as you would any other keyword that the C-128 uses. For 
example, this little program will display the function key definitions for the 
keys in both the KEYON and KEYOFF states. 


10 SCNCLR 

20 KEYOFF 

30 PRINT "C-64 DEFINITIONS" 
40 PRINT “---------------- " 
50 KEY 

60 KEYON 

70 PRINT:PRINT 

80 PRINT "C-128 DEFINITIONS" 
90 PRINT "“"----------------- 1" 
100 KEY 


The following BASIC program will demonstrate the use of the KEYOFF and 
KEYON commands. 


10 KEYOFF 

20 DO 

30 GETKEYAS 

40 B=( (A<137) +85—-(A-133) ) 

50 A=ASC (AS) 

60 IFA>136 THEN B=B+(7+(A>136) ) 

70 PRINT"THAT WAS THE F"CHRS(A-B)" KEY" 
80 LOOP 


As you have seen, it is quite easy to wedge into the CHRGET routine to 
implement new commands and new routines. The number of routines that 
could be written to perform a function similiar to the KEYON/KEYOFF 
routine are only limited by the ambition and imagination of the programmer. 
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Graphics 


BASIC 7.0 offers a total of 10 graphics commands to greatly simplify the 
programming of High resolution (Hi-res) graphics on the Commodore 128. 
You can now draw lines, boxes, circles, etc., with just a few commands, as 
compared to the lengthy C-64 programs requiring PEEKs and POKEs. But 
even with all of its specialized commands, BASIC 7.0 cannot cover all of 
the capabilities of the C-128. We'll cover the different aspects and 
capabilities of the C-128 graphics system in this chapter . 


3.1 Managing Memory 


The Commodore 128 has a total of 128K of RAM, which is divided into 
two RAM banks of 64K each. The reason for this is because the 8502 
microprocessor can only access 64K of RAM at any one time. Both the 
8502 and the VIC chip can each address a different 64K RAM bank. 


The VIC chip RAM bank is selected by the RAM configuration register at 
location $D506 (Bits 6 and 7). Bit 7 of this location is currently unused. To 
select RAM bank 1 for the VIC chip, bit 6 must be set to 1 and for RAM 
bank QO, bit 6 must be set to O. 


The following BASIC and machine language instructions accomplish this: 


To select RAM bank 0: 


BANK 15:POKE DEC("D506"),PEEK (DEC("D506")) AND 191 


In machine language : 


LDA #$00 ;Set the memory configuration 
STA SFFOO ;To BANK 15 to enable I/0 

LDA $D506 ;Get the current value in $D506 
AND #SBF ;Clear bit 6 to select RAM bank 0 
STA $D506 ;And store it as the new value 
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To select RAM bank 1: 


BANK 15:POKE DEC("D506"),PEEK (DEC("D506")) OR 64 


In machine language: 


LDA #$00 ;Set the memory configuration 
STA SFFO0O ;To BANK 15 to enable I/O 

LDA $D506 ;Get the current value in $D506 
ORA #$40 ;Set bit 6 to select RAM bank 1 
STA $D506 ;Store it as the new value 


Even though the 8502 can access 64K of RAM at a time, the VIC chip can 
only access 16K of memory at a time. Each of these 16K blocks of RAM 
are called VIDEO BANKS. So with 128K of RAM, that gives us 4 video 
banks in each 64K RAM bank for a total of 8 video banks. 


Two types of memory must be contained within a video bank; screen and 
character memory. You can select the video bank that the VIC chip will 
access by modifying bits 0 and 1 in location $DD00. 


In BASIC : 


POKE DEC ("DD00"), (PEEK (DEC ("DD00")) AND 252) OR X 


In machine language: 


LDA $DDO0O ;Get the current value in S$DDOO 
AND #SFC ;Clear bits 1 and 0 | 
ORA #$ X ;Set the selected configuration 
STA SDDOO ;And store the value back 


X = Value from the table below 


NOTE: To be able to read or write to RAM in the same area as ROM, you 
must select the memory configuration that contains RAM in these areas. 


——_VIDEO BANK __ MEMORY RANGE BITS .-—S§_ CCU DEC, VALUE (X) 
SO0000-S3FFF DEFAULT 

$4000-S7FFF 
S8000-SBFFF 
SCOOO-SFFFF 


WN EH O 
OCOrRF 
OrROPR 


3 
2 
1 
0 
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3.1.1 Moving Screen and Character Memory 


When changing to a different video bank, you must move the location of 
screen and character memory. The C-128 uses the same register for moving 
screen and character memory as the C-64 ($D018), but the C-128's 
Interrupt driven screen editor uses the indirect registers at locations $0A2C 
(2604) and $0A2D (2605) to select the value in $D018. If you try to modify 
the register at $D018, the Interrupt routine will automatically reset it to the 
values that are at locations $0A2C and $0A2D. 


Consequently, if you want to program the VIC chip directly, you must 
disable the Interrupt routine by storing a 255 in location $D8 (216). Then 
you can program the VIC chip just as you would on the C-64. 


NOTE: The register at location $D8 (216) is automatically reset and the 
Interrupt driven screen editor is restarted when any BASIC graphics 
commands are executed. 


_ The values below are valid only if the Interrupt driven screen editor is on. 


Location $D8 (216) Bit 7 Multicolor Bitmap mode 
Bit 6 Split screen 
Bit 5 Standard Bitmap mode 
Location S$OA2C (2604) Used for moving character and screen memory in 
text mode. 
Bits 7 - 4 control screen memory 
Bits 3 - 1 control character memory 
Location S$OA2D (2605) Used for moving screen memory and the location 
of the Hi-res screen in the Bitmap mode 
Bits 7 - 4 control screen memory 
Bit 3 controls location of the Bitmap 


The BASIC and machine code instructions below move the screen memory. 
In BASIC : 


POKE V, (PEEK(V) AND 15) OR X 
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In machine language : 


LDA $V ;Get the current screen location 
AND #S0OF ;Drop the old screen location 
ORA #S X ;Replace it with the new location 
STA $V ;And store it back 


V = $0A2C for text mode and $0A2D for bitmap mode or $D018 if 
the Interrupt driven screen editor is disabled 
X = Value from the table below: 


Location of Screen Memory 


MEMORY RANGE BITS 7 6 5 4 DECIMAL VALUE (xX) 


$0000-SO3FF 0 0 0 0 0 
$0400-SO7FF 0 0 0 1 16 DEFAULT 
$O800-SOBFF 0 0 1 O 32 
SOCO0-SOFFF O 0 1 1 48 
$1000-$13FF Oo 1 0 0 64 
$1400-S17FF Oo 1 0 1 80 
$1800-S1BFF Oo 1 1 =O 96 
$1C00-S1FFF O 1 1 1 112 
$2000-S23FF 1 0 0 0 128 
$2400-S27FF 1 0 0 1 144 
$2800-S2BFF 1 0 1 O 160 
$2CO00-S2FFF 1 0 1 1 176 
$3000-S$33FF 1 1 0 0 192 
$3400-S$37FF 1 1 0 1 208 
$3800-S3BFF 1 1 1 0 224 
$3CO0-S3FFF 111 ii1 240 


NOTE: The value that results when you multiply the video bank number by 


the value $4000 (VB# * $4000) must be added to each of the starting 
addresses. 


For example, to generate the offset value for the first starting address, you 
would calculate the following: 


(VB# * $4000) = 2 * $4000 = $8000 


Next take the offset value and add it to the first address in the table to find 
the starting address of the RAM bank that is desired (SA + offset). 
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In our example, this would be: 


(SA + offset) = $0000 + $8000 = $8000 


In the standard character mode, the character set is located in ROM starting 
at location $D000. In the C-128, you have the ability to have the standard 
character set appear in any one of the 8 video banks by clearing the CHAREN 
bit (bit 2) in location 1. For example, this allows the VIC chip to ‘see’ the 
ROM character set in any video bank. If you wish to use your own 
character set, bit 2 of location 1 must be set to 1. Bits 3-1 in location 
$0A2C and $D018 are used to move the location of the character set. Bit 0 
is not used. 


The following BASIC and machine language instructions allow you to 
move character memory. 


In BASIC : 


POKE V, (PEEK(V) AND 240) OR X 
machine language : 


LDA $V ;Get the current character location 
AND #SFO ;Drop the old character location 
ORA #$ X ;Replace it with the new location 
STA SV ;And store it back 


V = $0A2C for text mode or $D018 if the Interrupt driven screen 
editor is disabled 
X = Value from the table on the next page: 


Location of Character Memory 


MEMORY RANGE BITS 3. 2 1 DECIMAL VALUE (xX) 
SOO000-SO7FF 
SO800-SOFFF 
$1000-S17FF 
$1800-S1FFF 
$2000-S27FF 
$2800-S2FFF 
$3000-S37FF 
$3800-S3FFF 


PrPPrRPOOO;O 

PRPOODOrPrRO;O 

rFPOrRPORrRPORFO 
co 
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NOTE: The value that results when you multiply the video bank number by 


the value $4000 (VB# * $4000) must be added to each of the starting 
addresses. 


For example, to generate the offset value for the first starting address, you 
would calculate the following: 


(VB# * $4000) = 2 * $4000 = $8000 


Next take the offset value and add it to the first address in the table to find 
the starting address of the RAM bank that is desired (SA + offset). 


In our example, this would be: 


(SA + offset) = $0000 + $8000 = $8000 


3.1.2 Color Memory 


In the C-128, the color memory occupies the range $D800 (55296) to 
$DBE7 (56295). This corresponds directly to the screen memory in the 
standard character mode. For example, with the text screen at location 
$0400-$07FF, location $D800 controls the color of location $0400, $D801 
controls the color of location $0401, etc. | 


The C-128 has 2 color RAM banks that are controlled from bits 0 and 1 of 
location $0001. These 2 bits are labeled LORAM and HIRAM respectively. 

LORAM selects the color RAM bank that the 8502 microprocessor is 
currently accessing and HIRAM selects the color RAM bank that the VIC 
chip is accessing. This allows you to change the color of the text screen or 
the multicolor bitmap instantly. It also allows you to change the color of one 
screen while viewing another. Normally, the operating system will only 
allow you to use color RAM bank 0. Every time a graphics command is 
executed, the operating system automatically selects color RAM bank 0. 
However, there is a way around this. 


First, you must disable the Interrupt driven screen editor by storing a 255 
(SFF) to location $D8 (216) so you can modify location 1 without the editor 
automatically resetting it. Then set bit 0 of the DDR register in location 0 to 
an input (0). This will not allow the operating system to modify the 
LORAM bit in location 1. The following program illustrates this process. 
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10 COLOR 3,1 >REM SET MULTICOLOR 2 TO BLACK 
20 GRAPHIC 3,1 :REM ENABLE MULTICOLOR BITMAP AND CLEAR IT 
30 BOX 3,90,90,60,60,45,1 :REM DRAW A BLACK BOX ON THE BITMAP 
40 POKE 216,255 :REM DISABLE INTERRUPT DRIVEN SCREEN EDITOR 
50 POKE 1, (PEEK(1) AND 252) OR 3 :REM ENABLE COLOR RAM 1 FOR VIC & 8502 
60 POKE 0,PEEK(0) AND 252 :REM SET DDR TO INPUT 
70 COLOR 3,7:COLOR 2,2: 
REM SET MULTICOLOR 2 TO BLUE,MULTICOLOR 1 TO WHITE 
75 CIRCLE 2,75,75,23,23 :REM DRAW A WHITE CIRCLE 
80 BOX 3,90,90,60,60,45,1 :REM DRAW A BLUE BOX ON THE BITMAP 
90 POKE 0, (PEEK(0) AND 252) OR 3 :REM RESET DDR TO OUTPUT 
100 POKE 216,255 :REM DISABLE INTERRUPT DRIVEN SCREEN EDITOR 
110 DO :REM START OF LOOP 
120 POKE 1,PEEK(1) AND 252 :REM ENABLE COLOR 
130 SLEEP 1 :REM DELAY 
140 POKE 1, (PEEK(1) AND 252) OR 3 :REM ENABLE COLOR RAM 1 
150 SLEEP 1 >REM DELAY 
160 LOOP :REM CONTINUE 


This program first draws a black box on the screen whose color will be 
stored in color RAM 0. Then the LORAM and HIRAM bits are set to 1 to 
enable the 8502 to write to color RAM 1. This also allows the VIC to 
display color RAM 1. The corresponding bits in the DDR register at location 
$0000 are then set to input so the operating system does not default to color 
RAM 0. Then a white circle is drawn around a blue box which is in the 
same location as the black box, only the color of the blue box goes into 
color RAM 1. Then the program loops, first displaying color RAM 0 then 
color RAM 1. To stop the program, press <RUN/STOP> <RESTORE>. 


3.1.3 Moving the Bitmap Screen 


The standard bitmap screen on the C-128, as on the C-64, is 320 pixels 
wide by 200 pixels high. This adds up to a total of 64000 pixels that 
comprise a whole bitmap screen. Each pixel corresponds to one bit and 8 
bits make 1 byte, so a standard bitmap screen uses a total of 8000 bytes of 
memory. Since one video bank is 16K this means that there are only 2 
places in each video bank for a bitmap screen. Whether the bitmap resides in 
the upper or lower half of the video bank is dependent on bit 3 of location 
$0A2D or $D018. Even though there is room enough for 2 bitmaps in each 
video bank, you need 1K of the video bank for the screen. So we can have 
only one bitmap per video bank, or a total of 8 bitmaps stored in memory. 
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The following instructions allow you to select the location of the bitmap. 
BASIC: 

POKE V, (PEEK(V) AND 247) OR X 
machine language : 


LDA $V 
AND #5F7 
ORA #5 X 
STA $V 


Where: V = $0A2D or $D018 if the Interrupt driven screen editor is disabled 
X = Value from the table below: 


Location of the Bitmap 


Value of bit 3 (X) 
Video Bank 0 (0) jj (8) 


0 $0000 $2000 
u $4000 $6000 
2 $8000 SA000 
3 $cO000 SEOO0O 


NOTE: When using any of the above information to move the bitmap or 
use a different video bank, remember that the operating system expects the 
bitmap to be at location $2000 in video bank 0 and its corresponding screen 
memory starting at location $0400. 


For example, when a graphics command such as DRAW is executed, the 
operating system always writes to location $2000 - $3FFF expecting the 
bitmap to be there. 


So if you move the location of the bitmap, BASIC 7.0 graphics commands 
cannot be used to draw on the hi-res screen. 
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3.2 Hi-res Graphics from Machine Language 


Although BASIC 7.0 has some powerful graphics commands, these same 
routines can easily be used from machine language. This keeps you from 
having to write your own graphics routines from scratch. The following 
table shows some of the different graphics routines accessible from machine 
language, and the appropriate parameters for each. 


ACTION ___CUBASIC EQUIVALENT ____—CADDRESS CC PARAMETERS _ 


Plot a point 


Draw a line 


Draw a box 


Fill area 


Clear screen 


DRAW 1,X,Y S9BFB $1131,$1132 
§$1133,$1134 
$116B 


DRAW 1,X,Y TO X,Y $9B30 $1131,$1132 
$1133,$1134 
$1135, $1136 
$1137,$1138 
$116B 


BOX 1,X1,Y1,X2,Y2 $62D7 $1150,$1151 
$1152,$1153 
$115C,$115D 
$115E,$115F 
$1154 
X Register 


PAINT 1,X,Y $61CO Accumulator 
an area defined by 

$1131,$1132 

$1133,$1134 


SCNCLR (mode) S$6A92 X Register 
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X Coordinate 
Y Coordinate 
1 = Double width 
0 Single width 


Start X Coord. 
Start Y Coord. 
End X Coord. 
End Y Coord. 
1 = Double width 
0 = Single width 


Top right X Coord. 
Top right Y Coord. 
Bottom rt X Coord. 
Bottom rt Y Coord. 
Rotation angle 
Fill flag 

O-= No: .fa.11. 


Mode flag 128 = Fill 
non-background source 
X Coordinate 
Y Coordinate 


Screen to clear 
O = 40 Col. text 
1 = Standard Bitmap 
2 = Split-screen 
Std. Bitmap 
= Multicolor Bitmap 
Multicolor Split 
5 = 80 Col. text 


m WW 
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ACTION BASIC ROUIVALENT CCAD DRESS CCPARAMETERS 
Print chars. CHAR1,Col,Row,Str $68DB Accumulator Character to output 
X Register Column 
Y Register Row 
$113D Reverse Flag 
128 = Reverse Chars. 
0 Normal Chars. 
$1168 Page number (MSB) of 
. character set in ROM. 
Ex: $DO for the standard character set 


NOTE: On all of the above, location $83 should contain the color source 
number. All X and Y coordinates are stored in LSB, MSB format. 


The following routine is the equivalent of the BASIC 7.0 command 


BOX 1, 20,20,50,50, 45,1, which draws a filled box that 1s rotated 
at a 45 degree angle on the hi-res screen. 


-LDX #$01 ;Select standard bitmap 

JSR $6A92 ;Clear it 

LDA #S$01 

STA $83 ;Select color source 1 

LDA #S00 

STA $1151 ;Set the MSB of the 

STA $1153 ;Coordinates 

STA $115D ;To zero 

STA $115F 

LDA #$14 ;Set the top right 

STA $1150 ;X coordinate 

STA $1152 ;And the top right Y coord. to 20 
LDA #$32 ;Set the bottom right 

STA $115C ;X coordinate and 

STA $115E ;The bottom right Y coord. to 50 
LDA #$2D ;Set the rotation angle 

STA $1154 ;To 45 degrees 

TAX ;Select Fill 

JMP $62D7 ;Draw the BOX 


Of course, these are not the only graphics routines that can be called from 


machine language. There are several routines that can be used. They can be 
found in commented form in the ROM listings for $6000 and $9000. 
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The BASIC 7.0 ROM Listing 


This is probably the longest single chapter you'll ever see, encompassing 
about 500 pages. This disassembled and commented ROM listing details the 
BASIC commands, and how the operating system determines which 
command or function is called, as well as when each command or function 
is required. 


Since different versions of the C-128 operating system have been released, 
your addresses and jumps may occasionally be different from this listing. 
To confirm any discrepancies, examine your own BASIC 7.0 with the 
machine language MONITOR equipped on your C-128: 


1. Turn on your C-128. 


2. Press function key 8 (<SHIFT>-<F7>), or type MONITOR and 
press <RETURN>. 


3. To display a memory range in BASIC 7.0, use the M (memory) 
command. For example, to see memory from $451E to $4576, 
type M F451E F4576 on the keyboard and end this input with 
<RETURN>. 


4. Amore detailed listing can be seen by using the D (disassemble). 
To disassemble machine code into assembly language mnemonics 
and operands from $4000 to $401A, type D F4000 F401A 
<RETURN>. The disassembled code also includes the 
hexadecimal values of the code. 


5. | Toexit the monitor and get back to BASIC, type X <RETURN>. 


If you have any questions about the MONITOR, refer to Appendix J of the 
Commodore 128 System Guide. 
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ADDR 

4000: 
4003: 
4006: 


KKKKKKHKHKKKKEKKKKKEKKKKKKKKKKEKKKEKKKKKKKKKKKKKEKKKK KKK KR KEK 


COMMODORE 128 ROM LISTINGS 


* * 
* * 
* * 
* BASIC ROM LOW ( $4000 - $7FFF ) * 
* * 
* * 
* * 


KKK HK HH HKHKKHKKKKKKK KKK KKEKKKKEKKKKEKKKKKKKKKKKKKKKKKKK KEK 


KaKK KK Ka KKKKKKKKKEKKKKKKKKRKKEKKKEKKKKKKKKKKKRKKKKKEKKKKKKEKKKEK 


KERNAL TO BASIC JUMP ADDRESSES 


addresses for the KERNAL so that it may allow 
the BASIC operating system to take control. 


+ € £€ £€ &£ &F F 


* 
* 
* 
* Addresses $4000, $4003, and $4006 are used as jump 
* 
* 
* 
* 


kkKKKKKKKKKKKKKEKKKKKKKKKKEKKKRKKKKKEKKKKKEKKKKKKEKKKKRKKKKKKKEK 


SOURCE CODE COMMENTS 

JMP $4023 ;Cold start entry point 

JMP $4009 ;Warm start entry point 

JMP SA84D ;Interrupt ReQuest entry point (BASIC IRQ) 


ka KkkKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKRKKKKK KK KKK KKK 


WRMSTRT 
WaRM STaRT entry point 


* 

* 

* 

* 

* 

* This routine resets the I/O channels to the screen 
* for output and the keyboard for input, sets up the 
* sprite and sound tables, sets up the Memory 

* Management Unit for BASIC, resets the string stack, 
* and then prints the READY message to the screen. 

* This routine is also jumped to when the RUN/STOP 

* RESTORE key combination is used, when the C-128 

* is first turned on, and when you exit the monitor. 
* NOTE: You may wish to change the jump address at 

* $0A00 to point to S40FF or $401C to prevent the 

* monitor from resetting these pointers. 

* 

* 


+ € &€ + + &€ € € FF & FF FF F FF F F F 


KkKkKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 
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4009: 


400C: 


400F; 
4012; 
4015; 
4018: 
401A: 
401CcC; 
401D: 


4020: 


4023: 
4026: 
4029: 
402C; 
402F; 
4032; 
4034; 
4037: 
4039: 
403C: 
403E: 
403F:; 
4042: 


JSR 


JSR 


JSR 
JSR 
JSR 
LDA 
STA 


CLI 


JMP 


~BYTE $0,S$FF,S5FF 


JSR 
JSR 
JSR 
JSR 
LDA 
ORA 
STA 
LDX 
STX 
LDX 
TXS 
JSR 
JMP 


SFFCC 


S$417A 


$418D 
$4112 
$5238 
#0 
$15 


$4D37 


;Clear any open channels; Set system to default 
;1/O (screen as output and keyboard as input). 
;Set up MMU configuration registers for the 
;BASIC interpreter 

;Clear sprite speed/direction table 

;Set up the default values for sound registers 
;Reset the string stack pointer to $1B 

;Set the current input device 

;for screen prompting 

;Allow background jobs to start (INTERRUPTS) 
;Print READY to the screen, enable KERNAL 
;Messages and disable control messages 

;Spare jump address (unused) 


KKKKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKKKEKKKKKKKKKKKKKKKEKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


CLDSTRT 


CoLD STaRT entry point 


This routine sets up the Memory Management Unit and 
various BASIC vectors and rouines, prints the 


start-up message to the screen, 


KERNAL routine PHOENIX check for an auto boot disk 


in DRIVE 0, DEVICE 8. 


This routine is normally called when the 128 is 


first turned on, 
is depressed. 


S417A 
$4251 
$4045 
$419B 
SOA04 
#1 
SOA04 
#503 
SOAO0O 
#SFB 


SFF56 
$401C 


* 
* 
* 
* 
* 
* 
* 
and then has the * 
* 
* 
* 
* 
and also whenever the reset button * 

* 

* 

* 


KHKKK KKK KKH KKH KKK KK KKK KKK KKK KKKKKKKEKKKKKKKKKKK KKK KKK KK KEK 


;Set up Memory Managment Unit 

;Set up the vector tables for BASIC 

;Set up the various jmp/zero page RAM routines 
;Print the CBM and MICROSOFT display messages 
;Set bit O so the KERNAL IRQ 

;Routine will call the 

;BASIC IRQ routine for GRAPHICS/SOUND/LIGHT PEN 
;Set up the system restart vector to 

$4003 (normal warm start) 

;Reset the stack pointer 


;Check TRACK 1 SECTOR O for auto boot info. 
;Jump to BASIC warm start to restart the 
;background Jobs and print the READY message to 
s;the screen 
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4045: 
4047: 
4049; 


404C; 
404E: 
4050; 
4053: 


4056: 
4058: 
405A: 
405D; 


KEKKKKKKKKKEKKKKKKKEKKKKKEKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKK 


INIT 
INITialize registers 


* 

* 

* 

* 

* This routine is called by the CLDSTRT routine above 
* to initialize all of the BASIC ZERO PAGE address 
* which have a fixed value. Some of these routines 

* are the USER call routine and the CHRGET routine. 

* NOTE: See the routine block notes below 

* 
* 


+ €£ € + ©  & FF HF F 


KKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


a eee ee we we ae a a a a a we a we ee ww ow ew we we ew ee ee * 
* * 
* This routine sets up jump for function evaluation * 
* and the USR vector. ii 
* * 
Fe ee ee ee ee we we ww ee ew ww ww we ww ww wwe * 

LDA #$4C ;Set up the jump for function evaluations 

STA $56 

STA $1218 ;Set up the jump for the USR jump address 
Pc ee ce ee ee we we we a es we a a a a a a a a a a ew we a a a ee * 
* * 
~ Point the USR vector to n 
= an 'ILLEGAL QUANTITY’ error message = 
* * 
Fe ie a a a a a a en oe wn oe a ew wn en ee nw wn ee we * 

LDA #528 

LDY #$7D 

STA $1219 

STY $121A 
Ko Se i i i i a a a a a i i Se ee ee ee ee ee * 
* * 
* Set up the vector for converting a floating point * 
* number to an integer ($849F) * 
x * 
Kae ee me ww ee ww www ww wr we ww wn we wwe ww ww www wm ww ww we wow we ew wm ow * 

LDA #5 9F 

LDY #$84 

STA $117A 

STY $117B 
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4060; 
4062: 
4064: 
4067: 


406A: 
406C: 
406F: 
4072; 
4073; 


4075: 
4078: 
407A; 
407C; 
407F: 


4082: 
4084: 
4086: 
4088; 
408B: 
408E; 
4091; 
4094; 
4097; 
409A: 
409D: 


LDA 
LDY 
STA 
STY 


LDX 
LDA 
STA 
DEX 
BNE 


STX 
STX 
STX 
STX 
STX 


STX 
STX 
STX 
STX 
STX 
STX 
STX 
STX 
STX 
STX 
STX 


* * 
* Set up the vector for converting an integer to * 
* a floating point number ($793C) * 
* * 
Koa eS SS ae ae ae wee ee ea se See eee oe eee * 
#$3C 
#$79 
$117C 
$117D 
Cae ea ee a a a ea a ea a a ea a as eee es ee ee * 
Copy ROM addresses $4278-S42CD to RAM: $037F-S$03D4 
CSS SS eS a ee i a a a we a eee ee ee a ee ee ee ee Se ee ee * 
#85 ;Copy 85 bytes 
$4278,X ;Copy subroutines in ROM to $037F-$03D4 
SO37F,X 
$406C 
Ke a es a as ea a es eis a a a a a a se Se Se Se * 
Initialize various registers 
Rew e ww we ee we we we we ee ww wee wee ew ew ew ew we we www wwe we ew em ww ew we ee ew ew | * 
$O03DF ;Clear the OVERFLOW marker for FAC1 
$15 ;Set up the screen prompting flag 
S1A ;Set the MSB of the last descriptor to zero 
$116F ;Turn off the TRACE mode 
$1Cc00 lst END OF LINE for BASIC. Note: You must do 
sthis if you relocate BASIC 
$76 ;Clear the HI-RES flag 
$74 ;Clear the offset value for the AUTO command 
$75 s;Clear MSB of the AUTO command offset 
$116B ;Double width off 
$116A ;Screen scaling to 320 * 200 
$116C ;Clear the temporary pointer for FILL 
$121B ;Clear the initial value for RND command 
$011C ;Clear MSB for the BASIC BSAVE command 
$1276 ;Clear the BASIC COLLISION 1 interrupt 
$1277 ;Clear the BASIC COLLISION 2 interrupt 
$1278 ;Clear the BASIC COLLISION 3 interrupt 
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40A0: 
40A3: 
40A5; 
40A8; 
40A9; 
4OAB: 
40AC;: 
40AF; 
40B2:; 
40B4: 
40B7: 
40B9: 
40BB: 
40BD: 
40BF: 
40C1: 
40C3: 
40C6:; 
40C8; 
40CA: 
40CC; 
40CE: 
40D0;: 
40D2: 
40D4; 
40D6; 
40D8:; 
40DA: 
40DC: 
40DE: 
40E1: 
40E4; 
40E6: 
40E8; 
40EA; 


40EC; 
40EE: 
40F0: 
40F1; 
40F4; 


STX 
LDY 
STA 
DEY 
BPL 
INX 
STX 
STX 
LDX 
STX 
LDX 
STX 
LDX 
STX 
LDX 
STX 
JSR 
LDX 
STX 
LDX 
LDY 
STX 
STY 
LDA 
LDY 
STA 
STY 
LDA 
LDY 
STA 
STY 
LDA 
LDY 
STA 
STY 


LDX 
LDY 
TXA 
STA 
DEX 


$127F 
#558 


$117E,Y 


S40A5 


SO1FD 
SO1FC 
#15 
$03D5 
#13 
$86 
#1 
$84 
#2 
$85 
S6A5C 
#$1B 
$18 
#SO1 
#$1C 
$2D 
S2E 
#500 
#$04 
S2F 
$30 
#500 
#SFF 
$1212 
$1213 
#$00 
#SFF 
$39 
S3A 


SO7F8,Y 


;Clear the INTERRUPT IN PROGRESS flag 


;Clear the sprite data 
;Area with SE6 


;Useless code, 

s;unused by any routines 
;BANK 15 for 

;BASIC SYS, POKE, PEEK, 
;Medium gray 
;Foreground color 


;Black 


and WAIT commands 


;Multicolor 1 foreground 


;White 


;Multicolor 2 foreground 

;Set up the bkground/border & mult./border reg. 
;Start of temporary string 

;Stack for string descriptors 

;Set the START of BASIC to $1C01 


:;Save it to TXTTAB 


;Set the START of BASIC VARIABLES 
;To $0400 in RAM BANK 1 


;Set the highest address 
;Available to BASIC to SFFOO 


; ( RAM BANK 0O ) 


;Set the highest address 
;Available to BASIC strings 
jand variables to SFFOO 


;( RAM BANK 1 ) 


;Starting value to be stored at SO7FF 
;Number of bytes to do 


;Store value in SPRITE ID area address 
;Decrement the value to be stored by one 
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40F5: DEY ;Decrement the index 
40F6: BPL S40F0 ;Continue until done 


40F8: LDA #0 


40OFA: LDX #S6C ;For 109 bytes to clear 

40FC: STA S117E,X ;Clear area 

40FF: DEX 

4100: BPL S40FC ;Continue until done 

4102: JSR $4112 ;Set up default values for the sound registers 

4104: LDA #SDO ;Set up the Page number for 

4107: STA $11EC ;Uppercase/Graphics character set 

410A: LDA #SD8 ;Set up the Page number for 

-410C:; STA $11EB ;Lowercase/Uppercase character set 

410F: JMP $51D9 7;Do a BASIC NEW command 
es a ee as es a a a a ee es ee ee a a a es ae ee * 
* * 
* This routine sets up the various default values * 
* used for the PLAY command. It also sets up the SID * 
* sound registers. * 
* * 
Ka aon aan Sa ae ee ee eee Se SS as a a ee ee ee ee a ee ee * 


4112: LDA #$20 ;Set up Note TIME to 
4114: LDY #1 ;The length 

4116: STA $1229 ;Of a sixteenth-note 
4119: STY $122A ;As the default value 
411C: LDA #4 ;Set the default 

411E: STA $122B ;Octave to 4 in OCTAVE 
4121: LDA #16 ;Set up 

4123: STA $1222 ;TEMPO rate to 16 
4126: LDA #0 ;Turn off 

4128: STA $D404 ;VOICE 1 

412B: STA SD40B ; VOICE 2 

412E: STA $D412 ;VOICE 3 

4131: STA $12FD s;Enable the BASIC IRQ routine for 


;GRAPHICS/SOUND/LIGHT PEN 
4134: LDA #15 


4136: STA $1274 7;Set up default 
4139: STA $1275 ;FILTER values 
413cC: STA $D418 ;Set sound VOLume to maximum 
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413F:; 
4141: 
4144; 
4147; 
4148: 


414A: 
414C: 
414F: 
4152; 
4153: 
4155: 
4158: 
415B: 
415E: 
4161: 
4164: 


+ £ ££ + + ££ FF FF F HF HF 


LDY 
LDA 
STA 
DEY 
BPL 


LDX 
LDA 
STA 
DEX 
BPL 
STX 
STX 
STX 
STX 
STX 
STX 


LDY 
STY 
LDX 
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x 

The default sound values are set up in the memory . 
locations as listed below. = 
x 

LOCATIONS _ —DESCRIPTION _ . 
$123F $1248 ATTACK, DECAY * 
$1249 $1252 SUSTAIN, RELEASE x 
$1253 $125¢C WAVEFORM * 
$125D - $1266 PULSE WIDTH LSB * 
$1267 $1270 PULSE WIDTH MSB © 
* 


#51D 


$7011,Y 
Si 23F,Y 


$4141 


#9 


$702F,X 
$1267,X 


$414C 
$1285 
$1286 
$1287 
$1224 
$1226 
$1228 


;Set UP ATTACK, DECAY 
;SUSTAIN, RELEASE and WAVEFORM 


;Set up PULSE WIDTH 


;Clear TIME STORAGE low 
;Clear TIME STORAGE med 
;Clear TIME STORAGE high 


sCounter to voice number 
;Save it as a counter 
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416E: 
4171: 
4174; 
4176; 
4179: 


417A; 
417D: 
417F: 
4182; 
4185; 
4186: 
4188; 


BITS 


4189: 
418A: 
418B; 
418C; 


JSR 
DEC 
BPL 
INC 
RTS 


$6EB2 ;Initialize voice w/ values stored $123F-$1271 
$122F ;To next voice 

$416C 

$122F ;Counter to zero 


KH KK KK KI KKK KKK KK KHKKKKKKKKKKKKKEKKKKKKKKKKKKKKKK KKK KKKKKKEK 


+ € € +  # 


SETMMU 
SET up the Memory Management Unit 


Configure the MMU registers A-D. 


+ + + + + F 


KAKKKKKKKKKKK KK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKKKK 


JSR 
LDX 
LDA 
STA 
DEX 
BPL 
RTS 


SA845 ;Do a BASIC BANK 15 command 
#3 ;Index pointer 

$4189,X ;Preset values in ROM 
$D501,X ;To set up MMU registers 


;Do 4 registers 
$417F 
;And exit 


KKK KKK KKK KIKI HKKHKKKKKKKKKKKKKKKKKKKKKKKAKKKKKKKKKEKKKKKKKKK 


* * 
* MMUTAB ~ 
* * 
* Memory Management Unit TABle * 
* * 
* Table for preconfiguration of PCRA through PCRD * 
* * 
KH KKK KKK HK KH KK IKK IK KKK KK KKKAKKKKAKKKKKKKKKKKKKKKKKKKEKKKK KEK 


- BYTE 
- BYTE 
- BYTE 
. BYTE 


76543210 
S3F ;BASIC BANK 0 % 00111111 
S7F ;BASIC BANK 1 % 01111111 
$01 ;BASIC BANK 14 % 00000001 
$41 ;RAM BANK 1, BASIC, KERNAL, CHR ROM % 01000001 


;The same as BASIC BANK 14 except 
;RAM BANK 1 
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418D; 
418F: 
4191; 
4194; 
4197; 
4198: 
419A; 


419B: 
419D: 
41A0; 
41A2;: 
41A4; 
41A6; 


41A8; 
41AA: 
41AC; 
41 AF: 
41B0: 
41B2; 
41B5: 


LDA 
LDY 
LDX 


‘STA. 


DEY 
BPL 
RTS 


LDY 
LDA 
CMP 
BNE 
BIT 
BPL 


LDX 
LDA 
JSR 
DEX 
BNE 
JSR 
INY 


KKKK KKK KKK KKK KK KEK KKKKEKKEKKKKKEKKKKEKKEKKKKKKKKKKKKKKKKKKK 


* * 
. SETSPR * 
* * 
* SET speed/direction table for the SPRites. * 
* * 
KKKKKKAKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


#0 
#7 ;Index pointer 
S6DD9,Y ;Pointer to register 
$117E,X ;Clear register 

;Do 8 registers 
$4191 


s;And exit 


KKKKKKKKKKKK KK KKK KEKKKKEKKEKKKKEKKKKEKEKEKKKEKKKKKKKKKKKKKKK 


* * 
bs STRTIMSG * 
* * 
* Print the STaRTup MeSsaGe to the screen * 
* * 
KKKKKKKKKEKKKKKKKEKKKKKKKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


#0 

$41BB,Y ;Get a byte of the startup message 

#'@! ;New line flag? 

$41B2 ;No, then branch to print the character 

$D7 ;Check to see if we're in 40- or 80-column mode 

$41B5 ;Branch if in 40-column mode 
Fe ee we ee we oe oe oe ee we ws we a ee ee ee ee ee es ee ee * 
* * 
* If you are in the 80-column mode, this routine x 
* will print nineteen spaces before the start of = 
* each new sentence to center the text on the 80- * 
* column screen. * 
* * 
Fe aes Se ee a ea ee ee eae ee eae ee Se ee eee * 

#19 ;Nineteen spaces 

#32 ;To the screen 

$9269 ;Continue to print one space at a time 

;Until the X register equals 
S41AA ;Zero. 
$9269 ;Print the character in the accumulator 
;Increment the index pointer 
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41B6: CPY #$96 ;97 characters printed yet? 
41B8: BNE $419D s;No, then continue printing 
41BA: RTS ;Exit the routine 


KKEKKKKKKKKKKK KKK KKK KEKKKKKKEKEKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* * 
* MSGTBL is 
* * 
x The startup MeSsage TaBLe is as follows: * 
* * 
* * 


KEKKKKKKKKKKKKKKKKKKK KKK KKEKKKKKKKEKKKKKKKKKKKKKKKKKKKK 


41BB: .BYTE $93 ;Clear the screen 
41BC: .BYTE SOD 3<CR> 
41BD: TXT r@' ;Start of line pointer 
41BE: TXT : commodore basic v7.0 122365 bytes free' 
41E5; BYTE $OD 7 <CR> 
41E6: TXT r@' ;Start of line pointer 
41E7: TXT : (c) 1985 commodore electronics, ltd.' 
420D: BYTE SOD 3; <CR> 
420E: TXT r@' ;Start of line pointer 
420F: TXT ’ (c) 1977 microsoft corp.' 
$OD 7; <CR> 
4230: TXT r@! ;Start of line pointer. 
4231: TXT ’ all rights reserved' 


424F: .BYTE $0D,$S00 ;<CR>, End of text flag 


KK KKK KKH KKK IKK KKK KK KKK KK KEKKKKEKKKKEKEKKEKEKKEKKKKKKEKKKKKKEK 


* * 
* COPYVEC * 
* * 
a COPY the system VECtor tables to RAM is 
* * 
KI KK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKEKKKKKKKKKEKKKKKKKKK 

4251: LDX #17 ;Copy 18 bytes or 9 vector addresses to RAM 

;Starting at $0300 

4253: LDA $4267,X ;Get the BASIC vectors from ROM 

4256: STA $0300,X ;And store them to RAM 

4259: DEX ;Do 18 bytes 


425A: BPL $4253 
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425C: 
425E: 
4261; 
4263: 
4266: 


4267: 
4269: 
426B: 
426D: 
426F; 
4271: 
4273: 
4275: 
4277: 


LDA 
STA 
LDA 
STA 
RTS 


DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 


KKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* * 
* This routine sets up an indirect jump vector at * 
* $02FC/SO2FD to jump to $4C78. When entering this * 
* routine, if the carry is set a SYNTAX ERROR will * 
* result. If the carry is clear, the VALTYP flag * 
* at SOF is checked for to see if the type is numeric. * 
* If the type is not numeric, a SYNTAX ERROR will * 
* result. x 
* * 
* * 


KEK KKKKEKKKEKKEKEKKKKEKEKKKEKKKKKKKEKKKKKKKKKKKKKKKKK KKK KKK 


#$78 ;Low byte of address 
SO2FC ;Store it 
#54C ;High byte of address 
SO2FD ;Store it 


;And exit 
KKKKKEKKKKKKKKKKKKKKKKEKKEKKKEKKKKEKKKKEKKKKKKKKKKKKKKKKKKKEK 
VECTBL 

system VECtor TaBLe 
This table contains the vectors for some of the 


important routines used by BASIC. This table is 
copied to RAM starting at $0300. 


+ &€ + £€ FF © HF HF F 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


kKkkkkkkkkk kk kkk kk kkk kkk kkk kkk kkk kkk kkk kkk kk kkk ek kk 


S4D3F ;Vector: Error message routine (IERROR) 
$4DC6 ;Vector: Read/exec. basic line (IMAIN) 
$430D ;Vector: Convert interpreter code (ICRNCH) 
$5151 ;Vector: Convert to text (list) (IQPLOP) 
S4AA2 ;Vector: Execute the keyword (IGONE) 

S$78DA ;Vector: Evaluate expression (IEVAL) 

$4321 ;Vector: Conversion routine (ICON) 

$51CD ;Vector: Escape list (IESLST) 

S4BA9 ;Vector: Execute escape (ISERROR) 
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KKKKKKKEKEKKKEKEKEKEKKKKKKKKEKEKKKEKEKKEKKKKEKKEKKKKKKKEKKKKKK 


CHRGET 
CHaRacter GET routine 
Transferred into RAM located at $0380 
the memory location pointed to by TXTPTR ($3D/$3E). 
Before each character is read, this routine will 


increment the TXTPTR, and will fall through to the 
CHRGOT routine below. 


+ + + + £ € © £ F&F F&F FE HF F 


* 
* 

* 

* 

* 

* 

* 
This routine will read one character at a time from * 
* 

* 

* 

* 

* 

* 


KK KKK KK KKK KK KEKE KEKKKEKKKKEEEKKKKEKKKEKKKEKKKKKKKKKKKKEK 


4279: INC $3D s;Increment BASIC text pointer LOW byte 
427B: BNE S427F ;If low byte is not equal to zero, 

| Then don't increment the high byte 
427D: INC $3E ;If low byte is equal to zero, 


;Then increment the high byte 

KKK KAKA KHK KKK AKKHKEKKKAKKKEKKEEKKKEKKEKEKKKKAKKKKKKKKKRKKKKKK 
CHRGOT 

CHaRacter GOT routine 


Transferred into RAM located at $0386 


+ + + + © ££ + F F 


* 
* 
* 
* 
* 
* 
* 
* 
* This routine reads the character that TXTPTR points 
* to plus the index register. Then it will fall through* 
* to QNUM. This routine also will read the byte from * 
* BANK O and return to BANK 14. ” 
* * 
* 


KkeKKKKKKKEKKKKKKKRKKKKKKKKKKEKKKKKKKKKKKKRKKKKKKRKKRKKKKKKK KKK 


427F: STA SFFO1 ;Enable BASIC BANK 0 

4282: LDY #0 ;Index pointer 

4284: LDA ($3D) ,Y ;Get character from BASIC text 
4286: STA SFFO3 ;Enable BASIC BANK 14 
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4289: 


428B: 
428D: 
428F; 
4291; 
4292; 
4294; 
4295: 


4297; 


CMP 


BCS 
CMP 
BEQ 
SEC 
SBC 
SEC 
SBC 


RTS 


KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKK 


ONUM 
Query NUMber routine 


CARRY FLAG - is cleared if the character is an ASCII 
digit 0-9. If it is not a digit, the carry flag is 
set. 


ZERO FLAG - is set if the character is the statement 
terminator ($00), or if it is the statement chain 
flag which is the colon ';:'. The zero flag is 
cleared if the character is neither the statement 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
terminator or the chain flag. * 
* 
* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKHaKKKKKKKKKKKKKKKKK 


ie a ;If character greater than ':' then 
;The carry flag is set 

$4297 ;If char. is greater than or equal to ':' branch 

#520 ;Check to see if the character is a space 

$4279 ;If it is then skip it and get the next char. 
;Set the carry for subtraction 

#'O' ;Subtract to make true numbers if they are 0 - 9 
;Set the carry for subtraction 

#SDO0 ;If the character is less than QO, 


;Then set the carry flag 
;The carry flag is cleared for numbers on exit 


KKKKKIKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


BASIC INDSUB RAM O ROUTINE 
INDirect SUBroutine load from RAM bank 0 


This routine reads a byte from BANK O and then 
returns to BANK 14. 


EXAMPLE: To get a byte from location $0100, BANK O, 
store the LOW/HIGH byte address ($00,$01) to any 
ZERO-PAGE location such as $61, $62. Then put the 
low byte of the zero - page address in the 
accumulator. In this case, it would be $61. 

Then put the index to the byte wanted in the Y 
register, and JSR to this routine. On return, 

the byte wanted will be in the accumulator. 


+ + € + + + + € * € FF FF FF F F F 


t+ + © + € € + FF FF € FF FF F F 
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4298: 
429B: 
429E: 


42A0: 
42A3: 


42A4: 
42A7: 
42AA: 


42AC: 
42AF: 


STA 
STA 
LDA 


STA 
RTS 


STA 
STA 
LDA 


STA 
RTS 


* NOTE: These steps also apply to the next two = 
* routines. * 
* * 


kk kkkkkkkkkkKkkkkkk kkk KKK KKK KKK KKKKKKKKKKkKk KKK kkk kkk Kk kkk k 


* * 
* Stored in RAM at S$039F * 
* * 


KakKkKkKkKKKkKkKkKkKk KKK KKK KKK KKK KK KKK KKK KK KKKKKKKKkKKKKK KKK KKK 


SO3A6 ;Zero page location to load from 

SFFO1 ;Enable BASIC BANK 0 

($00),Y ;Get a byte from BANK O at indirect address 
;$03A6 

SFFO3 ;Enable BASIC BANK 14 


;And exit 

KkaekkkkkkkkkkkkkKkkKeKeKkkkkk kk KKK KKK KKK KKKKK KKK KK KKK KKK K KKK 
BASIC INDSUB RAM 1 ROUTINE 

This routine reads a byte from BANK 1 and then 


returns to the RAM BANK 1, BASIC, KERNAL and I/O 
memory configuration. 


+ &€ ££ £ © HF F 
+ + € € € F F 


KakKk kK Kk kkk kK KKK KK KKK KKK KK KKK KKK KK KKKKKK KKK KKK KKK KKK KKKKK 


* * 
* Stored in RAM at SO3AB * 
* * 


kakkkkkkkkk kkk kkk kKkKKKe KK KKK KKK KK KK KKK KK KKK KKK KKK KKK KKK KKK KK 


$03B2 ;Zero page location to load from 

SFFO2 ;Enable BASIC BANK 1 

($00),Y ;Get a byte from BANK 1 at indirect address 
;SO3A6 

SFFO4 ;Enable RAM BANK 1, BASIC, KERNAL, and Char 


s;And exit 


KkakkkkkkkkkkkkkkkkkKekKkkkkKkKkkk kkk Keke KKK KK KK KKK KKK KKK KKKK 


BASIC INDIN1 RAM 1 ROUTINE 


This routine reads a byte stored in BANK 1 from the 
location that is stored in $24,$25 + the index to 
byte in the Y register. The value of the byte 

is returned in the accumulator. After this has 
been completed, this routine returns to the BANK 15 


+ + + £ © &€ F F 


+ + + + € FF HF F 
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42B0: 
42B3: 


42B5: 
42B8: 


42B9: 
42BC: 


42BE: 
42Cl: 


STA 
LDA 


STA 
RTS 





* with RAM BANK 1 enabled, not RAM BANK 0. * 
* * 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkKekkkkkekkkkkkkkkkk kkk kkk kkk k 


* * 
* Stored in RAM at $03B7 * 
* * 


KKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


SFFO2 ;Enable BANK 1 

($24),Y ;Get a byte from memory at indirect address 
;Stored at $24,$25 

SFFO4 ;Enable RAM BANK 1, BASIC, KERNAL, and Char. ROM 


sAnd exit 


KAEKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKRKEKKKKKKKKKKKKKKKKKKK 


BASIC INDIN2 RAM O ROUTINE 


* 

* 

* 

* This routine reads a byte stored in BANK 0 from the 
* location that is stored in $26,$27 + the index to 

* byte in the Y register. The value of the byte 

* is returned in the accumulator. After this has 

* been completed, this routine returns to BANK 14. 

* 
* 
* 
* 
* 
* 


+ + + + € € € HF 


KAKKKKKKKKEKKKKKKKKKEKKEKKKKKKEKEKKKKKKKKKKKKKKKKKKKKRKKKKKKKKK 
* 


Stored in RAM at $03C0 * 
* 


KaKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


STA 
LDA 


STA 
RTS 


SFFO1 ;Enable BANK 0 

($26) ,Y ;Get a byte of memory from the indirect address 
sat $26,$27 

SFFO3 ;Enable BANK 14 


sAnd exit 


KKKKKKKKKKEKKKKKKEKKEKKKEKKKKKKEKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKK 


BASIC INDTXTPTR RAM O ROUTINE 


This routine reads a byte stored in BANK 0O from 
the location that is stored in TXTPTR pointer at 
$3D, $3E + the index to byte in the Y register. 
The value of the byte read is returned in the 
accumulator. After this has been completed, this 
routine returns to BANK 14. 


+ + + £ & FF FF HF 
+ + ££ + + FF FF FF F 
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kaekkkkkkkk kkk kkk kkkk kk kkk kkk kkk kkkkkk kkk kkk kkk kkk kkk kk kkk 


* * 
* Stored in RAM at $03C9 * 
* * 


KKKKKKKKEKKKKKKKKKKEKKKEKKEKKKKKEKKKKK KK KKK KKK KK KKK KKKKKKKK 


42C2: STA SFFO1 ;Enable BANK 0 
42C5: LDA ($3D),Y ;Get a character from BASIC text 
42C7;: STA SFFO3 ;Enable BANK 14 
42CA: RTS ;And exit 
42CB: .BYTE 0,0,0 ;Spare storage area in RAM 
KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKK 
* * 
* End of the ROM area that is copied into zero page. * 
* * 
KK HH KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKEKK 
KK KHKKAK KK KKK KKK KKK KKK KKK KKK KK KKKKKKKKKKKKKKKKKKKKKKRK KKK 
* * 
* BASIC INTERPRETER JUMP TABLE * 
* * 
* This jump table is used by the BASIC interpreter * 
* to load a byte from a BANK and then return to the “ 
* bank as indicated. = 
* * 
KK KK IKK KKK KKK KK KKK KK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKEKK 
* BANK | BANK | INDIRECT | ROUTINE * 
LOAD | RETURN | ADDRESS | CALLED * 
* FROM | TO | LOCATION | = 
42CE: LDA #$50 ;BANK 1 BANK * $50, $51 
42D0: JMP SO3AB : INDSUB: RAM 1 
42D3: LDA #$3F ;BANK 1 BANK * $3F, $40 
42D5;: JMP $O3AB ; INDSUB: RAM 1 
42D8: LDA #$52 ;BANK 1 BANK * $52, $53 
42DA: JMP $O03AB : INDSUB: RAM 1 
42DD: LDA #S5C ;BANK 0 BANK 14 $5C, $5D 
42DF: JMP $039F : INDSUB: RAM 0 
42E2: LDA #S5C ;BANK 1 BANK * $5C, $5D 
42E4; JMP $O3AB : INDSUB: RAM 1 
42E7: LDA #566 ;BANK 1 BANK * $66, $67 
42E9;: JMP $O3AB : INDSUB: RAM 1 
42EC;: LDA #S61 ;BANK 0 BANK 14 $61, $62 
42EE: JMP $039F ; INDSUB: RAM 0 


Abacus Software C-128 BASIC 7.0 Internals 





42F1; 
42F3; 
42F6: 
42F8; 
42FB; 
42FD: 
4300: 
4302: 
4305; 
4307; 


430A; 
430D; 
430F; 
4310: 
4312: 
4313; 
4316: 
4319; 
431C:; 


LDA 
JMP 
LDA 
JMP 
LDA 
JMP 
LDA 
JMP 
LDA 
JMP 


JMP 
LDA 
PHA 
LDA 
PHA 
JSR 
JMP 
JSR 
BCC 


#370 BANK 0 BANK 14 $70, $71 


S039F : INDSUB: RAM 0 
#$70 ;BANK 1 BANK * $70, $71 
SO3AB ; INDSUB: RAM 1 
#$50 ;BANK 1 BANK * $50, $51 
$03AB : INDSUB: RAM 1 
#$61 ;BANK 1 BANK * $61, $62 
$03AB ; INDSUB: RAM 1 
#$24 ;BANK O BANK 14 $24, $25 
$039F ; INDSUB: RAM O 
; Same as BANK 14 except with RAM BANK 1 


KKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* * 
* CRNCH * 
* * 
.. CRuNCH tokens * 
* * 
* CONVERT INTERPRETER CODE * 
* * 
Ke eee ee ee ea ow a a oe a oe a a a a a oo oe oe * 
* * 
* This routine and CON below are used to convert * 
* a BASIC line when it is first entered into tokenized * 
* text (but not in quotes). This routine is vectored * 
* through $0304; you can 'tokenize' your own commands. * 
* * 


KKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKK 


($0304) ;Normal entry point is $430D 
$3D ;Get the current BASIC text pointers 
;And save them onto the stack 
$3E ;For recall after routine 
;Execution 
$0386 ;Get the current character that pointers are at 
$431C ;Process it 
$0380 ;Get the next character by incrementing pointer 
$4319 ;Loop until the next character is found 


;That is not an ASCII character that represents 
;A digit 0-9 (the BASIC line number) 
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431E: 
4321: 
4323; 
4326: 
4328; 
432A: 
432C: 
432E: 
4330: 
4332; 


4334; 
4336: 
4338: 
433A: 
433C; 
433E: 
4340; 
4343: 
4345; 
4347: 
4349; 
434c: 
434E: 
.4350; 
4352: 
4354; 


JMP 
BCS 
JMP 
CMP 
BEQ 
CMP 
BEQO 
CMP 
BNE 
LDA 


BNE 
CMP 
BCC 
CMP 
BEQ 
LDY 
JSR 
BEQ 
CMP 
BNE 
JSR 
CMP 
BEQ 
CMP 
BEQ 
BNE 


kk kkkkkkkkkkkkkk kkk kkkk kkk kkk kkk kkk kkkkkkkkk kkk kk kk kkk kkk 


* 


* 


* 


+ + + FF F F H OF 


CON * 
CONversion ROUTINE * 

* 

ee ee ee ee we we ee ee ee ewe we we wm me oe we we we we oe we we ae we we ae ee ee * 
* 

This routine searches a BASIC program line, finds * 


the BASIC keywords, tokenizes them into their respec-* 
tive one or two byte tokens, and stores the token(s) * 
into the BASIC program line. Enter this routine with * 
a value in the accumulator and the carry set for a - 
character or with the carry cleared for a digit * 


* 


KHKKKKKEKKEKKEKEKKKKEKKKKKK KKK KKK KKKK KKK KKK KKK kkk Kk KKK KKK KKK 


($030C) 
$4326 
$43B2 
#0 
$43A1 
#':' 
$4319 
ue 
$4336 
#$99 


$4386 
#$80 
$4345 
#SFF 
$4319 
#1 
$43CC 
$4313 
gems 
$4356 
$0380 
#0 
$43A1 
rue 
$4319 
$4349 


;Normal entry point $4321 

;If value is a character, then continue 

;If it is not a character, then branch 

;Is it the end of the line? 

;Yes, then restore TXTPTR and exit to READY 
;Is it a colon? 

;Yes, so skip it and get the next character 
;Is it the print command? 

s;No, then continue checking 

;It is the ? command, so load the accumulator 
;With the token for PRINT 

;Branch to store the toxen in the line 

Is it greater than or equal to 128? 

;No, continue checking 

jis it the ® character? 

sIf it is, then skip it 

;Offset of one byte 


;If $80 or greater then erase it 

;Is it a quote mark? 

;No, then check for keyword 

;If quote mark, get next char from BASIC text 
;Is it the end of the line $00? 

sYes , then restore TXTPTR and exit 

;Is it the second quote mark? 

;Yes it is, so skip it 

;No it is not the second quote mark, 

;Then keep looking until the end of the line is 
;Found or the second quote mark is found 

;In other words, skip the text between quote 
;Marks or from first quote to the end of line 
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KKKKKKKKKKKKKKKKKKKEKEKKKKKKEKEKEKKKKEKEKKKEKKKKKKKKKKKKKKEK 


* * 
= SEARCH FOR DUAL TOKEN COMMANDS * 
* * 


KHKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


4356: LDA #546 s;MSB of table 

4358: LDY #$09 ;LSB of table 

435A: JSR $43E2 ;Check for a match 

435D: BCC $4365 ;Not found, then check for dual token functions 
435F: LDA #$81 ;Base value for 

4361: LDX #0 ;Command token 

4363: BEQ $43B0 ;Unconditional branch to put token in line 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKEKKKKKKKKKKKKKKKKKK 


* * 
* SEARCH FOR DUAL TOKEN FUNCTIONS * 
* * 


KHKKKKKKKKKKKKKKKKKKKEKKKKKKKEKKEKEKKEKEKEKKKKEKKKEKKKKKKKKKEK 


4365: LDA #$46 ;MSB of table 

4367: LDY #SC9 ;LSB of table 

4369: JSR $43E2 ;Check for a match 

436C: BCC $4374 sNot found, then branch and continue checking 
436E: LDA #$81 ;Base value for 

4370; LDX #SFF s;Function token 

4372: BNE $43B0 ;Unconditional branch to put token in line 


KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKKKKKKKKKKKKKKEKKKEKKKKKKKEKK 


* * 
* SEARCH FOR SINGLE TOKEN FUNCTIONS * 
* * 


KEKE KK KKK KKKKKKKKKKKKKKKKKKEKEKKKKKEKKEKKEKKEKKKKKKKKKKKKKKKK 


4374: LDA #$44 ;MSB of table 

4376: LDY #$17 ;LSB of table 

4378: JSR $43E2 ;Check for a match 

437B: BCC $4319 s;Not found, then get the next character 


KKKKKKKKKKKKKKKKKKKKEKKKEKKKEKKEKKEKEKKEKKKEKKKKKKKKKKKKKKKKKKKK 


* * 
* INSERT A TOKEN INTO A PROGRAM LINE * 
* * 


KEKKKKEKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKEK KKK KKKKKKKKKKKKKKKK 


437D: CPY #0 ;For no offset 
437F: BEQ $4384 ;If no offset, then skip the next instruction 
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4381: JSR $43CC ;Shift line back Y number of bytes 

4384: LDA SOD ;Get the token value 

4386: LDY #0 ;Zero the index pointer 

4388; STA ($3D),Y ;Place the token with the BASIC text 
438A: CMP #S$8F ;Is it the REM token? 

438C: BEQ $439B ;Yes it is, then ignore the rest of line 
438e: CMP #583 ;Is it a RETURN? 

4390: BNE $4319 ;No, then get the next character 

4392: JSR $0380 ;Get the next character 

4395: JSR $528F ;Search for colon or $00, end of line marker 
4398: JMP $4313 ;Continues with loop 

439B: JSR $0380 ;Get the next character 

439E; JSR $529D ;Searches for end of line $00 


KRKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKK KKK KKK KKKKKKKKKKKKKKKKKKK 


* * 
* This routine calculates the offset between the * 
* beginning of a keyword and the end of the keyword. * 
* The resulting offset is returned in the Y register. * 
* * 
* * 


KKK K KKK KK KK KEKE KKKKKEKKKKKKKKKKKKKKKKKKKKK KK KKK KKK KKK 


43A1: LDX $3D ;BASIC text pointer low byte 

43A3: PLA ;Get original BASIC 

43A4: STA $3E ;Text pointer from 

43A6: PLA ;The stack 

43A7: STA $3D ;And restore TXTPTR 

43A9: SEC ;Set carry for subtraction 

43AA: TXA ;Move the low byte of TXTPTR into accumulator 
43AB: SBC $3D ;Subtract where we left off from 

43AD: TAY ;Where they were and save it in the Y-register 
43AE: INY ;Increment TXTPTR by one 

43AF: RTS s;And exit routine 


KKK KK KKK KKK KKK KKK KK EKKKKEKKKKEKKKKKKKKKKKKKK KKK KKKK 


* * 
* This routine places dual tokens into the BASIC *“ 
* program line. r 
* * 


KHRKEKKKKKEKKKKKKKKKKKKKKKEKKKKKKKKKKEKKKKKKKKKEKKKKKKKKKKKKKK 


43B0: ADC £S$0D ;Add the base value $81 to the keyword number 
43B2: PHA ;Save on stack 

43B3: DEY a, ;Offset minus 1 

43B4: JSR  $43cc ™ ;Shift line back Y number of bytes 

43B7: LDA #SFE ;Token for dual BASIC command 

43B9: INX ;Increment text pointer 
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43BA: 
43BC: 
43BE; 
43C0; 
43C2: 
43C3: 
43C4; 
43C6: 
43093 


43CC3: 
43CD: 
43CE: 
43D0; 
43D2: 
43D4:; 
43D6: 


43D8: 
43DA: 


43DB: 
43DD: 
43DF:; 
43E1; 


BNE 
LDA 
LDY 
STA 
INY 
PLA 
STA 
JSR 
JMP 


CLC 
TYA 
ADC 
STA 
LDA 
ADC 
STA 


LDY 
INY 


LDA 
STA 
BNE 
RTS 


S43BE 
#SCE 
#0 


($3D),Y 


($3D),Y 


$0380 
$4319 


;Not at the end of the buffer? Then branch 
;Token for dual token BASIC function 

;Zero the index pointer 

;Place the token with the BASIC text 
;Increment the text pointer 

;Get the original token off the stack 

;And place the token with the BASIC text 
;Get the next BASIC text character 

;Get next character 


KEKEKEKKKKKKKEKKKKKKKEKKEKEKKKEKKKKKEKEKKKKEKKEKKKKKKKKKKKKKKKKEK 


* 


* 


* 


* 


* 


This routine shifts the BASIC line back the number * 
of bytes stored in the Y register. * 


* 


KKKKEKKKEKKKEKKKKKEKEKKKKKEKKEKKEKEKKKKEKEKKEKKKKKKKKKKKKKKKKKKKKK 


$3D 
$24 
S3E 
#0 

$25 


;Clear the carry flag for subtraction 
;Transfer offset value into the accumulator 
;Add it to the LSB of TXTPTR 

;Save it in the temporary work area 

;Get the TXTPTR MSB 

;Add the carry flag 

;Save it in the temporary work area 


kkkkkkkkkkkkkkkkkkkkkke kkk kk kkk kkkkkkkkkkkkeakkkkkk kk kkk 


* 


* 


* 


* 


* 


Now we have the start of the keyword in $3D, $3E * 


and the end of the keyword in $24, 


$25. * 


* 


KEK KK KK KKKEKKKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


#SFF 


($24) ,Y 
($3D),¥Y 


$43DA 


;Y=SFF to compensate for the next instruction 
;On the first pass Y = 0, all other passes 
s;increment the Y register by 1 

;Get the byte after the keyword in the line 
;Store Y number of bytes from start of keyword 
;If not the end of line $00, continue 

;If it is the end of line, then exit 
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43E2; 
43E4; 
43E6; 
43E8: 
43EA: 
43EB: 
43EC; 
43EE: 
43EF: 
43F1:; 
43F3: 
43F5: 
43F7; 
43F9: 
43FB; 
43FC: 
43FE:;: 
43FF:; 
4401; 
4402; 
4403: 
4405: 
4407: 
4409; 
440B: 
440C: 
440E; 
4410: 
4412; 
4414; 


4416: 


STA 
STY 
LDY 
STY 
DEY 
INY 
LDA 
SEC 
SBC 
BEQ 
CMP 
BEQ 
LDA 
BMI 
INY 
BNE 
INY 
INC 
CLC 
TYA 
ADC 
STA 
BCC 
INC 
CLC 
LDY 
LDA 
BNE 
ORA 
STA 


RTS 


KKEKKKKEKKKKKKKKKKEKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK 


This routine checks for a match in the keyword 
table whose address is in the Y register and the 
accumulator. (LOW/HIGH byte format) 


+ + + + F 
+ + + + F 


KKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKEKKEKKEKKKKKKKKKKKKK KKK 


$25 ;Save the high byte of command table for search 
$24 ;Save the low byte 

#0 ;Zero the index pointer 

SOD ;Save it in TEMP as a keyword number 


;Decrement pointer 


;Increment pointer to zero for start of loop 
($3D),Y ;Get a character from the BASIC text 
;And compare it to the character in the 
($24),Y ;BASIC command/function table 
S43EB s;If they are the same, then get the next char. 
#$80 s;Is it the end of the single 
$4412 ;BASIC commands flag? If so, branch 
($24),Y ;If not, get the next character 
S43FE s;If it is a shifted character, then branch 
;If it is not, then increment the pointer 
$43F7 ;Keep looping until the end flag is found or Y=0 
s;Increment Y to the next character 
SOD ;Keyword number + 1 
;Clear the carry for addition 
;Add the offset to the table address 
$24 ;To get to the 
$24 ;Next keyword 
$440B ;If carry is clear, then skip ahead 
$25 ;If carry is set, then increment MSB by 1 
s;Clear the carry 
#0 Index to character 
($24),Y ;Get a byte from table 
$43EC ;If not zero, then back to checking 
SOD s;If zero or called by $43F5 combine accumulator 
SOD ;With the keyword number to make the 


s;Token and store it in SOD 
sAnd exit the routine 
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4417; 
441A: 
441D: 
4421: 
4425: 
442B: 
4430: 
4433; 
4437: 
443A; 
443E: 
4441; 
4443; 
4442; 
444F; 
4455; 
4458; 


TAT 
TXT 
TAT 
TXT 
TAT 
TXT 
TXT 
TXT 
TAT 
TAT 
TXT 
TAT 
TXT 
TXT 
TAT 
TAT 
TXT 


C-128 BASIC 7.0 Internals 





KKKKKKKKKKEKEKAKKK KKK KKK KKKKKKKEKEEKKKEKREKKEKKEKKKEKKEKKKKKKKEKK 


The area of memory from $4417 to $46F7 contains 
the list of reserved words that are used by the 
BASIC operating system for its various routines. 


NOTE: The last character of each reserved word 

is stored as a shifted character (bit 7 set) 

to indicate the end of that reserved word. 
'end' would be 
stored as the HEX values of $45, S$4E, and 
If the reserved word consists of only 
then that character is 
stored as a shifted character. 


For instance, 


$SCc4 ° 
one character, 


'input#' 
‘input' 
'dim' 
'read' 
‘let! 
‘'goto' 
‘run' 
tif! 
'restore' 
"gosub' 
‘return' 
‘rem' 
'stop' 


REServed word LiST 


RESLST 


the command 
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445C: 
445E; 
4462: 
4466: 
446A: 
4470: 
4473: 
4477: 
447D; 
4482: 
4486: 
448A; 
448D: 
4490; 
4493; 
4497: 
449C;: 
449F: 
4422; 
4406: 
44A8; 
44AA: 
44AE: 
44B2; 
44B5: 


44B9;: 
44BA:;: 
44BB: 
44BC: 
44BD: 
44BE; 
44Cl1; 
44C3:; 
44C4:; 
44C5; 
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TXT ‘on! 2$91 
TXT 'wait' 3$92 
XT 'load' ;$93 
TXT "save' 3$94 
TXT 'verify' $95 
TXT 'def' ;$96 
TXT "poke! 7$97 
TXT 'print#' 7 $98 
TXT ‘print’. 7$99 
TXT ‘cont’ ;S9A 
TXT rLiSt* ;$9B 
TXT Weir 3$9C 
TXT "cmd! ;$9D 
TXT ‘sys' ;S9E 
TXT "open! ; SOF 
TXT ‘close’! ; SAO 
TXT "get! ;SA1 
TXT ‘new’ ;SA2 
TXT "tab(' ;SA3 
TXT ‘to! ;SA4 
TXT “En. ;SA5 
TXT ‘spc (' ;SA6 
TXT "then! ;SA7 
TXT "not! ;SA8 
TXT "step! ;SA9 
Kaeo eee eee el eee ee es Se a ee a ee ee * 
* 
BASIC MATH OPERATORS * 
Ke we ee ae ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee * 
OPERATOR TOKEN 
TXT se ;SAA 
TXT fe ; SAB 
TXT ma ; SAC 
TXT oe da ;SAD 
TXT as ;SAE 
TXT ‘and’ ; SAF 
TXT or” 7; SBO 
TXT ‘>? ;SB1 
TXT t=! ;$B2 
TXT <! ;$B3 
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44C6;: 
44C9; 
44CC;: 
44CF; 
44D2; 
44D5; 
44D8:; 
44DB;: 
44DE;: 
44E1; 
44E4; 
44E7; 
44EA: 
44ED; 
44F0; 
44F4; 


44F7; 
44FB: 
44FE: 
4501; 
4505: 
450A: 
4510: 
4514; 
4516: 
4519; 
451D: 


FUNCTION 

TXT "sgn! 
TXT ‘int! 
TXT "abs' 
TXT ‘usr! 
TXT 'fre' 
TXT "pos! 
TXT ‘sqr' 
TXT "rnd! 
TXT 'log' 
TXT "exp! 
TXT ‘cos! 
TXT 'sin' 
TXT 'tan' 
TXT ‘atn' 
TXT "peek' 
TXT "len' 

ee eee 

* 

Ke ee ee 

FUNCTION 

TXT ‘strs' 
TXT ‘'val' 
EXT "asc' 
TXT 'chrs' 
TXT ‘left$' 


TXT ‘rights? 
TXT "mids! 


TXT "go! 
TXT "ror" 
TXT 'rcir’ 
.BYTE $80 


;Flag for Dual Token (SCE) 
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451E: 
4521: 
4525: 
4528: 
452C: 
4530: 
4535: 
4539: 
453F: 
4543: 
4547: 
454C: 
4551: 
4554: 
4558; 
455D: 
4564: 
4569: 
456D;: 
4570: 
4576: 
457C: 
4582: 
4586: 
458C: 
4591: 
4597: 
459C: 
45A0; 
45A2: 
45A6: 
45AA;: 
45B3: 
45B8: 
45BD: 
45C3; 
45CA: 
45D1: 


TAT 
TAT 
TXT 
TXT 
TXT 
TAT 
TXT 
TXT 
TXT 
TXT 
TAT 
TAT 
TXT 
TXT 
TXT 
TAT 
TXT 
TXT 
TXT 
TXT 
TXT 
TAT 
TXT 
TXT 
TAT 
TXT 
TAT 
TAT 
TXT 
TXT 
TXT 
TXT 
TAT 
TXT 
TAT 
TXT 
TXT 
TXT 


‘resume’ 
‘trap’ 
‘tron’ 
"Croft! 
‘sound’ 
‘vol’ 
‘auto!’ 
'pudef' 
"'graphic' 
"paint' 
"char! 
"box! 
"circle! 
'gshape' 
"sshape' 
'draw' 
‘locate’ 
"color' 
*"senclr' 
'"scale' 
‘help’ 
'do! 
‘loop! 
‘exit! 
'directory' 
'dsave' 
'dload' 
"header' 
‘scratch! 
‘collect’ 


'copy' 
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45D5: TXT ‘rename’ ;SF5 
45DB: TXT "backup! ;SF6 
45E1: TXT 'delete' ;SF7 
45E7: TXT "'renumber' ;SF8 


45EF:; TXT "key' 7;$F9 

45F2: TXT ‘monitor’ ;SFA 

45F9: TXT "using' 7; SFB 

45FE: TXT Tuntil' ;SFC 

4603: TXT "'while' ;$FD 

4608: .BYTE $00 ;Flag for dual token command (SFE) 
Fe cs ee cs ee i ee ee a a i a a i ee a i a a a i ee ee ee we * 
* * 
* DTOKEC id 
* * 
bs Dual TOKEn Commands * 
* * 
* Each token in this portion of the reserved word * 
* list is prefixed by SFE. * 
* * 
* Example: The BASIC command BANK would be tokenized * 
* as SFE, $02. . 
* * 
Cea ae Se a eae ae a a eae a a ee a ee oe ee ees ee ee ee Se ee eae a ee ee * 

COMMAND TOKEN 

4609: TXT "bank' ;$02 

460D: TXT 'filter' ;$03 

4613: TXT 'play' 7$04 

4617: TXT "tempo! ;$05 

461C: TxT 'movspr' 7$06 

4622: TXT 'sprite' 3$07 

4628: TXT 'sprcolor' ;$08 

4630: TXT 'rreg' ;$09 

4634; TXT 'envelope' ;SOA 

463C;: TXT ‘sleep! ;$0OB 

4641: TXT 'catalog' ;S0C 

4648; TXT 'dopen' 7$0D 

464D: TXT "append' ;SOE 

4653: TXT 'dclose'! ;SOF 

4659: TXT "bsave' 7$10 

465E: TxT "bload' pol 

4663: TXT 'record' 2512 

4669: TXT "concat' 3$13 


466F: TXT 'dverify' ;$14 
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4676; TXT 'dclear' 7$15 

467C: TXT "sprsav' 7$16 

4682: TXT "collision';$17 

468B: TXT "begin! 7$18 

4690: TXT "bend! 7$19 

4694: TXT "window' 7S$1A 

469A: TXT "boot ! 7$1B 

469E: TXT 'width' 7$1C 

46A3: TXT "sprdef ' 7$1D 

46A9: TXT "quit! ;$1E UNIMPLEMENTED ON THE C-128 (unused) 

46AD: TXT "stash' ;S1F 

46B2: ~-BYTE SAO ;$20 UNASSIGNED TOKEN (shifted space) 

46B3: TXT "fetch' 7$21 

46B8: .BYTE SAO ;$22 UNASSIGNED TOKEN (shifted space) 

46B9: TXT 'swap' 7$23 

46BD: TXT fOLE* 7$24 UNIMPLEMENTED ON THE C-128 (unused) 

46C0O: TXT 'fast' 7$25 

46C4: TXT "slow' 7$26 

46C8: BYTE O ;Flag for end of BASIC DUAL TOKEN COMMANDS 
cs a a cs a ee se ce en a ee a me es ce se ee ee eo * 
* * 
* DTOKEF * 
* * 
* Dual TOKEn Functions * 
* * 
* Each token in this portion of the reserved word : 
* list is prefixed by SCE. zy 
* * 
* Example: The BASIC function POT would be tokenized * 
* as SCE, $02. i 
* * 
a i a a a a a ee ae ee ee a ee es ee a es i se as * 

FUNCTION TOKEN 

46C9; TXT ‘pot! 7$02 

46CC: TXT "bump' 7$03 

46D0: TXT 'pen' ;$04 

46D3: TXT "rsppos' 7;$05 


46D9: TXT "rsprite' ;$06 
46E0:; TXT "rspcolor' ;$07 
46E8; TXT 'xor' 7$08 
46EB: TXT "'rwindow' ;$09 
46F2: TXT "pointer' ;SOA 
46F5; ~-BYTE $00,$00,$00 ;Flag for end of BASIC DUAL TOKEN FUNCTIONS 
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KEKE KK KK KKKKK KKK KKK KEK KK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


ADDRLST 


This area of memory from S$46F8 to $484A contains 


of the reserved words that are used by the BASIC 
operating system. 


* 
* 
* 
* 
* an ADDRess LiST for the routines that handle each 
* 
* 
* 
* 


KKK KKK KKK KH KKK KK KK KK KKKKKKKKKKKKKKK KKK KKK KKK KKK K KKK KKK 


* 
* 
* 
* NOTE: 
* 
* 
* 
* NOTE: 
* 
* 
* 
* 
* 
* 
ADDRESS 
46FC: DA $4BCC 
46FE: DA SSDF8 
4700: DA SS7F3 
4702: DA $528E 
4704: DA $5647 
4706: DA $5661 
4708: DA SS87A 
470A: DA S56A8 
470C: DA $53C5 
470E: DA SS9DA 
4710: DA SSA9A 
4712: DA $52C4 
4714: DA SSAC9 
4716: DA S59CE 
4718: DA $5261 
471A: DA $529C 
471C: DA S4BCA 


BASIC COMMAND ADDRESSES 


Add one to the address shown to obtain 
the starting address of the routine that 
handles that particular reserved word. 


The operand DA means Define Address which 
places the address after the operand in 
memory in the LSB/MSB format. 
DA $4BCC would store the address $4BCC in 
memory as SCC, S$4B. 


For instance, 


COMMAND 


;DATA 

; INPUT# 
; INPUT 
;DIM 

; READ 

; LET 
;GOTO 

; RUN 
PLE 

; RESTORE 
;GOSUB 
; RETURN 
; REM 

; STOP 


112 


* 
* 
* 
* 
* 
* 
* 
* 


+ + + * + F € + FF FE FF F F 


Abacus Software 


C-128 BASIC 7.0 Internals 





471E: 
4720: 
4722: 
4724: 
4726: 
4728: 
472A: 
472C;: 
472E: 
4730: 
4732: 
4734: 
4736: 
4738: 
473A: 
41.30; 
473E: 
4740: 
4742; 
4744: 
4746; 
4748: 
474A; 
474C; 
474E; 
4750: 
4752: 
4754: 
4756: 
4758: 
475A; 
475C: 
475E; 
4760: 
4762: 
4764: 
4766: 
4768: 
476A: 
476C: 
476E: 
4770: 
4772: 
4774: 
4776: 
4778: 
477A: 


DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 


$53A2 
$6C2C 
$912B 
$9111 
$9128 
S84F9 
S80E4 
$5539 
$5559 
S5A5F 
$50E1 
S$51F7 
$553F 
$5884 
$918C 
$9199 
$5611 
$51D5 
$5390 
S5F61 
S5SF4C 
$58B3 
S$58B6 
$71EB 
$71C4 
$5974 
S5F33 
$6B59 
S61A7 
$67D6 
S62B6 
$668D 
$658C 
$642A 
$6796 
$6954 
S69E1 
S6A78 
S695F 
$5985 
SSFDF 
$6089 
$6038 
SAO7D 
SA18B 
SA1A6 
SA266 


7; ON 
;WAIT 

; LOAD 

; SAVE 

; VERIFY 
;DEF 

; POKE 
;PRINT#F 
PRINT 
;CONT 
;LIST 
;CLR 

7; CMD 
;SYS 

; OPEN 

; CLOSE 
;GET 
;NEW 
;GO 

; RESUME 
; TRAP 

7; TRON 

; TROFF 
; SOUND 
; VOL 

; AUTO 
;PUDEF 
;GRAPHIC 
;PAINT 
;CHAR 

7; BOX 

7; CIRCLE 
; GSHAPE 
; SSHAPE 
; DRAW 

; LOCATE 
; COLOR 
7; SCNCLR 
; SCALE 
; HELP 
;DO 

; LOOP 
;EXIT 

; DIRECTORY 
; DSAVE 
; DLOAD 
; HEADER 
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477C: DA SA2A0 ; SCRATCH 
477E: DA SA32E ;COLLECT 
4780: DA $A345 ; COPY 
4782: DA SA36D ; RENAME 
4784: DA $A37B ; BACKUP 
4786: DA S5E86 ; DELETE 
4788: DA SSAF7 ; RENUMBER 
478A: DA $6109 ; KEY 

478C: DA SAFFF ; MONITOR 
478E: DA $6BC8 ; BANK 
4790: DA $7045 ;FILTER 
4792: DA S6DEO ; PLAY 
4794: DA S6FD6 ; TEMPO 
4796: DA $6CC5 ;MOVSPR 
4798: DA S6C4E ; SPRITE 
479A: DA $718F ; SPRCOLOR 
479C: DA $58BC ;RREG 
479E: DA $70CO ; ENVELOPE 
47A0: DA $6BD6 ; SLEEP 
47A2: DA SAO7D ; CATALOG 
47A4: DA $A11C ;DOPEN 
47A6: DA $A133 ; APPEND 
47A8: DA SA16E ;DCLOSE 
47AA: DA SA1CT7 ;BSAVE 
47AC: DA $A217 : BLOAD 
A7AE: DA SA2D6 ; RECORD 
47B0: DA SA361 ;CONCAT 
47B2: DA SA1A3 ; DVERIFY 
47B4: DA $A321 ;DCLEAR 
47B6: DA $76EB ;SPRSAV 
47B8: DA $7163 ; COLLISION 
47BA: DA $796B ;BEGIN 
47BC: DA $528E ;BEND 
47BE: DA $72CB ; WINDOW 
47CO0: DA $7334 ;BOOT 
47C2: DA $71B5 ; WIDTH 
47C4: DA $7371 ;SPRDEF 
47C6: DA $4845 ;QUIT - NOT IMPLEMENTED 
47C8: DA SAA1E ;STASH 
47CA: .BYTE 0,0 ;SPARE ADDRESS FOR TOKEN $20 
47CC: DA SAA23 ;FETCH 
47CE: .BYTE 0,0 ;SPARE ADDRESS FOR TOKEN $22 
47D0: DA SAA28 ; SWAP 
47D2: DA $4845 ;OFF -— NOT IMPLEMENTED 
47D4: DA $77B2 ;FAST 
47D6: DA $77C3 ; SLOW 
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KS ae Se a ea ean ae a ae a ein Se ae ae ae a See as ee SS a es ae * 
* * 
ia NFUN - 
* * 
* Numeric FUNction addresses x 
* * 
* NOTE: The address shown is the actual address * 
= of the routine that handles that particular * 
* reserved word. * 
* * 


ADDRESS FUNCTION 


47D8: DA $8C65 ; SGN 
47DA: DA S8CFB ; INT 
47DC: DA $8C84 ; ABS 
47DE: DA $1218 ;USR 
47E0: DA $8000 ; FRE 
47E2: DA $84D0 ;POS 
47E4: DA S8FB7 ;SQR 
47E6: DA $8434 ;RND 
47E8: DA S$89CA ; LOG 
47EA: DA $9033 ; EXP 
47EC: DA $9409 7;COS 
47EE: DA $9410 7;SIN 
47F0: DA $9459 ; TAN 
47F2: DA $94B3 ;ATN 
47F4: DA $80C5 7; PEEK 
47F6: DA $8668 ; LEN 
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* 

* 

* 

* 

* 

* NOTE: 

* 

* 

* 

* 

ADDRESS 

47F8: DA  $85AE 
47FA: DA  $804A 
47FC: DA $8677 
47FE: DA  $85BF 
4800: DA  $85D6 
4802: DA  $860A 
4804: DA  $861Cc 
4806: DA $8182 
4808: DA  §$819B 
480A: .BYTE 0,0 

* 

* 

* 

* 

* 

* 

* NOTE: 

* 

* 

* 

* 

ADDRESS 

480C: DA $8203 
480E: DA  $9BOC 
4810: DA $8076 
4812: DA $8142 
4814: DA  S$80F6 
4816: DA  $824D 


String FUNction addresses 


The address shown is the actual address 
of the routine that handles that particular 
reserved word. 


FUNCTION 


; LEFTS 
;RIGHTS 


;MIDS 
7RGR 


7RCLR 


SFUN 


+ + + £+ + + FF F F 


;END OF BASIC FUNCTIONS FLAG 


Added FUNction addresses 


The address shown is the actual address 
of the routine which handles that particular 
reserved word. 


FUNCTION 


AFUN 


+ + + + € £ £ F&F 
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4818: 
481A; 
481C; 
481E; 
4820; 
4822; 
4824; 
4826; 


4828: 
4829; 
482B: 
482C; 
482E: 
482F:; 


DA $837C ; BUMP 

DA S82AE ;PEN 

DA $8397 ;RSPRITE 

DA S831E *;SPRITE 

DA $8361 ; RSPCOLOR 

DA $83E1 ;XOR 

DA $8407 ; RWINDOW 

DA S82FA ; POINTER 
Ke ee ee ee a a i es SS a a eS ee i ee ee ee * 
* * 
* OPTAB * 
* * 
* (OPerator TABulation priority codes and addresses * 
* for the BASIC math operators.) * 
* * 
* NOTE: The address shown is the actual address of * 
* the routine for that particular reserved word.* 
* * 
* NOTE: The priority code is used to determine which * 
* mathematical operation is done first, then * 
* second, then third and so forth. The hierarchy* 
* of the different operators is as follows: * 
* * 
* 1. Expressions in parentheses ig 
a 2. Exponential expressions (raise to a power) * 
= 3. Multiplication and Division * 
* 4. Addition and Subtraction * 
* 5. Relational tests ( <, >, =, <>, <=, >=) * 
- 6. AND (logical operator) * 
* 7. OR (logical operator) * 
* * 
si If two operators with the same priority code * 
* are used in an expression, then the operations* 
x are completed as read from left to right. 
* 
Ce ce ee ee we ee ee a a ee a ee ee es we me a ae we ww me we = * 

ADDRESS OPERATORS 

~-BYTE $79 ; + Priority code 

DA $8847 ; + (ADDITION) 

~-BYTE $79 as Priority code 

DA $8830 as (SUBTRACT) 

~-BYTE $7B x Priority code 

DA S8A26 ae! (MULTIPLY) 


117 


Abacus Software C-128 BASIC 7.0 Internals 





4831: .BYTE $7B i / Priority code 
4832: DA S8B4B a (DIVIDE) 

4834: .BYTE S7F 4 Priority code 
4835: DA S8FCO es (EXPONENT) 

4837: .BYTE $50 ; AND Priority code 
4838: DA $4C88 ; AND (logical operator) 
483A: .BYTE $46 ; OR Priority code 
483B: DA $4C85 ; OR (logical operator) 


483D: .BYTE $7D 
483E: DA S8FF9 
4840: .BYTE S$5A 
4841: DA $792F 
4843: .BYTE $64 
4844: DA S4CB5 
4846: LDX #40 
4848:  JMP $4D3C 


> Priority code 

> (GREATER THAN) 

= Priority code 

= (EQUAL TO) 

Priority code 

< (LESS THAN) 
UNIMPLEMENTED COMMAND error 
Error message handler 


™e Ve We *e Reo Vo Ve Veo 


KRKKKKKKKKKKKKKKEKKKKKKKEKKEKKKEKEKKKEKKKKKEKKEKKKKKKKKKKKKKK 


ERRTAB 
ERRor TABle 


This area of memory contains a table of the error 
messages used by the BASIC operating system routines. 


NOTE: The last character of each error message is 
stored as a shifted character to indicate the 
end of that error message. 


+ &€ © &€ © & & + FF HF HF F 


+ &€ © & & & & FE FE FF HH 


KKKKKKEAKKKKKKKKKKKKKK KK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKK 


ERROR MESSAGE ERROR NUMBER 


484B: TXT ‘too many files' -): 
4859: TXT 'file open! eZ 
4862: TXT 'file not open' 33 
486F: TXT "file not found' 74 
487D: TXT "device not present' Fas, 
488F: TXT ‘not input file' 76 
489D: TXT ‘not output file' ra | 
48AC: TXT ‘missing file name' 78 
48BD: TXT ‘illegal device number' ;9 
48D2;: TXT "next without for' ;10 
48E2; TXT 'syntax' eel 


48E8: TXT "return without gosub'! pg 
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48FC; 
4907: 
4917: 
491F; 
492C; 
493D: 
494A; 
4957: 
4967; 
4975: 
4982: 
4991; 
499A; 
49AD: 
49BB: 
49CB: 
49D1;: 
49D5; 
49DA: 


49DB: 


49DC:; 
49E8:; 
49F6:3 
4A05:; 
4A153 
4A25: 
4A2D: 
4A3B:3 
4A50:; 
4A643 
4A79:; 


TXT 
TXT 
TXT 
TXT 
TXT 
TXT 
TXT 
TAT 
TXT 
TAT 
TXT 
TXT 
TXT 
TXT 
TXT 
TXT 
TAT 
TAT 
- BYTE 


. BYTE 


TAT 
TAT 
TXT 
TXT 
TAT 
TXT 
TXT 
TAT 
TAT 
TXT 
TXT 


ERROR MESSAGE 


‘out of data’ 
‘illegal quantity' 
'overflow' 

‘out of memory' 
‘undef'd statement' 
"bad subscript’ 
"'redim'd array’ 
‘division by zero’ 
‘illegal direct' 
"type mismatch! 
"string too long' 
'file data' 
‘formula too complex' 
"can't continue' 
"undef'd function' 
'verify' 

'load' 

"break' 

0 


SAO 


‘can't resume' 

‘loop not found’ 

‘loop without do' 
‘direct mode only' 

"no graphics area' 

"bad disk'! 

"bend not found' 

"line number too large’ 
‘unresolved referance' 
"'unimplemented command' 
'file read' 


ERROR NUMBER 


730 

;End of old BASIC error messages 
;And start of added error messages 
s;for the C-128 

;Shifted space used as the last 
;Character of the BREAK message 
3,31 

7,32 

-35 

734 

335 

530 

$31 

,38 

339 

740 

741 
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4A82; 
4A83; 
4A85: 
4A87; 
4A89; 
4A8B: 
4A8D: 
4A8E: 
4A90; 
4A92; 
4A93: 
4A953 
4A97; 
4A99; 
4A9A; 
4A9C: 
4A9E; 


TAX 
LDY 
LDA 
STA 
LDA 
STA 
DEX 
BMI 
LDA 
PHA 
INC 
BNE 
INC 
PLA 
BPL 
BMI 
RTS 





FNDERR 
FiND ERRor 


On entry into this routine the accumulator holds 
the error number. On exiting this routine, 
locations $26, $27 holds the LSB and MSB 
respectively of the address that points to the 
first letter of the error message. 


+ + + © + F FF F FF F F 
+ &€ +£ € &€ © € £ FF F F 


;Move the error number into the X register 


#0 ;Zero index pointer 
#S4B ;LSB of the start of the error messages 
$26 ;Save the LSB 
#$48 :;MSB of the start of the error messages 
$27 ;Save the MSB 
;Subtract 1 from the error number 
S4A9E s;If the error number was O then exit 
($26),Y ;Get a character from the error message table 
;Save it onto the stack temporarily 
$26 ;Add one to the LSB 
S4A99 ;If <> 0, then branch 
$27 ;Add one to the MSB if LSB overflowed 
;Get the error message character off the stack 
$4A90 ;If it's not a shifted character then branch 
S4A8D ;If it's a shifted character branch 


;Exit routine 

KAEKKKKKKKKKKKKKKKKEKKKKKKKEKKKKKKKKKKKRKKKKKKKKKKKKKKKKKRKKEK 
GONE 

This routine checks to see if any of the sprite 


* 
* 
* 
* 
* collisions have occurred and if they have, then it 
* checks to see which type of collision it was and 
* 
* 
* 
* 
* 
* 


+ + + + € F F 


then GOSUBs to the line number specified in the 
program. If no sprite collisions have occurred, then* 
the routine executes the keyword. If there is no ~ 
GOSUB specified, then ignore the collision. * 
* 


KRKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKRKKKKKKKKKK 
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4A9F;: 
4AA2; 
4AA4: 
4AA6; 
4AA9; 


SAAB: 
4AAD: 
4AB0: 
4AB2; 
4AB4:; 
4AB7: 
4ABA; 
4ABC: 
4ABF: 
4AC1: 
4AC2: 
4AC3: 
4AC5: 
4AC6: 
4AC8: 
4AC9;3 
4ACC: 
4ACE;: 
4AD1; 
4AD4; 
4AD?7: 
4ADA; 
4ADD: 
4AE0: 
4AE2: 
4AE5: 
4AE6;: 
4AE8; 
4AE9; 
4AEB: 
4AEC; 
4AED: 
4AEE: 


JMP 
BIT 
BPL 
LDA 
BMI 


+ + OF 


($0308) 
STF 
S4AFO 
$127F 
S4AFO 


;Normal entry $4AA2 

;In direct mode? 

;If so, branch to pass collision testing 

;Check to see if a sprite collision is currently 
;being processed;if so, then branch to prevent 
;More than one collision processed at a time 


* 
This routine checks for a collision interrupt set for* 
any of the three possible types of collisions. * 
* 
a te ac em cas ae mc am ms na Sic es em a ns Ses sae a ce a se * 
#2 ;Check the 3 possible SPRITE 
$1276,X ;COLLISION interrupts 
S4AED ;Check until all 3 are done 
#0 ;Clear the interrupt flag 
$1276,X ;For the one that generated the interrupt 
$1279,X ;Get the address of the line 
$16 ;Number to 'GOSUB' to and 
$127C,X ;Place it into the current 
$17 ;Line number pointers 
;Save the current COLLISION 
;Type being processed 
$3D ;Save the current CHRGET/GOT 
;Pointers onto the stack to 
$3E ;Save the current program 
. ;Pointers for restoration 
$127F ;Set bit 7 to indicate 
#580 ;A COLLISION interrupt is 
$127F ;In progress 
$0380 ;Get the token for GOSUB and discard it 
S5A1D ;Place GOSUB parameters onto the stack 
$59E2 ;Execute a preprocessed GOTO cmd 
S4AF6 ;Execute the BASIC statement 
$127F ;Clear the flag for a 
#S7F ;COLLISION interrupt no longer in progress 
$127F 
;Get the pointers back off 
$3E ;The stack to continue where 
;We left off before the 
$3D ;COLLISION in CHRGET/GOT 
;Get the last COLLISION 
;Tested if all three are not 
;Checked then continue until 
S4AAD ;Done 
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* 
Fe ee ce ee ee ee we we we ws a ew ee eo wm we wn we em = ew we me oe ee we oe ew ee = * 
4AFO: JSR $0380 ;Get the next character 
4AF3: JSR S4B3F ;And execute the keyword 
KKKKKKK KKK KKK KKK KKK KKK KKK KKK KKKKKKK KKK KKK KKKKEKKKKKKKKKKKK 
* * 
* BASIC INTERPRETER LOOP * 
* * 
* This routine will check the STOP key and if the * 
* STOP key is depressed, this routine will abort any * 
* currently active function with a BREAK message. If * 
* the STOP key is not depressed and you are not in * 
* the DIRECT mode, then this routine will save the = 
* current line number for the CONTinue command. Also * 
* save the stack pointer for later use. is 
* * 
KKK KI KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKEKKKEKKKKKKKK KKK KKKEKK 
4AF6: JSR S4BB5 ;Check the STOP key and abort if depressed 
4AF9:; BIT STF ;Check to see if we are in the 
4AFB: BPL $4B03 ;Direct mode and if so, branch to avoid saving 
;The line number for the CONTinue command 
4AFD: JSR $4B34 ;Save the TXTPTR for the CONTinue command 
4B00: TSX ;Get the stack pointer in the X register 
4B01: STX $82 ;And save it in OLDSTX 
4B03: LDY #0 ;Zero the index pointer 
4B05: JSR $03C9 ;Get the next character after the STOP command 
4B08: BEQ S4BOD ;Branch if the END OF STATEMENT FLAG S00 
4BOA: JMP S4BAE ;Check for ':' if not found, then it is an error 
4BOD: BIT S7F ;Check to see if we are in the direct 
4BOF: BPL $4B31 ;Mode if we are, branch to print 'READY' 
4B11;: LDY #2 ;Move the pointer over to the 
4B13: JSR $03C9 ;MSB of the LINE LINK and if 
4B16: BEQ $4B31 ;It's a zero (end of program), then branch 
4B1i8: INY ;Move over to the current 
4B19: JSR $03C9 ;Line number LSB and save it as 
4B1C: STA $3B ;The current BASIC line number LSB 
4B1E: INY ;Move over to the current 
4B1F: JSR $03C9 ;Line number MSB and save it as 
4B22: STA $3C ;The current BASIC line number MSB 
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4B24; 
4B25; 
4B26: 
4B28:; 
4B2A;: 
4B2C: 
4B2E;: 
4B31;: 


4B34; 
4B36: 
4B38:; 
4B3B: 
4B3E; 


4B3F: 
4B41; 
4B44; 
4B46; 
4B48:; 


TYA 
CLC 
ADC 
STA 
BCC 
INC 
JMP 
JMP 


LDA 
LDY 
STA 
STY 
RTS 


BEQ 
BIT 
BPL 
BIT 
BPL 


+ + + 


This routine saves the TXTPTR number for the 
CONTinue command. 


;Add the pointer to the LINE 
;Number to TXTPTR 

;Which will have CHRGOT/GET 

;Point to the LINE NUMBER MSB 

7;So that the next character 

;Read by CHRGET/GOT will be a token 
;Execute BASIC statement 


;Print 'READY.' to the screen 


+ + + 


;Get the address to the 
;Current line number 
;And save it for the 
;CONT command 


KRAKKKKKKK KKK KKK KKK KK KKK KKKKKKKKKKHKKKKKKKKKKKKKK KKK KKK KKK KK 


* 
* 
* 
* 
* 
* 
* 
* 
* 


EXECUTE A BASIC STATEMENT 


If the trace mode flag at $116F is not set, then 


skip over the TRACE routine. 


also skipped if the TRACE mode flag is set and you 


are in the DIRECT mode. 


* 
* 
* 
* 
The TRACE routine is * 
* 
* 
* 
* 


KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKK KK KKK KK KKK KK KEK 


$4B3E 
$116F 
$4B59 
STF 

$4B59 


;Exit if equal to zero 
;Trace mode on or off (0 = 
;If off, then skip ahead 
;If on, check for direct mode $00 = 
;Skip trace if in the direct mode 


off) 


DIRECT 


123 


Abacus Software C-128 BASIC 7.0 Internals 





4B4A;: 
4B4B: 
4B4D;: 
4B50: 
4B53: 
4B55; 
4B58: 


4B59:; 
4B5B:; 
4B5D; 
4B5F: 
4B61: 


4B64; 
4B66: 
4B68: 
4B6A: 
4Be6C: 
4B6E: 


SD a lo sie es ee eee x 
* * 
* PTRACE * 
* * 
i Program TRACE id 
* * 
* This routine prints the current line number in * 
* brackets. On entry, the accumulator holds the * 
* token to be executed. ~ 

ok * 
* Example: [ line number ] * 
* * 


PHA 
LDA 
JSR 


JSR 


LDA 
JSR 
PLA 


CMP 
BEQ 
CMP 
BNE 
JMP 


CMP 
BEQ 
CMP 
BCS 
CMP 
BCC 


;Save value temporarily 


#'[' . 

$560C ;Print a left bracket '[' 
S8E2E ;Print the current line number 
#']' 7 

$560C ;Print a right bracket ']' 


;Get back value from stack 


KKKKKKKKKKKKKKKKKKKKKKKKEKKKKKEKKKKKKKKKKKKKKKKK KK KK KK KKKKK 


* * 
* This routine checks for a dual token command which * 
* is prefixed by an SFE. It also checks for the MIDS * 
* and GO command, plus it masks out the token values * 
* of S$A3-$D4 which cannot be entered as a command by 
* themselves. If any of the tokens $A3-S$D4 do occur * 
* (exceptions: GO and MIDS), a SYNTAX ERROR will be * 
* generated. On entry to this routine, the accumulator * 
* holds the value of the token. * 
* * 
* * 


kakkkkkkkkkkkk kk kkk KKK KKK KKKKKKKKKKKK KKK KKKKK KKK KK KKK 


#SFE ;Dual token BASIC COMMAND 

S$4B94 ;Yes, go to dual token execute 

#SCB ;Is it 'GO! ? 

S4B64 ;No, then skip ahead 

$5A3D ;Yes it is the GO command,then check for 
;The GOTO or GO commands and execute 

#SCA ;Is it 'MIDS' ? 

S4B8B ;Yes ,then go execute 

#SFB ;If it is equal to or greater than 

S4BAB ;SFB, then generate a 'SYNTAX ERROR! 

#SA3 jIs it 'TAB(' ? 

S4B76 ;If less than, then skip ahead 
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4B70: CMP #SD5 ; 'ELSE!? 

4B72: BCC $4BAB ;Less than, ‘SYNTAX ERROR’ 
NC ee a i es oe ee ee ee a is Ss ee a a ee ee ee ee eae ee oe oe oe * 
* * 
* This routine first subtracts 50 from the token if it * 
* is larger than $D4 and then subtracts 128 from the * 
* token and checks to see if it is a letter. If it is * 
* a letter, then the routine jumps to the LET routine * 
* at $53C6. If the token was less than $A3, then the * 
* routine only subtracts 128 from the token. * 
* * 


* 
! 
! 
| 
| 
t 
| 
! 
! 
| 
! 
| 
| 
! 
i 
| 
| 
! 
| 
! 
! 
| 
| 
| 
! 
| 
| 
| 
| 
! 
1 
| 
| 
t 
| 
| 
! 
! 
| 
t 
! 
| 
| 
| 
| 
! 
| 
! 
t 
! 
| 
| 
| 
| 
! 
| 
* 


4B74: SBC #$32 ;Subtract #$32 

4B76: SEC ;From token in the accumulator 

4B77: SBC #$80 ;Then subtract #$80 

4B79: BCS S4B7E ;To create a pointer, if carry is set, then skip 
4B7B: JMP $53C6 ;Carry isn't set so it's a character, goto the 


;LET routine 


* 
| 
| 
| 
| 
| 
! 
| 
! 
| 
! 
| 
{ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
! 
! 
1 
| 
| 
| 
t 
| 
| 
| 
| 
! 
{ 
t 
! 
! 
! 
| 
! 
| 
| 
! 
t 
! 
! 
| 
! 
! 
| 
| 
| 
| 
| 
! 
* 


* * 

* This routine first multiplies the token value by 2 * 

* after the subtraction performed in the preceding * 

* routine, and uses the resulting value as an index * 

* to the table of command addresses at S$46FC to find * 

* the correct address for the command. The MSB and * 

* LSB of the address are put on the stack and the x 

* routine, then exits by jumping to the CHRGET routine * 

* to get the next character and execute the command. % 

* * 

, * 
4B7E: ASL ;Take value created above and multiply it by two 
4B7F: TAY ;To create a pointer in the Y register to the 

;Command address | 
4B80: LDA S46FC+1,Y ;Get the MSB of the address 
4B83: PHA ;Put it on the stack 
4B84: LDA S46FC,Y ;LSB of the address - 1 
4B87: PHA ;Put it on the stack 
4B88: JMP $0380 ;Get the next character and execute the command 
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Kee wee ee Se ae we ee ee em Oe ei ee ee we a a a a i a i a i oe ow oe * 

* * 

* The following routine is used to execute the MID$ * 

* command if the MIDS command is used by itself. * 

* * 

* EXAMPLE: MID$(A$,1,1) = BS * 

* * 

Kase eee See eee ee eae Se Se eae eae eee ae ee eae Se ee ae a ae a we a ee ee ee * 
4B8B: LDA #559 7;MSB 
4B8D: PHA ;Put it on the stack 
4B8E: LDA #$00 ; LSB 
4B90: PHA ;Put it on the stack 
4B91: JMP $0380 ;Get the next character and execute the command 

I ai ee a ee en a Se ee ee a a ee a a a a i a a a * 

* * 

* This routine is used to execute the dual token * 

* commands that are prefixed by an SFE. First the * 

* routine checks the character following the SFE and * 

* if it is a zero, the routine aborts with a SYNTAX * 

* ERROR. If it is not a zero, then the range is * 

* checked to see if the token is less than 2 or = 

* greater than 38. If it is, then a SYNTAX ERROR is * 

* generated. If the token is in the right range, * 

* then a value of 71 is added to the token value and * 

* the routine branches back to the routine preceding * 

* this routine that executes the command. * 

* * 

Kea eee ee eee ee eee eee ea eae ee a eee eee eee ee ee ee ee a ee * 
4B94; JSR $0380 ;Get the next character 
4B97: BEOQ S4BAB ;If it is a zero then generate a 'SYNTAX ERROR! 
4B99:; CMP #2 ;Compare char. to the first dual token commmand 
4B9B: BCC S4BA5 ;If it is less, then generate a 'SYNTAX ERROR! 
4B9D: CMP #527 ;Compare the character to the last dual token + 1 
4B9F: BCS S4BA5 ;If its value is greater, then generate a 

; ‘SYNTAX ERROR! 
4BA1l: ADC #$47 ;Add #$47 to create the pointer to the command 
; Address 

4BA3; BNE S4B7E ;Multiply times 2 and execute the command 
4BA5: SEC ;Set the carry bit to generate a 'SYNTAX ERROR! 
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kKakkkkkkkkkkkkkkkkkkkek kkk kkk kk KekKKkk kkk kkk kK KK KKK KK KKK KK KK 


* * 
* ESCEX * 
* * 
* ESCape EXecution * 
* * 
* This routine is vectored through $0310 (IESCEX) to en-* 
* able the addition of new BASIC commands which have the* 
* first token value of SFE and the second token value * 
* between $02 and $27, if the second value is not in * 
* this range, a 'SYNTAX' error is generated. If you wish* 
* to add more commands to the C-128 operating system, * 
* wedge into this vector and check for your own tokens. * 
* * 
* NOTE: This vectored routine will exit with the carry * 
* set, the second character in the accumulator, and BANK* 
* 14 enabled. If it is one of your new commands, you = 
* must clear the carry flag or else a 'SYNTAX' error * 
* will result. ss 
* * 
kakkkkkkkkkkkkkkkkkkkkkkek kkk kK KKK KK KKK KKK KKK KKK KKK KkKK KKK K 


4BA6: JMP ($0310) ;Normally $4BA9 

4BA9: BCC $4B91 ;If the carry is clear then get the next 
;Character and exit 

4BAB: JMP $796C ; SYNTAX ERROR 


KkKKKK KKK KK KKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKkKkKkKkkkkkkkkkk 


* 
Check for a colon in the accumulator and if one is * 
not present, then generate a SYNTAX ERROR message. * 
If a colon is found in the accumulator, then * 
execute the BASIC keyword (statement) * 

* 

* 


+ e+ + F 


Ke KKK KKK KKK KKK KKK KKKKKKKKEKKKKKKKKKKEKKKKKKEKKEKKKKKKKKKKKEKEK 


4BAE: CMP #' 3! ;Compare to a ':! 
4BB0O: BNE S4BAB s;If it is not a ':', then generate a SYNTAX ERROR 
4BB2: JMP S4A9F :;Execute the BASIC statement 
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kakkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkKkK KK KKK KKKKKKKKKKKKKKKK 


CHKSTP 
CHeck for the SToP key 
check to see if the STOP key is depressed. If the 


STOP key is depressed, then the 'BREAK’' error 


* * 
* * 
* * 
* * 
* * 
* This routine is called by various BASIC routines to * 
* * 
* * 
* message will be printed. = 
* * 
* * 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKEKKKKKKKKKKKKKKKKKKEKK 


4BB5: JSR $9293 ;Check the STOP KEY 
4BB8: BEQ S4BBB ;Branch if it is depressed 
4BBA: RTS ;Exit the routine if it is not depressed 
ec ce ee we we a we a a a es a i a a oe wn ee we ew ww ww ww we ww ww ww ew = oe * 
* 
Check to see if the TRAP command is specified. * 
Se a a i a es Ss a a ea a a a a * 
4BBB: LDY $120C 7;Get the line number to execute on error 
4BBE: INY ;Add one and if equal to zero, then no line 
;Number to go to 
4BBF: BEQ S4BDO ;Execute a BASIC END COMMAND 
Cae a Se ew ee a ea ae eae eh a a a a ee oe a ee ae ae ee a a er a Ss Se ee eee ee * 
* * 
= A TRAP command was specified, so wait until the = 
. STOP key is released before executing the TRAP = 
* line to prevent another BREAK (STOP). * 


4BC1: JSR $9293 ;Check the STOP KEY 


4BC4: BEQ S4BC1 ;And wait for it to be released 
4BC6: LDX #30 ;BREAK error 
4BC8: JMP $S4D3C ; ERROR MESSAGE HANDLER 


KKKK KKK KKK KKK K KKK KKK KEK KKK KKK KKKKKKEKKE KK KK KKK KKK KKK KKK KEK KEK 
* 


BASIC STOP COMMAND 


Command syntax: STOP 


+ + + 
+ + + 
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4BCB: 


4BCD: 
4BCE: 
4BD0: 
4BD2: 
4BD4: 
4BD7: 
4BD9: 
4BDB: 
4BDE: 
4BE1: 
4BE2: 
4BE3; 


4BE5: 
4BE8: 
4BEA: 
4BEF: 
4BFO; 


BCS 


CLC 
BNE 
BIT 
BPL 
JSR 
LDA 
LDY 
STA 
STY 
PLA 
PLA 
BCC 


JSR 
DFB 
TXT 
DFB 
JMP 


* 


* 


* 


C-128 BASIC 7.0 Internals 


In order to execute a STOP command, the carry flag " 
is set and then a BASIC END command is executed. * 


* 


KKKKKEKKKKKKEKEKKKKKKKKEKKEKEKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKEK 


S4BCE 


;Branch past end flag and leave carry set 


KKEKKKKKKEKEKEKKEKKKKKKEKKKKKKKKKKKAKKKKKKKKKKKKKKKKKRKKKKKKRKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


Command syntax: 


BASIC END COMMAND 


END 


To discern between the END command and the STOP 
command, the carry flag is set for the STOP command 
and the carry flag is cleared for the END command. 


command in that they both stop the program 

execution and both save the current line number 
for the CONTinue command if you are not in the 
DIRECT mode. 


S4BF6 
S7F 
S4BE1 
$4B34 
$3B 
$3C 
$1200 
$1201 


S4BF3 


$9281 


SOD,SOA 
'break' 


$00 
S4DAF 


The only difference between the two 
commands is that the STOP command prints a BREAK 
message when executed and the END command doesn't. 


* 
* 

* 

* 

* 

* 

* 

* 

The END command is basically the same as the STOP * 
* 

* 

* 

* 

* 

* 

* 

* 


KKKKEKKKKEKKKKKKKKKKKKKKKKKRKKKKKKRKKRKKKKKKKKKKRKRKRKKKKKKKKKK 


;Clear the carry for the BASIC END flag 


;Left over from 64 code, 


not used here 


;Check to see if in DIRECT mode or PROGRAM mode 


;If in DIRECT mode, 


no line number branch needed 


;Save the pointers for next line number for CONT 
s;Current basic line number LSB 
;Current basic line number MSB 


;Save 
sthem 


;Pull the return address off of 


; The 


stack 


;If the END flag is set, branch and don't print 
; 'BREAK' 


sPrint 


¢<cr> 


sPrint 


"BREAK' to the screen 


, 1LO=(LINE FEED) 


‘IN? 
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;End of message pointer 
followed by the current line number 
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Jump to print the READY message. * 


KEKKKKKKKKEKKKEKKKKKERKEKKK KK KKK KK KKK KKK KKKKKK KKK KKK kkk Kk KkkKkK 


4BF3: JMP $4D37 Print 'READY' to the screen 
4BF6: RTS s Exit routine 


KREKKKKKKKKKEKKKKKKKKKKKKKKKKKK KK KKK KKKK KKK KKK KKKKKkKk kk KKK KK 


* 
* This routine has 3 basic checks to separate the 

* Numeric Functions, Added Basic Functions ,and String 
* Functions with more than one parameter. Once this 

* routine determines which one of the three types the 
* command falls under, this routine calls the proper 

* routines for executing that particular command. In 

* the case of the string functions, this routine will 
* obtain the proper parameters, then call the proper 

* routine that handles the string function. 

* 
* 


t+ + + + * *  H H 


KAKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KK KK KKK KK KK KKK 


4BF7: CMP #SCE ;Dual token BASIC FUNCTION? 
4BF9: BEQ $4054 ;Yes ,branch to get second token 
4BFB: CMP #$D5 sIs it ‘ELSE’ ? 
4BFD: BCS S4BAB ;If greater ,then 'SYNTAX ERROR' 
4BFF: CMP #SCB ;If less ,is it 'GO' ? 
4C0O1: BCC $4C05 ;If less ,then skip next instruction 
4C03: SBC #1 ;Token - 1 
4C05: PHA ;Put token on stack 
4C06: TAX ;And in the X register 
4C0O7: JSR $0380 ;Get the next character 
4COA: CPX #SD3 ;Compare the first token to "INSTR! 
4c0OC: BEQ $4C16 ;Skip other comparisons if so 
4COE: CPX #SCB ;Is it 'RGR' ? 
4C10: BCS $4C3B ;If greater than, then go to function execute 
4C12: CPX #5C8 ;Compare to 'LEFTS' 
4C14: BCC $4C3B ;If less than, go to the function 
i a ee ea a a a ee a ce ee a ee ee * 


4C16: JSR $7959 ;Check on '(' and get the next character 


130 


Abacus Software 





4C19; 
4cl1c; 
4Cl1F; 
4C22; 
4C23: 
4C25: 
4C27: 
4C28:; 
4C2A: 
4C2B: 
4c2D: 
4C2E: 
4C2F; 
4C30: 


4C33: 
4C34: 
4C35; 
4C36: 
4C37; 
4C38: 


4C3B; 
4C3E: 
4C3F; 
4C40: 
4C42; 
4C43; 
4c44; 
4C4A7: 
4C49: 
4c4C; 
4C4E: 
4c5l: 


JSR 
JSR 
JSR 
PLA 
CMP 
BEQ 
TAX 
LDA 
PHA 
LDA 
PHA 
TXA 
PHA 
JSR 


PLA 
TAY 
TXA 
PHA 
TYA 
JMP 


JSR 
PLA 
SEC 
SBC 
ASL 
TAY 
LDA 
STA 
LDA 
STA 
JSR 
JMP 


+ + + + £ € £€ FF HF F 


C-128 BASIC 7.0 Internals 


S77EF ;Evaluate expression (FRMEVL) 
$795C ;Check for a comma (CHKCOM) 
$77DD ;Check for a string (CHKSTR) 
;Pull the first token off the stack 
#SD3 ;Is it "INSTR! ? 
$4C80 ;Yes, then execute 
No, then store the token to the Y register 
$67 *;MSB floating point accumulator (FAC1) 
;Put on stack 
$66 ;LSB floating point accumulator (FAC1) 


7;Put on stack 
Transfer the token to the accumulator 
;Save the accumulator onto the stack 


S87F4 ;Convert the accumulator to integer, and return 
;The resulting integer value to the X register 


;Get the accumulator from the stack 
;Transfer the token to the Y register 


;Stored the converted value to the accumulator 


s;Put it on to the stack 


a 


S4C3F ;Execute the function 


131 


* 
This routine is used to execute the numeric * 
functions. This routine first evaluates the * 
expression in parentheses and calculates the address * 
of the function to be executed by subtracting 180 * 
from the token value and then multiplying that value * 
by two. The routine then executes the function that * 
is pointed to by the address that was calculated * 
from the function's token value. * 
* 
ae oe oe oe ee ae ae a ee ee we we a ew em ew ew eee BO we re ee we ew ww ewe ow ewe * 
$7950 ;Evaluate the expression in parentheses 
;Get the token off the stack 
;Subtract 180 
#SB4 ;And 
;Multiply the result by 2 
;To make a pointer in the Y register 
$47D8+1,Y ;MSB of the function address 
$58 ;JMP vector high byte for function evaluations 
$47D8,Y ;LSB of the function address 
$57 ; IMP vector low byte for the function evaluations 
$0056 ;Evaluate the function 
ST7DA ;Check for numeric 
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4C54; 
4C57; 
4C59:; 
4C5B: 
4C5D: 


4C5SE: 
4cél: 
4Co4:; 
4Cé7: 
4C68: 
4C6A: 
4CéC: 
4C6E: 
4C70: 
4C72: 
4C74: 
4C75: 
4C78: 
4C7TA: 


+ + + & + F 


This routine checks the range on a dual token and 

if the value of the token is in range, the function 
represented by that token is executed. 
the token value is out of range a SYNTAX ERROR 


results. 
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However, if 


+ + + + + F F 


;Get the next byte 

;If it is equal to zero, then it is an error 
;Token for 'POINTER' 

;Skip if it is the token for 'POINTER' 
;Save it on to the stack if it is not the 
;Token for the POINTER command 

;Get the next character 

;Check for an opening parenthesis 
;Evaluate the expression 

;Get the token back 

;Compare it to token value for the 'POT' 
;If it is less than, then it is an error 
;Compare to the largest possible dual token + 1 
;If it is larger, then it is an error 

;Add #$D1 to make the pointer to the address 
;Branch to make the pointer and execute 

;Carry set for error 

;Normally JuMPs to $4C78 

;Ilf the carry is set, then it represents an error 
;Check for numeric 


function 


Kak kkKkkkkk kkk Kk KKK KK KKK KKK KK KK KK KKK KKK KK KKK KKK KKKKKEKKK 


+ + + £ € £ FF FF &F FF F F F F F 


This routine is vectored through $02FC (IESCNFNVEC) 
to enable the addition of new BASIC commands which 
have the first token value of SCE and the second 
token value between $02 and SOA. 
is not in this range a SYNTAX ERROR results. If you 
wish to add commands to the C-128 operating system, 
wedge into this vector and check for your own 

When this vectored routine is called, the 
carry flag is set and the second token value is in 
the accumulator. 


tokens. 


ESCape FuNction command VECtor 


ESCFNVEC 


t+ + + F F F F OF 


If the second value* 


+ + + * 


Also, note that this is a FUNCTION 
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* VECTOR, and is called by such statements as PRINT * 
* pointer ($A8). This routine will return you to e 
: RAM BANK 14. * 
* * 
* 


KKKKKKEK KKK KKK KKK KKK KKKKKKEKKKEKKKKKKKKKKKKKKKKKKKKK KKK 


4C7D: JMP (SO2FC) :JuMPs TO $4C78 
4C80: JMP $99Cl1 ;JuMPs to INSTR command 
4C83: JMP $796C ; SYNTAX ERROR 


KKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK HKKKKKKKKKKKKKKKKKKKKKKK 


BASIC OR COMMAND 


Command syntax: < expression > OR < expression > 


+ + + & 


To perform a logical OR of two numbers, a flag at $0OD* 
is set to SFF (255) to invert the value to be ORed * 


before performing an AND command. * 


* 
* 
* 
* 
* 
* 
* 
* 
* * 
* 


KKK KKK KKK KK KK KKK KKK HKKKKKHKKKKKKKKKKKKKEKKKKKKKKEKKKKKKKKKEK 


4C86: LDY #SFF ;Flag for the OR command 
4C88: DFB $2C ;MASK to bypass the OR flag 


KKKKKKKKKK AK KKKKKKEKKEKEKKKKKEKEKHEKKKKEKKKEKKKKKKKKKKKKKKKK 


BASIC AND COMMAND 
Command syntax: < expression > AND < expression > 


* 

* 

* 

* 

* 

* This routine is used to perform a logical AND or an 

* OR between two numbers. To perform OR a flag at SOD 

* is set to $FF to invert the value before ANDing it. 

* The value is then inverted to complete the OR. For 

* AND, the routine clears the flag at $0D so the value 
x isn't inverted before the AND command. This routine 

* converts the two numbers from floating point format 

* to integer form then performs the specified function. 
* 
* 


* + + ££ £ € F € FF FF FE F FE HF F 


KKK KKK KKK KKK KKK KKK KKKKKKKKKEKKEKKKKKEKKKKKKKKKKKKKKKKKKK 


4C89: LDY #0 ;Flag for AND command 

4C8B: STY SOD ;Save the flag value 

4C8D: JSR $84B4 ;Change the first value to an integer 

4C90: LDA $66 ;Get first value from floating point accumulator 
4C92: EOR SOD ;If the flag is set for an OR, invert the value 
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4094; 
4c96:; 
4C98:; 
4C9A; 
4c9C: 
4COF; 
4CA2: 
4CA4: 
4CA6: 
4CA8; 
4CAA;: 
4CAB: 
4CAD: 
4CAF: 
4CBl; 
4CB3: 


4CB6: 
4CB9: 
4CBB: 
4CBD: 
4CBF: 
4cCl; 
4CC3: 
4CC5; 
4CC7: 


STA 
LDA 
EOR 
STA 
JSR 
JSR 
LDA 
EOR 
AND 
KOR 
TAY 
LDA 
EOR 
AND 
EOR 
JMP 


JSR 
BCS 
LDA 
ORA 
AND 
STA 
LDA 
LDY 
JSR 


$09 ;Store the result 

$67 ;MSB 

SOD ;If OR, then value will be inverted 

SOA ;Store the result 

$8C28 ;Move argument to floating point accumulator 

$84B4 ;Change second value to an integer 

$67 ;MSB 

SOD ;If OR the value will be inverted 

SOA ;And with value 

SOD ;If OR the value will be inverted back 
;Save the MSB into the Y register 

$66 ; LSB 

SOD ;If OR the value will be inverted 

$09 ;And with value 

SOD ;If OR the value will be inverted back 

$793C ;Convert the Y register and the accumulator 


;To floating point. The LSB is in the accumulator 
;And the MSB is in the Y register 


KKEKKKKEKKKKKKKKKKKKKKKKKEKKAKKKEKKKEKKEKKEKKKKKKKKEKKKKKKRKKKEKE 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


* 


BASIC LESS THAN FUNCTION ( < ) * 
* 


This routine first checks to see if the comparison * 


is for a numeric value or a string. If the comparison* 
is for a string, the String Comparison routine at * 
S4CCE is called. However, if the comparison is for a * 
numeric value, Floating Point Accumulator 1 (FAC1) is* 
compared to the Argument in Floating Point Accumula- * 
tor 2 (FAC2) and the result of the comparison is re- * 
turned to the accumulator and then transferred to the* 
Floating Point Accumulator. The three possible values* 


that could be returned to the accumulator after a * 


comparison are: 


$Ol(greater) SFF(less) $00 (equal). * 


* 


KKKKKKKEKKKKKEKKKKEKKEKKKKEKKEKKEKKKKKEKKEKKKKKKKKKKKKKKRKKKK 


$77DE ;Check if string or numeric 

S4CCE ;Branch to String Comparison if it is a string 
S6F ;Sign of the argument 

#S7F ;To mask for AND 

S6B ;AND with value, if value is positive, drop bit 7 
S6B ;Store the value back 

#S6A ;Address of the argument 

#0 ;MSB 

$8C87 ;Compare the argument with floating point 


;Accumulator;put the result in the accumulator 
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4CCA: 
4CCB: 


4CCE; 
4CDO; 
4CD2: 
4CD4: 
4CD7: 
4CD9: 
4CDB: 
4CDD: 
4CDF: 
4CE1: 


4CE4:; 
4CE6; 
4CE8; 
4CE9: 
4CEA; 
4CEC: 
4CEE; 
4CFO: 


4CF2: 
4CF4; 
4CF6: 
4CF8; 
4CFA: 
4CFB: 
4CFC;: 
4CFD: 


TAX 
JMP 


LDA 
STA 
DEC 
JSR 
STA 
STX 
STY 
LDA 
LDY 
JSR 


STX 
OLY 
TAX 
SEC 
SBC 
BEQ 
LDA 
BCC 


LDX 
LDA 
STA 
LDY 
INX 
INY 
DEX 
BNE 


;Place result in the X register 
$4D01 ;Give the results to floating point accumulator 


kKaeKKKKKKKKKKKKKK KKK KKK KKK KKK KKK K KKK KKK KKK KKK KKK KK KKK KK KKK 
* 

STRING COMPARISON * 

* 

This routine first checks VALTYP at SOF to be sure * 
the comparison is for a string. To do a comparison of* 
two strings, the length and character values of the * 
first string are compared to the length and character* 
values of the second string. If the comparison type * 
specified by zero page location $14 is found to be * 
true, the value returned to the accumulator is $00. * 
If, however, the comparison specified by location $14* 


is false, the vlaue returned is SFF. * 
* 


+ + + + + 2% + % HF F HF HF 


KKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKK KKK KKKKKKKKKKKKKKKKK KKK 


#0 
SOF ;Set data type 
S4F ;To numeric 
$8781 ;Find the lst string 
$63 ;lst String length 
$64 ;lst String address LSB 
$65 ;lst String address MSB 
$6D ;Pointer to 2nd string 
S6E ;For comparision 
$8785 ;Find the 2nd string and return the length value 
;Of the string to the accumulator 
$S6D ;Save the address of the 2nd 
S6E ;String 
;Save the length of the 2nd string 
;Subtract length of lst string from 2nd string 
$63 ;And if the result 
S4CF6 ;Is zero, then branch 
#1 ;For 1st string is shorter 
S4CF6 ;Carry is clear if the lst string is shorter 
;Than the 2nd string 
$63 ;Length of the lst string 
#SFF ;For lst string longer than the 2nd string, save 
$68 ;The value of the result of the length comparison 
#SFF ; 
;Increment the pointer 
;Decrement the length counter by one 
S$4D06 ;If not zero yet, then continue 
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4CFF: 
4D01: 
4D03: 
4D04; 
4D06: 
4D08: 
4DOB: 
4D0C: 
4DOE: 
4D11: 
4D13: 
4D14; 
4D16; 
4D18: 
4D1A; 
4D1C; 
4D1E: 
4D1F: 
4D20: 
4D21: 
4D23: 
4D25: 
4D27: 
4D2A: 
4D2D: 
4D2E; 
4D34: 
4D35; 
4D36:; 


4D37: 
4D39: 
4D3A: 


LDX $68 ;If zero, then get the length flag 

BMI S4D1E ;If longer,then branch 

CLC ;If equal to or shorter 

BCC S4D1E ;Branch 

LDA #$6D ;LSB of the indirect address of the 2nd string 

JSR S$O3AB ;Get a byte of the 2nd string from BANK 1 

PHA ;Save it to the stack 

LDA #564 ;LSB of the indirect address of the lst string 

JSR $O3AB ;Get a byte of the lst string from BANK 1 

STA $79 ;Save the value 

PLA ;Get a byte of the 2nd string off the stack 

CMP $79 ;Compare it to the byte of lst string 

BEQ S4CFB ;If they are the same, then continue checking 

LDX #SFF ;For string longer 

BCS S4D1E ;If carry is set, then ok longer, branch 

LDX #1 ;If not, then set for shorter string 

INX ;Increment the length flag by one 

TXA ;Put the value in the accumulator 

ROL ;Shift one bit left to indicate 

AND $14 ;What type of comparison took place 

BEQ $4D27 ;If zero, then OK 

LDA #SFF ;For no match 

JMP $8C68 ;Result to the floating point accumulator 

JSR $9281 ;Print the following text 

DFB 13 ;Print a <cr> 

TXT ‘ready.' 

DFB 13 ;Print a <cr> 

DFB 0 ;Until the end of text flag is seen 

RTS 
See BE He He EE HGH He Ie ERA eI De BRK RR IRR NRTA R BH EAR RRR ERE ERS 
* * 
* READY * 
* * 
* This routine will print 'READY' to the currently n 
* active output device, enable the KERNAL error * 
* messages, and disable the control messages. The * 
* routine then proceeds to the MAIN BASIC LOOP. * 
* * 
KkakkkkkekkekkkekkkekkKKeKKKK KKK KKK KK KKK KKKKKKKKKKKKKKK KKK KKKKK 

LDX #580 ;Set bit 7 to fall through to warm start 

~BYTE $2C ;Mask (BIT instruction) 

LDX #16 ;OUT OF MEMORY error 
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4D3C;3: 
4D3F: 
4D42: 
4D43; 
4D45; 


4D48: 
4D4A: 
4D4C; 
4D4E; 
4D51; 
4D54: 
4D57: 


4D5A: 
4D5B: 
4D5D: 


JMP 
STA 
TXA 
BMI 
STX 


BIT 
BPL 
LDY 
LDA 
STA 
LDA 
STA 


DEY 
BPL 
LDY 


KKKKEKK KKK KKK KKK KKKKEKKEKKKKKKKKKKKKKEKKKKEKKKKKKKKKKKKKK 


ERROR 


* 

* 

* 

* This routine is vectored through location $0300. 

* On entry into this routine, the X register holds 

* the ERROR number. If bit 7 of this value is set, 

* this routine will print 'READY' to the current 

x output device, enable the KERNAL error messages, 

* disable the KERNAL control messages, and proceed to 
* execute the MAIN routine. If bit 7 is not set, this 
* indicates that there is indeed an ERROR message to 
* be printed. This routine will then save the ERROR 
* number for the TRAP command and the system variable 
* ER. Then a test is made to see if you are in the 

* DIRECT or the PROGRAM mode. If you are in the 

* DIRECT mode, a branch is made to the ERROR 1 

* routine. If you are in the PROGRAM mode with a 

* program running, the line number where the error 

* occurred and the address of the end of line flag 

* of the line prior to the line that the error 

* occurred in is saved. A check is then made to see 
* if a line number was specified for the TRAP command. 
* If a line number has been specified, that line is 

* then executed. However, if there is no line number 
* specified for the TRAP command, this routine 

* branches to the ERROR 1 routine. 

* 
* 


+ € £ £€ © FF & £ & F FF HF HF FF FF FF FEF €F FE FH FF FF FEF FE F HF F 
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($0300) s;Normal entry $4D3F 

SFFO3 ;Enable BANK 14 
s;Transfer the error number into the accumulator 

$4DB7 ;If bit 7 is set then print 'READY' 

$1208 ;Save the error number for the TRAP command and 
;The system variable ER 

S7F ;Check to see if in direct mode 

S4D7C :;Branch if in direct mode 

#10 ;Index pointer 

$003B,Y ;Current basic line number 

$1209,Y ;Save as last error number 

$1202,Y ;Save it for the CONT command 

$120E,Y ;Pointer to the end of line flag ($00) of the 


;Line the error occured in 


;Subtract one from the index pointer 
S4D4E ;Do two bytes 
$120C ;Line number to goto on ERROR 
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4D60: 
4D6l1: 
4D63: 
4D64: 
4D66: 
4D69: 
4DéC: 
4D6E: 
4D70: 
4D73: 
4D75:; 
4D76: 
4D79:; 


4D7C: 
4D7D: 
4D7E: 


4D81: 
4D84: 
4D86: 
4D88: 
4D8A: 
4D8C: 
4D8E: 
4D91; 
4D94: 
4D96: 
4D98; 
4D99; 
4D9B: 
4D9E: 


INY 
BEQ 
DEY 
STY 
STY 
LDY 
STY 
LDX 
STX 
LDX 
TXS 
JSR 
JMP 


DEX 
TXA 
JSR 


JSR 
LDA 
STA 
BIT 
BMI 
STA 
JSR 
JSR 
LDY 
LDA 
PHA 
AND 
JSR 
INY 


S4D7C 


$17 
$120D 
$120B 
$16 
#SFF 
$120C 
$82 


$59FB 
$4AF6 


;Increment the line number by one 

;No line number, print the error message 
;Decrement the line number by one 

;Save the line number MSB 

;Save the pointer for the TRAP command 
;Line number to execute on system errors 
;Save the line number LSB 


;Clear the line number to be executed on ERRORs 
;Old stack pointer 

;Transfer the old stack pointer back onto stack 
;Program pointer to line number 

;To BASIC INTERPRETER LOOP 


KKK KKK KK KKK KK KKK KK KK KKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


This rou 


tine will be called by the ERROR routine if 
an error has occurred in direct mode or if an error 
has occurred in the program mode when no line number 
is specified for the TRAP command. When called, this 
routine will subtract one from the error number 
stored in the X register, 
make the keyboard the current input device, 


ERROR 1 


clear all open channels, 
and then 


+ + + % F FF F HF 


print the error message to the current output device.* 


$4A82 


$926F 
#0 
$15 
SD7 
S4D8E 
SD8 
$5598 
SS60A 
#0 


($26),Y 


#S7F 
$560C 


* 


KKK KKK KKK KKK KKK KKK KKK KKK KEKE KKEKKEKKKKKKKKKKK KKK KKK K KKK K 


;Error number-1 

;Place the error value in the accumulator 
;Move the pointer to the first character of 
;The error message 

;Basic CLear CHannels 

;Set the KEYBOARD as the 

;Current active input device 

In 40/80 column mode? 

;Branch if in 80 column mode 

;sSet flag for TEXT MODE 

;Print a return to the screen 

;Print a question mark 

;Index pointer 

;Character of the error message 

;Place it onto the stack 

;Print the characters that are not shifted 
;Output the error message 

;Increment the pointer to next text character 
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4D9F; 
4DA0; 
4DA2: 
4DA5: 
4DA8: 
4DAE: 
4DAF ;: 
4DB1: 
4DB2: 
4DB4; 
4DB?: 
4DBA: 
4DBC; 
4DBF: 
4Dc1: 


4DC3: 
4DC6: 
4DC8:; 
4DCA; 
4DCD: 
4DCF; 
4DD1: 
4DD4: 
4DD5; 
4DD?7: 
4DD9:; 


PLA 
BPL 
JSR 
JSR 
TXT 
. BY 
LDY 
INY 
BEQ 
JSR 
JSR 
LDA 
JSR 
LDA 
STA 


JMP 
LDX 
STX 
JSR 
STX 
STY 
JSR 
TAX 
BEQ 
BCC 
JSR 


$4D96 

$5238 

$9281 

' error' 
TE $00 

$3C 


$4DB7 
$8E26 
S4D2A 
#$80 
SFF90 
#0 
S7F 


;Check bit 7 for end of text flag 

;If the flag is not set, then branch 
;Done, initialize BASIC-pointers 

;Print the following message 

;To the screen until 

;The end of text flag is seen 

;Current basic line number high 

;Move pointer to next line 

;Line number? No then 'READY' 

;Print text ' IN' and line number 

;Print ' ready.' to the current output device 
;Set bit 7 to enable KERNAL error messages 
;and disable KERNAL control messages 

;Set the current mode 

;DIRECT MODE 


wKKkKKKKK KK KKK KKK KKK KKK KK KKK KKK Kk KKK KKK kkk kkk kkk kKK KK KKK KK KKK 


+ £ + + F + F F F F F F F F F F OF OF 


($0302) 
#SFF 
$3C 
S4F93 
$3D 
$3E 
$0380 


$4DC3 
S4DE2 
$430A 


This routine is vectored through location $0302. 
This routine gets a character from the keyboard and 
places it into the BASIC Input Buffer. This 

process continues until either 161 characters have 
been entered or the RETURN key is pressed. If over 
161 characters are entered a 'STRING TOO LONG’ error 
will occur. However, when the RETURN key is pressed, 
this routine checks to see if there is a line number 
associated with the line being inputted. If there is 
a line number, the routine branches to the routine 
that tokenizes and stores a program line. If a line 
number is not found, then the routine branches to the* 
routine that executes a direct mode command. = 


MAIN 


t+ + + + F F  F F F F F  F 


* 
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;Normal entry S$4DC6 


;Current basic line number high 
;Get input from the keyboard 
;Save the current pointers to keyboard 


;Get the first character from keyboard 
;Transfer it into the X register 

;If there are no more entries, branch 
;If carry = 0 then not a character 
;Convert to token 
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4DDC: JSR $0386 ;Get the last character back 
4DDF: JMP S4AF3 ;Execute the keyword 


KKEKKKKKKKKKEKKKKKKKKEK KKK KE KKK KKK KKKKEKKEKKKKKKKEKKKKKKKKKKKKKK 


MAIN 1 


* 

* 

* 

* This routine is called every time the user presses 

* the RETURN key over a BASIC program line to enter it. 
* First the ASCII line number is converted to its HEX 

* equivalent. The routine at $430A is then called to 

* tokenize the rest of the line. After this has been 

* accomplished, a search of the memory is made for 

* the line number of the line being entered. If the 

x line number is found, the carry flag is set and the 

* routine branches to the DELIN routine which deletes 

* the old line and replaces it with the new line. If 
* the line number cannot be found, the routine branches* 
* to the INLIN routine which inserts the new line. * 
* * 
* 
* 
* 


* + * + + + * * FF € € FE 


NOTE: THE REGISTERS ARE NOT PRESERVED % 
* 
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4DE2: JSR S50A0 ;Convert to line number 

4DE5: JSR S$430A ;Convert to token 

4DE8: STY SOD ;Save the index pointer to the keyboard 
4DEA: JSR $5064 ;Search for the line number 

4DED: BCC S4E6A ;lf the carry is clear then insert the line 


KEKKKKKKKKKKKKKEKKKKKKKKKKKEKKKKKKKEKKEKEKEKKKKKKKKKKKKKKKKKEK 


DELIN 


DElete LINe 


+ + + + 


* 

* 

* 

* 

* 

* This routine deletes the BASIC program line whose 

* address is contained in locations $61, $62. These lo-* 
* cations point to the link to the next line. This rou-* 
* tine also updates the program pointers at $1210/$1211* 
* then proceeds to the INSLIN routine which inserts a * 
* program line into a BASIC program. 

* 

* 

* 

* 


* 
* 
NOTE: THE REGISTERS ARE NOT PRESERVED mn 
* 
* 


KKEKKKKKKEKKKEKKKKEKKEKKKKKKKKEKKKKKKKEKKKKKEKKKKKKKKKKKK KK KKK 
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4DEF: 
4DF1: 
4DF 4; 
4DF5;: 
4DF?7; 
4DF8; 
4DFA; 
4DFC: 
4DFE: 
4E00: 
4E02; 
4E05; 
4E08:; 
4E0A: 
4E0OB: 
4E0E; 
4E10: 
4E12: 
4E15; 
4E17: 
4El1A;: 
4E1C; 
4E1F; 
4E21; 
4E24; 
4E26: 
4E28; 
4E2A;3 
4E2B: 
4E2E; 
4E2F; 
4E31: 
4E33:; 
4E34: 
4E37:; 
4E3A: 
4E3C; 
4E3F;: 
4E41: 
4B 44; 
4E46: 
4E47: 
4E48; 
4E4A; 
4E4D: 
4E4E; 
4E50; 


#0 
S42EC 


$61 


#$04 
SOD 
S4E1A 
#SFF 
#1 
$1211 
$1210 
S4E0B 


$1213 
S4E1A 
$4E17 
$1212 
S4E1A 
S4D3A 
#1 
$42EC 
$25 
$1210 
$24 
$62 
$27 


$42EC 


$61 
#SFF 


$1210 
$1210 
$26 
$1211 
#SFF 
$1211 
$62 


$61 
$1210 


$4E53 


;Get the LSB of link to next line 
;For subtraction 
;Subtract the LSB of the present line address 


;Subtract offset of 4 for links & line number 
;And subtract the index 

;If the carry is set, then ok 

Invert if not 

;Add one 

;Load Y register with end of BASIC bank O MSB 
;Add the calculated value to end of BASIC LSB 
;If the carry is clear, then branch 

;If not then increment the MSB by one 
;Compare to the MSB BASIC limit 

;If less than, then ok 

s;If greater than, then OUT OF MEMORY 

;If equal to, then compare to the LSB limit 
;Ilf less than, then ok 

;Error 16 'OUT OF MEMORY' 

;Index to the next byte 

;Get the MSB of next line link 

;save 

;Get the LSB of the end of BASIC 

;Save as the LSB 

;Get the MSB of line number address 

;Save 

;Index minus 1 

;Get the LSB of the line number from BANK 0 


;Subtract 1+ the LSB line address 
;invert 


;Add to the end of BASIC LSB 

;Store it back 

;And in area for line number 

*;MSB of end of BASIC 

;To set carry 

;Store it back 

;Subtract'the MSB of the line number address 
;Save it in the X register as the counter 


;LSB of line number address 

;Subtract the LSB of the end of BASIC 
;Save it in the Y register 

;If the carry is set, then skip 
s;Increment the MSB in the X register 
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4E51; 
4E53; 
4E54; 
4E56;: 
4E58: 
4E5A; 


4E5B: 
4E5E; 
4E60; 
4E61: 
4E63: 
4E65; 
4E67:; 
4E68: 


DEC 
CLC 
ADC 
BCC 
DEC 
CLC 


JSR 
STA 
INY 
BNE 
INC 
INC 
DEX 
BNE 


$27 ;Decrement the MSB in $27 

$24 ;Add to LSB of work area 

S4E5B ;If the carry is clear, then skip 

$25 ;Decrement the MSB by one 
Keweenaw em ewww ee wee we ew we wee ew ewe eH Oe ewe ee ew ee we ee ow eee eee ee * 
* * 
* This routine takes all of the program lines that - 
* follow the line to be deleted and moves them up the * 
* number of bytes of the length of the deleted line. bs 
* The routine then proceeds to the INSLIN routine. = 
* * 
* 

$4305 ;Get a byte from the line after the deleted one 

($26),Y ;Store where the deleted line originally was 

;Index plus one 

S4E5B ;Branch until all of line is moved 

$25 ;MSB 

$27 ;MSB of the placement address 

;Decrement the counter 
S4E5B ;Branch until zero 


Kakkkkkkkkkkk kk kkk kkk KK KKK KKK KK KK KK KK KKKKKK KK KKK KKKKEKKKKKK 


INSLIN 
INSert LINe 


* 

* 

* 

* 

* 

* This routine first initializes the BASIC string and 
* stack pointers then calls the LNKPRG routine to re- 
* link the BASIC program lines. It then checks the end 
* of program pointer at $1210/$1211 and generates an 
* ‘OUT OF MEMORY' error if there isn't enough room to 
* insert the new line. If there is enough room, this 
* routine inserts the new program line pointed to by 
* $3D, $3E and calls the LNKPRG and RUNC routines to 
* relink the program lines. It then updates TXTPTR 

* to point to the start of program, and exits. 

* 
* 
* 
* 


NOTE: THE REGISTERS ARE NOT PRESERVED 


+ + + + F F F * F F F OF OF F F HF HF 
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4E6A;: 
4E6D: 
4E70: 
4E72: 
4E74: 
4E76: 
4E79; 
4E7A: 
4E7D: 
4E80: 
4E82: 
4E84; 
4E86; 
4E88:; 
4E89: 
4E8A; 
4E8C;: 
4E8E; 
4E8F: 
4E91; 
4E93:; 
4E96; 
4E98: 
4E9A; 
4E9D: 
4E9F; 
4EFA2: 
4EA5; 
4EA8: 
4EAQ9: 
4EAB: 
4EAD: 
4EAF: 
4EBO: 
4EB2:; 
4EB4:; 
4EB5: 
4EB6: 
4EB7; 
4EB9: 
4EBB: 
4EBC; 


4EBE: 
4ECO: 
4EC2: 
4EC4: 


$5238 
S4F4F 
#0 


($3D),Y 


S4E79 
$4DD5 


$1210 
$1211 
$5C 
$5D 
SOD 
S4E89 


#504 
S4E8F 


SSA 

$5B 

$1213 
S4EA2 
S4E9F 
$1212 
S4EA2 
$4D3A 
$1210 
$1211 


$5C 
$61 
$24 


$5D 
$62 


S4EDE 
S5C 


$24 
$5C 


S4EC5 
$5D 


;Initialize the BASIC-pointers 
;Update the line links 

;Initialize the index 

;Any more characters in the buffer? 
;No, then continue 

;Yes, then branch back 


;End of BASIC LSB 

s;End of BASIC MSB 

;SAVE the LSB 

;SAVE the MSB 

;Add the index 

;If the carry is clear, then skip 

;If the carry is set, then increment MSB by one 
;Clear the carry for addition 

s;Add 4 for links and line number 

;If the carry is clear, then skip 

;If not then increment the MSB by one 

;Store the LSB 

;And store the MSB 

;Compare MSB + the carry to the BASIC limit MSB 
;If less than, then OK 

;If greater than but not equal to, then error 
;lf equal to, compare the LSBs 

;If they are less, then continue 

;Error 16 'OUT OF MEMORY' 

;Store the LSB 

;And store the MSB 


‘y~Set the carry for subtraction 


;Unmodified LSB end of BASIC 

;Subtract the LSB of the line address from it 
;And save 

;Store the modified result in the Y register 
;Unmodified MSB end of BASIC 

;Subtract the MSB line address from it 

;And store the result in the X register 
;Increment the MSB by one 

;Transfer the LSB to the accumulator 

;If zero, then branch 

;End of BASIC LSB 


;Subtract the LSB of the calculated address 

;To make the counter 

;And store it back 

;If the carry is set, then OK 

;If the carry is clear, decrement the MSB by one 
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4EC5: LDA SSA LSB + index + 4 
4EC7: SBC $24 s;Subtract the address 
4EC9: STA SSA ;AND SAVE BACK 


4ECB: BCS S4ED6 
4ECD: DEC SSB 
4ECF: BCC S4ED6 


Kee oe ee a ee ee ee ae ee oe i ee ee ee ee a we ee ae ee es ee ee a ee ee ee ee ee ee * 
* * 
* This routine takes the program lines after the area * 
* to be opened for line insertion and moves them down * 
* the number of bytes in $0D+4 to provide a place to * 
* put the new program line. x 
* * 


4ED1: JSR $42DD ;Get byte from $5c,$5d of the last program line 
4ED4: STA (S5A),Y sAnd store it $0d+4 bytes down in memory 

4ED6: DEY 

4ED7?: BNE S4ED1 

4ED9: JSR $42DD ;Get the byte from $5c,$5d (y = 0) 

4EDC: STA (SSA) ,Y 

4EDE: DEC S5D *;MSB of the address to get from 

4EEO: DEC $5B ;MSB of the address to store to 

4EE2: DEX ;Counter 

4EE3: BNE S4ED6 ;Continue until the counter is 0 


4EES5: LDY #0 
4EE7: LDA #1 


4EE9: STA ($61),Y ;At line links $01,$01 

4EEB: INY 

4EEC: STA ($61),Y ;Line link MSB 

4EEE: INY ;To next byte 

4EEF: LDA $16 ;Get the line number low byte 

4EF1: STA ($61),Y ;Store line number low 

4EF3: LDA $17 ;Get the high byte of the line number 
4EF5: INY ;Index to next byte 

4EF6: STA ($61),Y ;Store high byte of line number 

4EF8: CLC 

4EF9:; LDA $61 ;Low byte of the line number address 
4EFB: ADC #504 ;plus 4 

4EFD: STA $61 ;Store as the address to the line 
4EFF: BCC S4F03 

4F01:; INC $62 ;lf the carry is set, then increment the MSB 
4F03: LDY SOD ; Index to length 

4F05: DEY ;minus 1 

4F06: LDA ($3D),Y ;From line 

4FO8: STA ($61),Y ;Store the line in the allocated area 
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4F0A; 
4FOB: 
4F0OD: 
4FOF: 
4F 12; 
4F15: 
4F17: 
4F19; 
4F1B: 
4F1D: 
4FlE:; 
4F20: 
4F22; 
4F24; 
4F26; 
4F28; 
4F2A: 
4F2C; 
4F2E;: 
4F30; 
4F31: 
4F34; 


4F37; 
4F39; 
4F3C: 
4F3E; 
4F41; 
4F 42; 
4F44; 
4F46: 
4F49; 


DEY 
CPY 
BNE 
JSR 
JSR 
LDA 
ORA 
BEQ 
LDA 
CLC 
ADC 
STA 
LDA 
ADC 
BCS 
CMP 
BCS 
STA 
LDX 
SEC 
JSR 
JSR 


LDX 
LDA 
BEQ 
STA 
INX 
BNE 
LDA 
STA 
INX 


#SFF 
S4F06 
S4F4F 
$5254 
$74 
$75 
S4F4C 
$16 


$74 
$65 
$17 
$75 
S4F4C 
#SFA 
S4F4C 
$64 
#$90 


$8C75 
$8E42 


;Counter to the number of bytes - l 


;Continue until Y = Sff 

;Update the line links 

;Reset the TXTPTR to beginning of text 
;Get the offset value for the AUTO command 
;Combine it with the present value 

;If equal to zero, then branch 

;Get the line nubmer high byte 


;Offset value for the AUTO command 
;Store 

;Get the high byte of the line number 
;Add to auto value high 


;Compare it to the highest value allowed 
;Greater than, then branch 
;If not then store 


;For positive 
;Convert to floating point 
;Floating Point Accumulator to ASCII 


KK KKK KK KKK KK KKK KKK KKK KKK KKK KKKKKKEKKKEKKKKKKKKEKKKKKKKKKK 


+ + € &€ ££ € FF FE FH F KF FF 


LINEXE 


LINe EXEcute 


This routine retrieves text starting from location 


SO34A. 


It will continue until 255 characters are 
read or until a $00 is found. 


The routine then 


proceeds to the MAIN routine to convert the text to 
tokens and to execute the line. 


* 
* 
* 
* 
* 
* 
$0101 and transfers it to the keyboard buffer at * 
* 
* 
* 
* 
* 
* 


KK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KKEKKKEKKEKKKEKKKKKKKEK 


#0 


$0101,X 


S4F44 


$034A,X 


S4F39 
#$1D 


$034A,X 


;Get a byte from work area 

;If equal to zero, then exit 
;Keyboard buffer 

7255 Bytes or until byte is zero 


;CURSOR RIGHT ONE SPACE 
;Keyboard buffer 
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4F4A; STX SDO ;Index to keyboard buffer queue 
4F4C: JMP $4DC3 ;Convert to token and execute 


KEKKEKKKKKKKKKKEKKKEKKKKKEKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKRKKRKKK 


LNKPRG 
LINK PRoGram 


* * 
* * 
* * 
* * 
* * 
* This routine first checks to see if the first two * 
* line links are zeros. If they are, then the routine * 
* exits. If they are not zeros, then the routine 
* counts through the program lines and updates each of * 
* the line links. * 
* * 
* * 
* * 
* * 


NOTE: THE REGISTERS ARE NOT PRESERVED 


KHKKKKKKEKKKKKKKKEKKKEKKEKKEKKEKEKKEKKKEKKKKKEKKEKKKKKKKKKKKKKKKEKK 


4F4F: LDA $2D ;Point to the start of BASIC text (low byte) 
4F51: LDY S2E ;Point to the start of BASIC text (high byte) 
4F53: STA $24 ;Into HELP POINTER INDEX 1 

4F55; STY $25 

4F57;: CLC ;CLear the Carry flag 

4F58: LDY #0 ;Index pointer 

4F5A: JSR $4305 ;Get the LSB of the first line link 

4F5D: BNE S4F65 ;Not equal to zero, then branch ahead 

4F5F: INY ;Move over to the MSB of the line link 
4F60: JSR $4305 ;Get the MSB 

4F63: BEQ S4F92 ;If it's a zero, then branch 

4F65: LDY #4 ;Skip over the line link and the line number 
4F67: INY ;Move over to the next character 

4F68: JSR $4305 ;Get the character 

4F6B: BNE S4F67 ;Not the end of the line, then branch 

4F6D: INY ;Move over to the next character 

4F6E: TYA ;Save the index pointer 

4F6F: ADC $24 ;Update the previous line link 

4F71: TAX ;Move the value into X register 

4F72: LDY #0 ;Index pointer 

4F74: STA ($24),Y ;Update the new line link 

4F76: TYA ;zZero the accumulator 

4F77: ADC $25 ;Add the carry to the MSB 

4F79: INY ;Increment the index pointer 

4F7A: STA ($24) ,Y ;Save the MSB of the line link 

4F7C: STX $24 ;Save the LSB to the next 

4F7E: STA $25 ;BASIC line link LSB 

4F80: BCC S4F58 ;If it's not the end of the line, branch 
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* * 
* This routine updates the end of program pointers * 
* located at $1210, $1211 from the values stored in ~ 
* $24, $25. * 
* * 
"I cs i cies Gn tues‘ Sees cscs ‘cn ‘cu inseminated ens ens Scas cmamns fces aeScsemSSssaessc  esV esscsce * 

4F82: CLC ;Clear the carry flag for addition 

4F83: LDA $24 ;Get the end of the 

4F85; LDY $25 ;Program pointers 

4F87: ADC #2 ;Move past the MSB of the last line link 

4F89: BCC S4F8C ;No carryover from addition, then branch 

4F8B: INY ;Add one to the MSB 

4F8C; STA $1210 ;Save the end of the program 

4F8F; STY $1211 s;Pointers for SAVE etc. commands 

4F92: RTS sExit routine 


KH KK IKK KI KK KKK KKK KKK HHH KK KK KKK KKK KKKEKHKKKKKKKKKKEKKKKKKKKEKEKK 


INLIN 
INput a LINe 
the value of that key in the input buffer at $0200. 
This continues until the RETURN key is pressed. 


NOTE: THE REGISTERS ARE NOT PRESERVED 


+ + + + £+ € + € F HF 


* 
* 

* 

* 

* 

This routine waits for a key to be pressed then puts * 
* 

* 

* 

* 

* 

* 


KHKKKKKKKKKKHKK KK KKK KEKKKKKKEKKKKKK KKK KKKKKKKKKKKKKKKKKKKKK 


4F93;: LDX #0 s;Index pointer 

4F95; JSR S90E5 ;Get the next character from the keyboard 
4F98: CMP #13 ;Return key pressed? 

4F9A;: BNE S4F9F ;Yes, then branch 

4F9C: JMP $558B ;Place delimiter at end of buffer 

4F9F: STA $0200,X ;Place in input buffer 

4FA2: INX ;Increment the index pointer 

4FA3: CPX #SAl1 ;At the end of the buffer? 

4FAS5: BCC S4F95 ;No, then branch 

4FA7: JMP SASED ;STRING TOO LONG ERROR 


KK KK IK KK IKK IKK KKK KH KIKK AKER KKK KKK KEKKKEKEKKEKKKKKKK KKK KKKK 


* * 
* FNDFOR il 
ns * 
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4FAA: 
4FAC: 


4FAF: 
4FB1; 
4FB3: 
4FB5; 
4FB7; 


4FB9: 
4FBB: 
4FBE: 
4FCO: 
4FC2: 
4FC4; 
4FC6;: 
4FC8: 
4FCA; 
4FCC: 


FiND FOR 


Stack routine for GOSUB, FOR-NEXT, and DO 


+ + + 


This routine is for the FOR-NEXT, GOSUB, 
mands. 


and DO com- * 
The routine is entered with the value of the * 
token to be searched for in the accumulator. The rou-* 
tine then transfers the pseudo stack pointer from = 
STD/STE to $3F/$40 and checks to see if the value * 
is SO9FF which is the highest address value of the * 
stack. If it is equal to SO9FF, then the stack is * 
empty and the routine exits. If the stack pointer * 
value is not SO9FF, then the routine compares the * 
last value on the stack with the $81, the token value* 
for FOR. If it is equal, then the routine checks the * 
range of the address of the FOR variable. If it is * 
vSFFOO or greater, then the routine is exited. If the* 
value of the FOR variable is less than S$FFOO, then * 
the routine adds 18 to the stack pointer, checks the * 
range of the stack pointer and exits the routine. If * 
the last value on the stack is not the token value * 
for FOR and the value to be searched for is not * 
pointed to by the stack pointer, the routine adds 5 * 
to the stack pointer, checks the range of the stack * 
pointer and exits the routine. * 

* 

* 


KKKKKKAKKKKKKKEKKKKKKKKKKKK KK KKK KK KKK KKK KKKKKKKKKKKRKKK 


$02 ;Save the character to be searched for 

$5047 ;Transfer the stack pointer from $7D/S7E TO 
7;$3F/$40 

$3F ;Compare the LSB of the stack pointer 

#SFF ;To the LSB of the highest value (SO9FF) 

S4FBB ;If not SFF, then branch 

$40 ;If it is SFF, then check the MSB 

#509 ;Compare to MSB of highest address allowed 
7 (S$O09XX) 

S4FFB ;If it is equal to 9, then exit 

SFFO3 ;If not, then enable BANK 14 

#0 

$02 ;Get the value to be searched for 

#$81 ;Is it the FOR command ? 

S4FE1 ;Not FOR, so look for another character 

(S3F),Y ;If it is, compare it to the value on the stack 

S4FFD ;If it is not equal, then exit 

#2 ;Index to the MSB of the 'FOR' variable 

$4c ;MSB 
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4FCE; 
4FD0O; 
4FD2: 
4FD4; 
4FD6; 
4FD7: 
4FD9; 
4FDB: 
4FDD: 
4FDF: 
4FE1; 
4FE3: 
4FE5: 
4FE7; 
4FE9; 
4FEB; 
4FED; 
4FEF; 
4FFO: 
4FF1:; 
4FF3: 
4FF5; 
4FF7: 
4FF9; 
4FFB: 
4FFD: 


4FFE: 
50003 
5001; 
5003: 


CMP 
BEQ 
CMP 
BNE 
DEY 
LDA 
CMP 
BEQ 
LDX 
BNE 
LDA 
CMP 
BEQ 
LDX 
CMP 
BEO 
LDX 
TXA 
CLC 
ADC 
STA 
BCC 
INC 
BNE 
LDY 
RTS 


EOR 
SEC 
ADC 
STA 


#SFF 
S4FFD 


(S3F),Y 


S4FDD 


$4B 


(S3F),Y 


S4FFD 
#512 
S4FEF 


($3F),Y 


$02 
S4FFD 
#512 
#$81 
S4FEF 
#505 


$3F 
$3F 
S4FAF 
$40 
S4FAF 
#1 


;Compare to highest allowed value (SFFOO) 
;If equal, then exit 

;If not equal, compare to MSB address to 'FOR' 
,;if not equal, then branch 

,;if equal, then decrement counter 

;Get the LSB of FOR-NEXT variable address 
;Compare to LSB of 'FOR' variable 

;If equal, then exit 

;If not, then add 18 to the stack pointer 
;Unconditional branch 

;Get byte from the stack 

;Compare to the search value 

;If equal, then exit 


,;Iif not equal then compare to 'FOR' token 
;If equal, then add 18 to the stack pointer 
;If not, then add 5 for 'GOSUB! 


;Add the value to the LSB of the stack pointer 
;Save it 

;If the carry is clear, then skip 

;If not, then increment the MSB 

;And check the range of the address 


sExit 


KAKK KK KKK KKK KKKKKKHKKKKKKKKEKKKKKKKKKKKEKKKKKKKKEKKEKKKKKKKKK 


+ + £ © € € € & € FF FF F F 


This routine is ensure there is enough room on the 
pseudo stack for the number of bytes in memory. 

If there is not enough room on the stack, an 'OUT OF 
error will occur. If there is enough room, 
the pseudo stack pointer is decremented by the value 
that is in the accumulator. The only routines that 
use $4FFE as entry points are GOSUB, FOR and DO. 


MEMORY' 


CHKSTK 


CHecK STacK space 


+ + + © ££ €* &€ FF FF FF HF 


KK HKK KKK KKK KKK KKK KKK KKK KKK KEK EKK KKK KK KEKE KKKKKEKKKEKKKKKKKK 


#SFF 


$7D 
$7D 


;Invert number of bytes to free on stack 


;Add A + 1 to LSB of stack address 
;Store it as the stack pointer LSB 
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5005: LDY S7E ;Get the MSB of the stack pointer 

5007: BCS S500A ;If there was an overflow of the LSB then 

5009: DEY ;Decrement the MSB by one 

500A: STY STE ;And save it as the stack pointer 

500C: CPY #508 ;Compare the MSB to lowest value allowed 

SOOE: BCC $5044 s;If value is less than 8, ‘OUT OF MEMORY' error 
5010: BNE $5016 ;If the value is not equal to 8, then exit 
5012: CMP $7D ;Check the LSB 

5014: BCC $5044 ;If less than, then error 

5016: RTS sExit 


KAKKKKKKKKEKKEKKKEKEKKKEKEKKEKKKKKKKEKKEKKKEKKKEKKKKKEKKKKKKKKKK 


CHKSPC 
CHeck SPaCe 


* 
* 
* 
* 
* 
Upon entry to this routine, the Y register and the * 
accumulator hold the MSB and LSB, respectively, of * 
the number of bytes that need to be free and ready = 
for use in the string storage area. If the room is ~ 
available, then the routine exits without actually * 
allocating the memory space. If the memory space * 
does not exist, then ‘OUT OF MEMORY' error results. * 

* 

* 


+ + + + +  F OF F OF F 


KHKKKKKKKKKK KE KEKKKKEKKEKKKKKKKKEKKEKKKKKEKKKKKKKKKKKEKKKK 


5017: CPY $36 ;If value in the Y register is less than the MSB 
5019: BCC $5043 ;Of the start of the string storage area, exit 
501B: BNE $5021 ;Not the same, then branch 

501D: CMP $35 ;If value in the accumulator is less than LSB 
501F: BCC $5043 ;Of the start of the string storage area, exit 
5021; PHA 7;Save the LSB on to the stack 

5022: LDX #$09 ;Number of bytes-1 to save 

5024; TYA ;Transfer the MSB into the accumulator 

5025: PHA ;Save the MSB onto the stack 

5026: LDA $59,X ;Save the various 

5028: DEX ;Registers so they will not be altered 

5029: BPL $5025 ;By the 

502B: JSR S92EA ;Garbage collection (get rid of unused strings) 
502E: LDX #SF7 ;Index to area to store 

5030: PLA ;Saved registers 

5031: STA $63,X ;Save the original register values 

5033: INX s;Continue until 

5034: BMI $5030 ;Ten of them are saved 

5036: PLA ;Get the MSB 

5037: TAY ;And the 
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5038: PLA *;LSB of the address back 
5039: CPY $36 ;Check again 
503B: BCC $5043 ;If the Y register is less than $36, then exit 
503D: BNE $5044 ;If the Y register is greater than $36, then 
7; "OUT OF MEMORY' error 
503F: CMP $35 ;If the accumulator is equal to, then check 
;The LSB of the string pointer 
5041: BCS $5044 ;If it is greater than, ‘OUT OF MEMORY’ error 
5043: RTS ;Exit 
5044: JMP S$4D3A ;OUT OF MEMORY error 


ka kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk kK KKK KKK KKK KKK KKK aK 
* * 
* Transfer the pseudo stack pointer from $7D, S7E to * 
* $3F, $40. (TOp of run time Stack - Utility Pointer) * 


* * 


kakkkkkkkkkkkkkkkkkkkkkkkek kkk kk kkk kk kkk kkk KK KKK KKK KKK KKK K 


5047: LDA $7D 
5049: STA $3F 
504B: LDA STE 
504D: STA $40 
SO04F: RTS 


kakkkkkkkkkkkkkkkkkkkkkk kkk kkk kkkkkkkkkkkke kkk kk kkk kkk kk kkk 


* * 


* Transfer the pseudo stack pointer from $3F, $40 to = 


* $7D, STE. (Utility Pointer - TOp of runtime Stack) * 
* * 


KkakkkkkkkkkkkkkkkKakkkkkkkkkkkkkkkkkKeKKKeK KKK KKK KKK KKKEKK 


5050: LDA $3F 
5052: STA $7D 
5054: LDA $40 
9056: STA STE 
5058: RTS 


kkkkkkkkkkkkkkkkkkkkkkkkkk kkk kkk kkkkkkkk kk kkkkkkkkkekk kkk k 


* * 
* Add the value in the Y register to the pseudo * 
* stack pointer. (TOS = TOS + Y register) = 
* * 


kkkkkkkkkkkkkkkKkkkkkkk kkk kkkk kkk kKkkkk kkk kK KKK KKK KKK KK KKK 


5059: TYA ;Transfer the value into the accumulator 
505A: CLC ;Clear the carry for addition 
505B: ADC $7D ;Add the value to the pseudo stack pointer LSB 
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505D: 
SOSF: 
5061: 
5063: 


5064: 
5066: 
5068: 
506A: 
SO06C: 
506E: 
5071: 
5073: 
5074: 
5075: 
5078: 
507A: 
507C: 
SO7E: 
5080: 
5082: 
5083: 
5085: 
5086: 
5089: 
SO8B: 
508D: 
508F: 
5091: 


STA 
BCC 
INC 
RTS 


$7D 
$5063 
STE 


;Save it 

s;If no overflow resulted, then branch 
;Add one to the MSB | 
;Exit 


KHKK KK KKK KKK KKK KKK KKK KKK KKK KKKKKEKKEKKKKEKEKKKEKKEKKKKEKKKKKEK 


+ + + + + & + FF FF FF FF F F 


This routine will search through a program trying to 
match up the line number in $16, $17 (which is in 


integer format). If a match is found, locations $61, 


FNDLIN 


FiND Line Number 


+ + + + + £ FF F 


$62 will contain the address which points to the line* 
link for that line. The carry flag will be cleared if* 
no match was found. On entry to this routine, loca- * 
tions $16, $17 contain the line number to be searched* 
for. On exit from this routine, locations $61, $62 * 
will point to the line link. * 


* 


KKKKEKKKKKKKKKKKKKKKKKKKEKEKKKKKKEKEKKKEKEKEKEKKEKKKKKKKKKKKKKKKKKK 


LDA 
LDX 
LDY 
STA 
STX 
JSR 
BEQ 
INY 
INY 
JSR 
STA 
LDA 
CMP 
BCC 
BEQ 
DEY 
BNE 
DEY 
JSR 
STA 
LDA 
CMP 
BCC 
BEQ 


$2D 
$2E 
#1 
$61 
$62 
S42EC 
$509E 


$42EC 
$79 
$17 
$79 
$509F 
$5085 


$5093 


$42EC 
$79 
$16 
$79 
S509F 
$509F 


;LSB of the start of BASIC TEXT 

*;MSB 

;Index pointer 

;Save the LSB of the start of BASIC TEXT 
;Save the MSB 

;Get a byte from the line (MSB of line link) 
;If it's the end of the line flag ($00), exit 
;Increment the index pointer 

;Twice, to get to the line number 

;Get the MSB of the line number 

;Save it 

;Get current line number we are searching for 
;Same line number? 

;No, less than line number we are searching for 
;Same line number, then branch 

;Iindex pointer - 1 


;Decrement the index point to the LSB 

;Of the line number and get the LSB 

;Save it 

;Get current line number we are searching for 
;See if they are the same 

;If less than, then exit 

;The same, then exit leaving the line link in 
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5093: 
5094: 
5097: 
5098; 
5099: 
509C: 
509E; 
5O09F: 


5O0A0: 
50A2: 
50A4; 
50A6; 
50A8: 
5OAA: 
50AC: 


50AE; 
50B0: 
50B2: 
50B4: 
50B6; 
50B8: 
5OBB: 


DEY 


JSR 


TAX 
DEY 
JSR 
BCS 
CLC 
RTS 


LDX 
STX 
STX 
STX 
BCS 
INC 
SBC 


STA 
LDA 
STA 
CMP 
BCC 
JMP 
LDA 


S42EC 


S42EC 
$5068 


7;$61, $62 

;Greater than, so try again 

;Get the MSB of the link to the next line 

;Save it in the X register 

;Back up to the LSB of the link to the next line 
;And get it 
*;Branch back to 
;Flag, for line 
sExit 


search for the next line 
number not found 


KKK KKK KK KKK KK KKK KKK KKK KEKE KKK KEKKKKEKEKKKEKKKKKKKKKKK KKK KEK 


* 
* 
* 
* 
* 
* 
x 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


This routine converts an ASCII line number to a two 
byte integer number in the LSB/MSB format. 
to this routine, the accumulator holds the first 

character of the line number, TXTPTR points to that 
byte and the carry is clear. 
contain a value of $00 if no valid line number is 
found. 
by this routine, 
the line has a line number with a value that is not 
within the limits of 0 - 63999. 
with CHRGET pointing to the first character after 
the line number and locations $16, 
LSB and MSB of the line number. 


KKK KKKKEKKKKK KK KKK KEKKKKKEKKKAKKEEKKKEKEKKKKKKKKKKKKKKKKEK 


#0 
SOA 
$16 
$17 
$50E1 
SOA 
#S2F 


$09 
$17 
$24 
#519 
$50BB 
$796C 
$16 


LINGET 


LINe GET 


On entry 


Also location SOA will 


The range of the line number is also checked 
and a 'SYNTAX ERROR! will occur if 
This routine exits 


$17 contain the 


+ + +  F F F F F F HF F F F F OF F HF HH F 


;Clear the temporary work area 
;Clear address of the line number 
In low/high byte order ($16/$17) 
;If the carry flag is set exit the routine 
;Set Flag to indicate the valid line # found 
;The carry is clear, so subtract $30 to make a 
;True number ( $31 - $30 = Nominal number 1 ) 
;Save it as the LSB 
;Save the MSB 
; Temporarily 
;Compare to the highest allowable value 
;If less than, then continue 
;If >= to, then 'SYNTAX ERROR' 

3Get the LSB of the line number 
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SOBD: 
50BE: 
50C0: 
50Cl1: 
50C3: 


50C5: 
50C7: 
50C9; 
5O0CB: 
50CD: 
5OCF: 
50D1: 
50D3: 
50D5: 
50D7: 
50D9: 
SODB: 
SODE: 
50E1: 


50E2: 
50E5: 
50E7: 
5OEA: 
5O0EC: 
5OED: 
50FO: 


5OF2: 
50F5: 
50F8:; 
5OFA: 
5O0FD: 
5O0FE: 


ASL 
ROL 
ASL 
ROL 
ADC 


STA 
LDA 
ADC 
STA 
ASL 
ROL 
LDA 
ADC 
STA 
BCC 
INC 
JSR 
JMP 
RTS 


JSR 
LDY 
JSR 
BNE 
DEY 
JSR 
BEQ 


JSR 
JSR 
LDY 
JSR 
TAX 
INY 


;Multiply it by two 
$24 ;Preserve the carry bit 
;Multiply the LSB by two again (4) 
$24 ;Preserve the carry bit 
$16 ;Add to the original value 
;( total multiplication factor of 5 ) 
$16 
$24 ;Add the carry to the 
$17 ;MSB 
$17 
$16 ;Multiply the LSB by two again (10) 
$17 ;Add the carry, if any 
$16 ;Add the digit from the line number being read 
$09 ;To the LSB of the final number 
$16 ;Save it 
S5SODB ;No overflow, then branch 
$17 ;Increment the MSB by one 
$0380 ;Get next character 
S50A8 ;And convert it 


;Exit 
KI KKK KKK KK KKK KKK KK KKK IKKE KKK KKK KIRKE KKK KK KKKKKKKKEKKKKKKKKK 
BASIC LIST COMMAND 
Command syntax: LIST <first line#> - <last line#> 


This routine will call FRMTO to get the parameters 
LIST FROM and TO. 


+ + + + + FF 


* 
* 
* 
x 
* 
* 
* 
* 
* 


KKKKKKKKKKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKRKKKKKKK KKK KKK 


SSEFB ;Check for LIST XXX-XXX etc. 
#501 ;Place index pointer on MSB of the line link 
S42EC ;Get the MSB of the line link 
S50F2 ;If it is not zero, then branch 

;if the MSB is equal to zero, then check the LSB 
S42EC ;Get the LSB of the line link 
$5120 ;If the LSB is equal to zero, then 


;Print a <cr> or linefeed and exit the routine 
; (end of program) 


S4BB5 ;Check the STOP key and abort if key is pressed 
$5598 ;Print a carriage return 

#$02 ;Index to the line number 

S42EC ;Get the LSB of the line number 


;Save it in the X register 
;Move up to the MSB 
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SOFF: 
5102; 
5104: 
5106: 
5108: 
510A: 
510C: 
DSLOFs 
SLi 
ol14% 
5115: 
31163 
5119; 
511B: 
SLID: 
5120: 
51233 
a1iZ5s 
5127: 
9129; 
512C: 
512E: 
5130: 
DL323 
51353 
5137: 
5139; 
513B: 
513D: 
SL3SFs: 
5140: 
5142: 
5144; 
5146: 


5149; 
514C: 


JSR 
CMP 
BNE 
CPX 
BEQ 
BCS 
JSR 
LDY 
JSR 
TAX 
INY 
JSR 
STX 
STA 
JMP 
JMP 
LDY 
STY 
STY 
JSR 
LDA 
LDY 
AND 
JSR 
CMP 
BNE 
LDA 
EOR 
STA 
INY 
BEQ 
BIT 
BPL 
JSR 


JSR 
BEQ 


S42EC 
$17 
$510A 
$16 
$510C 
$5120 
$5123 
#0 
S$42EC 


S$42EC 
$61 
$62 
S50E5 
$5598 
#3 
S4B 
$11 
$8E32 
#$20 
$4B 
#S7F 
$560C 
owes 
$513F 
$11 
#SFF 
$11 


$5120 
$55 

$5149 
$59AC 


$42EC 
$518B 


;Get the MSB of the line number 
;Is it the last line number to be listed 


;if 
PLE 
rab 
ee 3 


not, 


the MSB matches, 


it is 
it is 


;LIST the 
;Index to 
;Get the 
;Save it 
;Move to 
;Get the 
;Save the two values 

;To LIST the next line 
;Continue to loop 

;Print a <cr> and a linefeed 
;Flag for LIST 


;Save in LIST pointer 


*>GARBFL 
;Output line number 


;Print a space to the screen 
; LSTPNT 


;Make char. 


then continue 
then check the LSB 
equal, then continue 
greater than, then exit 
remainder of the line 
the line link 
LSB of the address to the next line 
in the X register 
the MSB 
MSB of the address to the next line 


(next char. to be read) 


lower case (not a shifted character) 


;Print the character 
;Is it a quote? 

;If not, then branch 
;Get flag for LIST 
;Remove flag 


;Index to the next byte 


;If equal to zero, 


then exit 


;Test flag for LIST ($00) 
;If LIST, then skip 
;If HELP, then print reverse 


7; (40 column) 


Or underline (80 column) 


7;Get the next character 
s;If it is equal to zero, then exit 


KK KK HK KK KK KKK KKK HK KKK KKK KKK KKK KKK KKK KKK KEKKKEKKKKKKKKKKKKEKEK 


+ + +  F 


Transform the tokens to BASIC text 


This routine changes the BASIC tokens back to BASIC 
text and equivalent commands. It is vectored through 


QP LOP 


(LIST) 


t+ + + + + F 
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* $0306 (IQPLOP). This makes it possible to wedge into * 


* the routine to list custom BASIC commands. * 
* * 


KKK KKK KKK KKK KKK KKK KKKKKKKKEKKKKKKKKEKKKKE KKK KKKKKKKKKKKKKKK 


514E: JMP ($0306) ;Normal entry point $5151 

5151: BPL $5132 ;Not a token, then ouput it (PRINT) 

5153: CMP #SFF ;Is it %? 

5155: BEQ $5132 ;Yes, then output it 

5157: BIT $11 ;Quote mode? 

5159: BMI $5132 ;Yes, then output the text character 

515B: CMP #SFE ;Token for added BASIC COMMAND 

515D: BEQ $518C s;If so, then branch 

515F:; CMP #SCE ;Token for added BASIC FUNCTION 

5161: BEQ $51A6 s;If so, then branch 

5163; TAX ;Place the TOKEN in the accumulator 

5164: STY $4B ;Renumber the character pointer 

5166: LDA #$44 ;Set up scan for SINGLE BASIC TOKEN COMMANDS 

5168: LDY #$17 ;Starting at $4417 and place it in INDEX1 

516A: STA $25 ;Save the table in INDEX1 

516C: STY $24 

516E;: LDY #0 ;Index the pointer 

5170: DEX ;Decrement the token value by one 

5171: BPL $5182 ;Greater than 128? 

5173: LDA ($24) ,Y ;Get a character from the table 

5175: PHA ;Temporarily save it onto the stack 

5176: INC $24 ;Increment the table by one 

5178: BNE $517C ;Read in 256 bytes yet, if not, then continue 
; (branch) 

517A: INC $25 

517C: PLA ;Get the character from the table back 

517D: BPL $5173 s;End of command word yet or end of table flag 

517F: BMI $5170 ;Try next token value 

5181: INY ;Increment the text pointer by one 

5182: LDA ($24) ,Y ;Output the command word from the list 

5184: BMI $512E ;One character at a time and output it 

5186: JSR $560C ;Continue until the shifted character is found 

5189: BNE $5181 s;Continue until bit 7 is set (shifted) or until 

518B: RTS ;The flag $00, which indicates an end to table 


KKKKKKKKKKKKKKEKKKKKKEKKKKKKKEKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKK 


* * 


LSTABC 


LiST Added Basic Commands 


+ + + OF 
% 


+ 
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518C: 
518D: 
518E; 
59191: 
5193: 


5195: 
5197: 
5199: 
519B: 
519D: 


519F: 
51A0: 
S1A2: 
51A4: 


51A6: 
51A7: 
51A8; 
SI1AB: 
S1AD: 
SI1AF: 
51 BL? 


TAX 
INY 
JSR 
BEQ 
STY 


CMP 
BCC 
CMP 
BCS 
ADC 


TAX 
LDY 
LDA 
BNE 


TAX 
INY 
JSR 
BEQ 
STY 
CMP 
BCC 


* 
* 
* 
* 
* 
* 
* 


C-128 BASIC 7.0 Internals 


This routine is called by the aforementioned routine 
to list the dual token BASIC commands starting with 


SFE. 


the value SFE and the Y register contains the 
index to the second token minus 1. 


* 
* 
On entry to the routine, the accumulator holds * 
* 
* 
* 


KKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKKKKK 


;Place token (SFE) into the X register 
;Increment the index to the next byte 


S42EC ;Get the byte 

$5132 ;If it is zero, then output it 

S4B ;If it is not, then save the index to the last 
;Character that was read 

#2 ;BANK command? 

S51CO ;If less than, then branch 

#$27 ;Reached the end of the ADDED BASIC COMMANDS? 

$51C0 ;Iif greater than, then branch 

#S7E ;Add 128 to create the pointer to the keyword 
;And set bit 7 as a flag for a token 
;Save it in the X register 

#S09 ;Address of the ADDED BASIC COMMANDS ($4609) 

#546 

SS16A ;Branch back to print the keyword 


Kk kkkk kk kk kkk kK KK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


LSTABF 


LiST Added Basic Functions 


This routine is called by the aforementioned routine 


SCE. On entry to the routine, the accumulator holds 
the value SCE and the Y register contains the 


* 
* 
* 
* 
* 
* 
to list the dual token BASIC commands starting with * 
* 
* 
index to the second token minus 1. * 

* 

* 


KKKKKKK KK KK KKK KKKKKKKKKKKKKKKKKEKKKEKKKKKKKKKKKKKKKKKKK 


;Place the token (SCE) in the X register 


;Index to the next byte 
$42EC ;Get the second token 
$5132 ;If it is equal to zero, then output it 
S4B s;If it is not, then save the index 
#2 ;POT function? 
$51C0 ;If less than, then print the value in the 


;Accumulator instead of the keyword 
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51B3: 
51B5: 


51B7: 
51B9: 
51BA: 
51BC: 
51BE;: 
51C0; 
51C2-3 
51C43 
51C6: 
51C7: 
51C9; 


51CA;: 
51CD: 
51CF; 
51D1: 


51D3: 


CMP #S0OB ;Reached the end of the ADDED BASIC FUNCTIONS? 
BCS $51C0 ;If greater than, then print 
sthe value in the accumulator 
ADC #S7E ;Add 126 to create the pointer to the keyword 
TAX ;Save it to the X register 
LDY #S$C9 ;Address of the ADDED BASIC FUNCTIONS ($46C9) 
LDA #$46 
BNE $516A ;Branch back to print the keyword 
CPX #SFE ;Was the first token an SFE? 
BNE $51C7 ;If not, then branch 
LDX #0 
~-BYTE $2C ;Mask to fall through to $51C9 
LDX #SFF 
SEC ;Flag to escape printing keyword 


KKEKKKKKKKEKKEKKKKEEKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKK KKK 


ESCLST 
ESCape LiST 


On entry to this routine, if the carry is set, 
the value in the accumulator is printed. If the 
carry is clear, the value in the accumulator is 
treated as a token, and the appropriate BASIC 
is printed. To list a string, set $24, $25 

to the address of the string which has the 

last letter shifted, clear the carry, and call 
this routine. 


+ + + * *  F F F F F F OF F 


+ + + + + F + F F F F F OF F 


KKKKKKKKKKKKKKKKKKEKKKKKEKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKRKKKRKEK 


JMP ($O030E) ;Normally goes to $51CD 

BCS $51D3 

LDY #0 ;Clear the index 

BEQ $5182 ;Output the keyword that is pointed to by $24, 
7$25 

JMP $5132 ;Print the character that is in the accumulator 


KHKKKKKKKKKKKKKKKKKKKEKKKKKKEKKKEKKKKKKKKKKEKKKKKKKKKKKKKKKEK 


BASIC NEW COMMAND 
Command syntax: NEW 


This routine places two zeros starting at the 
address pointed to by TXTTAB which normally points 


+ + + F HF F 
+ + + + F OF 
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to $1C01. By putting a zero in these two bytes which * 
normally hold the line link address of the first pro-* 
gram line, an end of program is indicated to the * 
BASIC interpreter. After this has been completed, the* 
routine resets TEXT TOP, located at locations $1210 * 
and $1211 to point to the address stored at TXTTAB * 
plus 2, normally $1C03. This routine then proceeds to* 
execute a CLR command. 


NOTE: Here are a couple of quick ways to unNEW a 
BASIC program in the 128: 


Enter: POKE DEC ("1C01"),1:RENUMBER 
Or how about this one: 
Enter: POKE DEC("1C01"),1:DELETE 2-1 
AND ONE LAST ONE 


Enter: POKE DEC("1C01"),1:SYS DEC ("4F4F") ; 
SYS DEC ("4F82") 


NOTE: There are numerous ways of unNEWing your 
program, but, be very careful. Many so-called 
unNEW programs do not save the TEXT TOP point-* 
ers, thereby stopping you from saving or i 


editing the program just unNEWed. * 
* 


+ + € F F F F F F F F F F F F OF 


KKK KKK KKK KKK KK KK KKK KKK KEKKKEKKKKEKKKEKKEKKKKKKKKKKKKKKKKK 


51D6: BEQ $51D9 ;If the byte after the NEW command is zero, 
;or a colon ";", then continue 

51D8: RTS ;If not, then exit without performing a NEW 

51D9: LDA #0 ;Clear the accumulator 

51DB: TAY ;Clear the Y-register (index pointer) 

51DC: STA ($2D),Y ;Reset the start 

51DE: INY 7;Of the BASIC TEXT 

51DF: STA ($2D),Y ;Back to TXTTAB 

51E1: STA $116F :Turn TRACE MODE off 

51E4: LDA $2D ;Reset the END of the 

51E6: CLC ;BASIC TEXT to 

51E7: ADC #$02 ;TXTTAB + 2 

51E9: STA $1210 ; LSB 

51EC: LDA S2E 

51EE: ADC #0 ;Add the carry, if any, and store as 

51F0: STA $1211 ;The MSB 
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51F3: JSR $5254 ;Set the program pointer back to the 
s;Start of the program 

51F6: LDA #0 ;Load the accumulator with $00 to execute a CLR 
;Command 


KHKKKKKKEKKKKKKKKKKKKKKEKKKHEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


BASIC CLR COMMAND 
Command syntax: CLR 


* * 
* * 
* * 
* * 
* * 
* This routine will close all the open I/O channels * 
* which will reset the I/O to the keyboard and the * 
* screen. The routine then resets the string and * 
* pseudo stack pointers to their default values and * 
* also resets various other pointers for commands such * 
* as TRAP. The routine will also call the RESTORE * 
* routine to reset the data pointer. * 
* * 
* * 


KHKKKKKKKKKKEKKKKKKKKKKKKEKKKKKEKKKKKKKKKKKKKKKKKKKKKKKK 


51F8; BNE $524F ;Useless code unused by BASIC 

51FA: JSR $927B ;Close all open I/O channels, return system I/O 
sto the keyboard/screen 

51FD: LDY #0 ;Set the error flag to force a 

SIFFS: “STY S7A s;new DSS to be obtained 

5201: DEY ;Move the pointer to SFF 

5202: STY $120C ;Set line number to be executed on error, and 

5205: STY $1209 sthe line number of the last error to SFFFF 

5208: STY $120A 

520B: STY $1208 ;Set last error number for TRAP command to SFF 

520E: LDA $39 ;Get the pointer to the end of string memory 

5210: LDY S3A 

5212: STA $35 sand save it as the start of string memory 

5214: STY $36 

5216: LDA #SFF ;Clear the pseudo stack 

5218: LDY #$09 ;of all entries by setting 

521A: STA $7D sthe Top of Stack pointer (TOS) to SO9FF 

521C: STY STE 

521E: LDA S2F ;Get LSB of the start of BASIC variables address 

5220: LDY $30 ;Get MSB of the start of BASIC variables address 

5222: STA $31 ;And save it as the start and end of 

5224: STY $32 ;Of BASIC arrays 


59226: STA $33 
59228: STY $34 
922A: LDX #503 


522C: LDA $5250,X ;Get a byte from the PRINT USING table 
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522F: 
5232: 
5233% 
92353 
5238: 
523A: 
523C: 
523D: 
523E: 
523F:; 
5241: 
5242; 
5243: 
5244; 
52453 
5247; 
524A: 
524C: 
524F:3: 


5250: 


5254; 
5255: 
5257: 
5259; 
525B: 
525D: 
525F: 
5261: 


STA 
DEX 
BPL 
JSR 
LDX 
STX 
PLA 
TAY 
PLA 
LDX 
TXS 
PHA 
TYA 
PHA 
LDA 
STA 
STA 
STA 
RTS 


$1204,X 


$522C 
S5AE1 
#$1B 
$18 


#SFA 


#0 
$1203 
$12 
SO3DF 


sand place it in the print using pointers 

;Do four characters 

;Space, comma, decimal point, and dollar sign 
;Perform a BASIC RESTORE command 

;Clear the temp. string stack 

;0f all entries 

;Get the return address off the stack 

;of the routine that called this routine 

jand save it in the Y-register/accumulator then 
;Reset the stack pointer to clear the stack of 
all addresses and information 

;Return the address 

;of the routine that called this routine back 
sto the stack 


;Erase the line number for CONT command 
;Clear the FOR/NEXT pointer 

;Clear the overflow pointer for FAC1 
;Exit 


ERK KKKKKKKKK KKK KKK KKkKkKkKkKkKKkKkKKkKkKkkKkKkKkKkKkKKkkKkkkkKkkKkkkkkKkke 


* 


* 


* 


* 


DEFAULT VALUES FOR PRINT USING COMMAND * 


* 


KRKKKKKKEKKKKKKKKKKKKEKKKKEKKKKKKEKKKEKKKKKKKKKKKEKKKKKKKKKKKKK 


TAT 


J Pea tus 


;Space, comma, decimal point, dollar sign 


KKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


+ + + € € € F F 


This routine sets the TXTPTR to point to the start 
of BASIC text. This is done so that the next 
character read in by CHRGET/CHRGOT will be the first 
character in the BASIC text. (TXTPTR = TXTTAB-1) 


RUNC 


+ + + © © © & 


KKKKKKKKEKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKK 


CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
RTS 


$2D 
#SFF 
$3D 
$2E 
#SFF 
$3E 


;Get the LSB of the Basic start (TXTTAB) 
;Subtract one from the LSB of TXTTAB 
;Save as LSB of TXTPTR 

;Get MSB of BASIC start (TXTTAB) 
;Subtract one if the carry is clear 
;Save as the MSB of TXTPTR 

;Exit 
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5262: 
5263: 
5264: 
5266: 
5269: 
526B: 
526D: 


5270: 


5213 
52756 
5278: 
5279: 
527B: 
527D; 
527E: 
5280: 


PLA 
PLA 
LDA 
JSR 
BEQ 
LDX 
JMP 


KKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


BASIC RETURN COMMAND 


Command syntax: RETURN 


+ + ££ € HF F 


the routine that called this routine, finds the GOSUB* 
address on the pseudo stack and uses these values to * 
set the current line and current address (TXTPTR). * 


* 

* 

* 

* 

* 

* This routine will pull the address off the stack of 
* 

* 

* 

* * 
* 


KkKkKkKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


;Pull the return address of the calling routine 
;off the stack 
#S8D ;Token for GOSUB 
S4FAA ;Search for the last GOSUB on the stack 
$5270 ;If found, branch to pull the return parameters 
#12 ; "RETURN WITHOUT GOSUB' error 
$4D3C ;Error routine 
i a a a a a a a a a a a Se a is Ss ee eee * 
* * 
* Get the RETURN parameters from the GOSUB La 
* entry on the pseudo stack * 
* * 
* BYTE DESCRIPTION LOW/ HIGH x 
* mem mi a a lc ee es em es a a * 
* * 
* 4 RETURN ADDRESS HIGH * 
* 3 RETURN ADDRESS LOW * 
* 2 LINE NUMBER HIGH * 
* 1 LINE NUMBER LOW * 
* 0 $8D - (TOKEN FOR GOSUB) * 
* * 
es es Si a a a a a a as i eee ee ee a ee ee ee eee Se ae es * 
$5050 ;Save the end of stack pointer in S$3F/$40 
; LOW/HIGH 
#5 ;Index pointer to number of bytes on the stack 
$5059 ;Add the Y register to the end of stack pointer 
;Subtract one to begin with return address 
(S3F),Y ;Get the MSB of the return address 
$3E ;Save it as the pointer to BASIC TEXT MSB 
;Subtract one from the index pointer 
(S3F),Y ;Get the LSB of the return address 
$3D ;Save it as the pointer to BASIC TEXT LSB 
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5282: DEY ;Subtract one to point to current line number 
5283: LDA (S3F),Y 7;Get the current line number MSB and add one to 
5285: JSR SA83B sit and save it as current line # MSB Y=Y+1 


;If line number equals SFF, then set the program 
;mode to the direct mode, end the program 

5288: LDA ($S3F),Y ;Get the current line number and 

528A: STA $3B ;save it as the LSB 

528C: JMP $528F ;Search for a colon or $00 ignoring everything 
;between GOSUB and the value 


KkkKKKKKKKKKKKKKKKKK KK KKK KKK KKKKKKKKKKKKK KKK KK KKKKKKKKKKK 


BASIC DATA STATEMENT 


Statement syntax: DATA iteml, item2, etc. 
Example: DATA 1,2,3, HELLO, BYE: SCNCLR 


* 
* 
* 
* 
* 
* 
This routine searches for the next occurrence of a * 
colon or the end of line flag ($00) skipping * 
everything in between. It works much like the REM * 
command, except you can follow the last DATA item * 
with a colon and a valid statement (as in example). * 
The main use of the DATA statement is to hold * 
data for the READ command. * 

* 

* 


+ + + F F F F FF OF OH F HF OF 


KKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK K KKK KKK KKK KKKKKKKK 


928F: JSR $52A2 ;Search for next statement or chain flag ':' 
Fe ee ee ee a a a we a en oe a mo re ee ww ee * 
* * 
* The Y register contains the offset in bytes to the * 
* next statement. This routine points TXTPTR to the = 
* next statement in the line, by adding the value * 
* in the Y-register to TXTPTR J 
* * 
Ke ee ee ea a a a ee a a a we ee we we we ww wr ww we = * 

5292: TYA ;Save pointer 

5293: CLC ;Clear the carry flag for addition 

5294: ADC $3D s;Add it to the program pointer 

5296: STA $3D 

5298: BCC $529C ;No overflow 

529A: INC $S3E ;Overflow, so increment the MSB by one 

529C: RTS ;Exit 
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KH HKK KKK KKK HHH KAKA KKKKKKKKKKKKKKKKEKKKEKKKKKKKKKKKKKKKKKKEK 


BASIC REM COMMAND 
Command syntax: REM <comments> 
($00). Then the routine adds the offset of the 


search to TXTPTR so that TXTPTR will point to the 
LSB of the line link of the next line. 


+ + &£ © & &£ £ FF FF F 


* 
* 

* 

* 

* 

This routine will search for the end of line flag * 
* 

* 

* 

* 

* 


KKK KKK K KK KKK KK KK KKK KKK KKKKEKKKKKKKKEKEKKKKKKKKKKKKKKK 


529D: JSR $52A5 ;Search for the statement terminator flag ($00) 
;End of line flag 
52A0: BEQ $5292 ;Add offset in bytes to the next line to TXTPTR 


KHKKKHKKHKKKKKKKKKKKKKKEKKHKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKK 


FIND THE OFFSET TO THE CHARACTER SPECIFIED BELOW 


This routine will search for the next occurrence of 
the character and if it is found, location $09 will 
hold the number of characters it had to count over 
from TXTPTR to find or match the characters. 


+ +£ & + © & F 
+ + + &€ € € FF F 


KK KKKKKKEKKK KK KKK KKKEKEKKKKEKKEKKEKKKKEKKKKKKEKKKKKKKKKKKEKEK 


52A2: LDX res ;Search for a colon ':'! 

52A4: .BYTE $2C *;Mask to fall through to $52A7 

52A5: LDX #0 ;Search for the statement terminator 
Se * 
* * 
* If you enter the routine at this point, the X * 
* register must hold the character to be searched for. * 
* If this routine should encounter the end of line * 
* terminator before the character being searched for * 
* is found, the routine will abort the search. * 
* * 
Cet a a et ea a ee ee es a a ee a ee Se ee ee ee ee * 

52A7: STX $09 ;Save the character to be searched for 

52A9: LDY #0 ;Clear the OFFSET pointer 

52AB: STY SOA | 

52AD: LDA SOA ;Switch the locations of the INDEX pointer 

S2AF: LDX $09 ;and the character to be searched for 
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52B1; 
52B3: 
52B5: 
52B8; 
52BA: 
52BC: 
52BE: 
S2BF: 
52C1: 
52C3: 


52C5: 
52C8:3 
52CB: 
52CD: 
S2CF; 
52D1: 
52D4: 


STA 


STX 
JSR 
BEQ 
CMP 
BEQ 
INY 
CMP 
BNE 
BEQ 


JSR 
JSR 
CMP 
BEQ 
LDA 
JSR 
LDA 


$09 ;Character to be searched for 
SOA ;Offset pointer 
$03C9 ;Get a byte from RAM BANK 0 
$529C sIs it the terminator flag? If so, then branch 
SOA ;Is it the character we are looking for? 
$529C ;If it is, then exit 
;Move the pointer to the next character 
ae ;Was the last character we got a quote mark? 
$52B5 ;No, then test the next character 
S$52AD ;Switch them back and try again — 


KKKEKKKKKKKKKKEKKKKKKEKKKKKKKKEKKKKKKEKKKKKKKKKKKKKKKKKKKKKKK 


BASIC IF COMMAND 
Statement syntax: IF <expression> 


* 

* 

* 

* 

* 

* This routine first evaluates the expression after 
* the 'IF' statement and stores the result of the 

* expression ( SFF = TRUE, $00 = FALSE ) in location 
* $63. It then checks for a 'THEN' or a 'GOTO' after 
* the expression. If the result of the expression is 
* false, the routine checks if the command following 
* the 'THEN' statement is 'BEGIN'. If it is, the 

* routine searches for a 'BEND' command and sets 

* TXTPTR to the statement following the 'BEND' and 

* executes it. If a 'BEGIN' was not found, the routine 
* searches for an 'ELSE' command on the same line. 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


NOTE: If the syntax of 'IF/THEN/BEGIN' is used, the 
'ELSE' command must be after the first. 'BEND' 
command or the 'ELSE' will not be executed. 
If there is not an 'ELSE' command after the 
'"BEND' command, everything on the same line 
as the 'BEND' is ignored until an 'ELSE' com-* 


'mand or the end of line flag ($00) is found.* 
* 


+ € € €* € & © &€ € FE FF FF FF FF FF FE FH FH HF F HF 


KKK KKK KKK KK KK KKK KKKKKKKKKEKKKKKKKKKKKKEKK KKK KKK KKKKKKKKKKEK 


STTEF ;Evaluate the expression after 'IF' 

$0386 ;Get the first character after the expression 
#$89 ;Is it the token for 'GOTO'? 

$52D4 ;Yes, then skip the check for 'THEN' 

#SA7 ;Token for 'THEN' 

$795E ;Search for '"THEN', if not found, 'SYNTAX ERROR' 
$63 ;Get the result (S$FF=TRUE, $00=FALSE) 
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52D6: 


52D8: 
52DB: 
52DD: 
52DF; 
52E0: 
52E3; 
S2E5; 
52E7: 
52EA: 
52ED; 
52EF: 
S22: 
52F 4; 
S2E is 
52F9:; 


52FB: 


52FE3 
5301: 
3303 
5305; 
5308: 
530A: 
530C: 
530D: 
5310: 
5312: 
5314: 
5317: 
531A: 
531D: 


BNE 


JSR 
CMP 
BNE 
INY 
JSR 
CMP 
BNE 
JSR 
JSR 
LDY 
JSR 
BEQ 
JSR 
CMP 
BNE 


JSR 


JSR 
BEQ 
BCS 
JMP 
CMP 
BNE 
INY 
JSR 
CMP 
BNE 
JSR 
JSR 
JSR 
JMP 


+ + % 


This routine evaluates the character or token that 
is currently pointed to by TXTPTR and executes it. 


C-128 BASIC 7.0 Internals 


;If the result is TRUE, then branch to execute 
;The statement after the 'THEN’ or 'GOTO' 
;Get the character after the 'THEN' or 'GOTO! 
;Is it the first part of a dual token command? 
;No, then skip to find a colon or $00 

;If it is, then check the second byte 

;Get the byte after the SFE 

;Token for 'BEGIN'? 

;If not, then find a colon or $00 

;Search for a 'BEND' and set TXTPTR to it 
;Search for a colon or end of line 

;Index to the next byte 

;Check the next character 

;If equal to zero, then execute a REM COMMAND 
;If not, then get the same character 

;Compare it to the 'ELSE' token 

sIf not equal, then search until an 'ELSE' or 
;An end of line terminator is found 

;If an 'ELSE' is found, then get the first 
;Character after the 'ELSE' 


+ + + 


;Get the last character 

;If it is equal to zero or a colon, then exit 
;if it is a character, then check for 'BEGIN' 
s;If it is a digit, then execute a 'GOTO' 
;Compare the first character to a dual token 
;If it is not, then exit 

;If it is, increment index to the second token 
;Get the second token 

;Token for 'BEGIN'? 

;No, then exit 

;Update the TXTPTR 

;Get the character 

;Get the char that TXTPTR's currently 
;pointng to and execute it 
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5320: 
5323: 
5325: 
S320: 
5329; 
532B; 
532D: 
532F: 
5332 % 
5334: 
53357 
5338: 
533A; 
533B: 
533E; 
5340; 
5341; 
5342: 
5344; 
5346: 
5348; 
534A: 
534C; 
534E: 
5350; 
5353; 
5353; 
5397: 
5359: 
535B: 
535E: 
5361: 
5363: 
5365; 
5368; 
536A: 
536C3 
536E: 
5370: 
5313 


JSR 
BNE 
CMP 
BEQ 
BIT 
BPL 
LDY 
JSR 
BEQ 
INY 
JSR 
STA 
INY 
JSR 
STA 
TYA 
Cre 
ADC 
STA 
BCC 
INC 
BNE 
CMP 
BNE 
JSR 
BEQ 
BNE 
CMP 
BNE 
JSR 
IMP 
CMP 
BNE 
JSR 
CMP 
BEQ 
CMP 
BNE 
JSR 
IMP 


+ + + 


This routine searches for 
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* 
'BEND' and updates TXTPTR * 
to point to the token for 'BEND'. * 
* 
a es ee es ee a i a Se a es “ee ae ee ee ca ei a a a a a a es ee ee * 
;Get the next character 
;Ilf not a ':' or statement terminator, branch 


sis it the chain flag ':;' ? 

;If it is, then branch get the next character 
;Check to see if were in DIRECT mode 

;If we are, then branch to 'BEND NOT FOUND! 
;Iindex pointer 

;Get the next character (TXTPTR) 

;End of the BASIC LINE? If so, then branch 
;Increment the INDEX pointer 

;Get the next character (TXTPTR+INDEX) 
;Save it as the current BASIC line number LSB 
;Increment the INDEX pointer 

;Get the line number MSB 

;Save it as the current BASIC line number MSB 
;Place INDEX pointer in the accumulator 
;Clear the carry for addition 

;Add the TXTPTR LSB to the INDEX pointer 
;Move the BASIC TXTPTR to where we left off 
;No carry, then branch 

;Add one to the BASIC TXTPTR MSB 

;Get the next character 

;Is it a quote? 

;No, then branch 

;Search for the ending quote or $00 

Check if a quote or $00 

;and continue with the loop 

;Token for REM? 

;No, then branch 

;Then execute a REM COMMAND 

;Update TXTPTR 

;Dual token BASIC COMMAND? 

;No, then keep searching 

;Yes, then get the second token 

;Token for BEND? 

;Yes, then branch to exit routine 

;Token for BEGIN? 

;No, then keep searching 

;Yes, then 

;Keep searching for 'BEND' 
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9376: RTS 


5377:  LDX #37 ;'" BEND NOT FOUND' error 
5379: JMP S4D3C 


ee * 
* * 
* This routine is used to search a line for a quote * 
* mark or an end of line terminator. If a quote mark * 
* is found, get the next character after it and exit * 
* the routine. If it's the end of line flag ($00) * 
* then the routine exits. = 
* * 


o37C; LDY #0 


537E: INC $3D ;Increment TXTPTR LSB by one 

5380: BNE $5384 sIf not zero, then skip ahead 

5382: INC $3E ;Increment MSB by one 

5384: JSR $03C9 ;Get a char. from the buffer or the BASIC text 

5387: BEQ $5390 s;If end of line flag or statement chain flag, 
;Branch 

5389: CMP eee sIs it a quote ? 

538B: BNE S537E sIf not, then continue searching 

538D:  JMP $0380 sIf it is, then get the next character and exit 

9390: RTS ;Exit 


KKK KK KK KKK IKK KKK KK KK IK KKK KKK KK KKKKKKKKEKKKKEKKKKKKEKKK KKK KK 


BASIC ELSE BEGIN COMMAND 


This routine is executed only if the expression in 
an 'IF' statement is true and there is an ‘ELSE! 
command after the 'IF' command on the same line. 


a 'BEGIN' command and if it is the routine searches 
for a 'BEND' command, does a 'REM' command and exits 
the routine. If the command after the 'ELSE' 
command is not a 'BEGIN' command, then the routine 


* 
* 
* 
* 
* 
* 
* 
Basically, what this routine does is it first checks * 
* 
* 
* 
* 
* 
does a 'REM' command only and exits. * 

* 

* 


* 
* 
* 
* 
* 
* 
* 
* to see if the command after the 'ELSE' command is 
x 
x 
* 
* 
* 
* 
* 


KKK KKK KAKI KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKEKKKKEKEEK 
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5391; 
5393: 
5395: 
5396; 
5399; 
539B: 
539D: 
53A0: 


53A3: 


53A6: 
53A7; 
53A9: 
S3AB;: 
53AD: 
53AF: 
53B2: 
53B4: 
53B6: 
53B7: 
53BA: 
53BD: 
53C0; 
53C2: 
53C4: 
2aC5s 


CMP #SFE s;Dual TOKEN BASIC COMMAND? 

BNE $53A0 s;No, then skip to the next BASIC line 

INY ;Move index pointer to next char. in BASIC text 
JSR $03C9 ;Get the next character from BASIC text 

CMP #$18 ;Token for 'BEGIN'!? 

BNE $53A0 s;No, then skip to the next BASIC line 

JSR $5320 ;Search for a BEND command 

JMP $529D ; JUMP to REM command to skip the remainder of 


JSR 


PHA 
CMP 
BEQ 
CMP 
BEQ 
JMP 
DEC 
BNE 
PLA 
JMP 
JSR 
JSR 
CMP 
BEQ 
PLA 
RTS 


;this line down to the next BASIC line 


KEKKKKKKKKKKKKKKKKKKKK KKK KKKKKKK KKK KKKKKKKKKKKKKK KKK KKK K 


BASIC ON COMMAND 


Command syntax: ON exp GOTO line #1 [,line #2,...] 
ON exp GOSUB line #1 [,line #2,...] 


* 

* 

* 

* 

* 

* 

* The ON command will evaluate the expression 

* following the ON command and then get the next 
* value after the expression to see if it is the token 
* for GOTO or GOSUB. If neither of these tokens are 

* found, then a SYNTAX ERROR will result. If the 

* token for GOTO or GOSUB is found, then the 

* expression is used as an index to count over to get 
* the correct line number to GOTO or GOSUB to. 

* 
* 


+ + + + + + * € FF FF FH FF F 
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S87F4 ;Calculate the expression which will be used as 
jan index value. 


;Save the token after the expression 
#S8D ;Token for GOSUB command? 
$53B2 Yes, then branch 
#589 ;Token for GOTO command? 
$53B2 7;Yes, then branch 
$796C ;Not GOSUB/GOTO, then ‘SYNTAX! error 
$67 ;Decrement the index value 
S$53BA ;Not zero, then index over to the line number 
;Get GOSUB/GOTO token back 
S4B59 ;Then GOSUB/GOTO 
$0380 ;Get the next character 
$50A0 ;Get the line number to GOSUB/GOTO 
ey" ;Equal to a comma? 
$53B2 ;Yes, then branch 
;Get the token back 
sExit 
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KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKKKKKKKKKKKEKKKKKKKKKEKK 


* * 
* BASIC LET COMMAND * 
* * 
* Command syntax: [LET] variable = expression i 
* * 
* This routine first looks for the variable that is * 
* specified after the LET command. After this has * 
* been done, the routine checks to see if the value of * 
* the character following the variable is the equal * 
* sign. If it is not, then a "SYNTAX ERROR! results. 3 
* If the character is an equal sign, the routine evalu-* 
* tates the expression after the '=' and assigns the * 
* result to the variable specified after the LET. - 
* 


* 


KKKK KKK KKK KKK KKK KKK IKK KKK KKK KKK KKK KK KKEKKKKKKKKKKKKKK KKK K 


53C6: JSR $7AAF ;Looks for variable, and if not found 
;prepares new descriptor for this variable name 

53C9: STA $4B ;Save the address 

SSCBs. STY $4C ;of the variable's descriptor in RAM BANK 1 

53CD: LDA #'=! ;Checks for an equals sign after the variable 

53CF: JSR $795E ;If not found, then 'SYNTAX ERROR' 

53D2: LDA $10 ;Save the integer flag 

53D4: PHA 7;Onto the stack 

53D5: LDA SOF ;And save the VALTYP flag 

53D7: PHA ;Onto the stack 

53D8: JSR S77EF ;Evaluate the expression after the equals sign 

53DB: PLA ;Get the VALTYP flag back 

53DC:. ROL ;Iif string, set the carry else clear the carry 

53DD: JSR S77DE ;Check on correct type 

53E0: BNE $5404 ;Assign a string to the variable 

53E2: PLA ;Get the integer flag back 

53E3: BPL SS53FA ;If zero, then assign a floating point number 


sto the variable: If not zero assign an integer 


KK IKK KK KK KKK KKK KKK KKK KH KKK KKK KKK KKK KKK KKKKEKKKKKKKKKKKKKKK 


* 


* ASSIGN AN INTEGER VALUE TO A VARIABLE * 
* * 
* This routine rounds off the floating point number * 
* that's in FAC] and then converts the value to integer* 
* format and places the value into the variable des- * 
* criptor. For more information see section 1.3. On * 
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* entry locations $4B, $4C point to the descriptor's * 
* address starting at $0400 in RAM BANK 1. * 
* * 


KKEKKKKKKKEKKEKKEK KKK KKK KKK KEK KKK KKK KKK KKK KKKKKKKKK KKK KK KK KKK 


53E5: JSR $8C47 ;Round off the floating point accumulator (FAC1) 
53E8: JSR $84B4 ;Change FAC1 to integer format 

53EB: LDY #0 ;Zero the index pointer 

53ED: LDA $66 ;Get the MSB value of the integer number 

53EF: STA SFFO4 ;Switch, to put the value in BANK 1 

53F2: STA ($4B),Y ;Place MSB of the integer value into descriptor 
53F4: INY ;Increment the index pointer 

53F5: LDA $67 ;Get the LSB value of the integer number 

53F7; STA ($4B),Y ;Place LSB of the integer value into descriptor 
53F9: RTS ;Exit the routine 


KKK KKKKK KKK KKK KKK KEKE KKK KKK KKK KKK KK KKKKKKKEKKKKKKKKKKKKKK 


ASSIGN A FLOATING POINT NUMBER TO A VARIABLE 


* 
* 
* 
This routine assigns a floating point number to the * 
variable whose address is stored in locations $4B, * 
S4C, * 
* 

On entry to this routine $4B,S4C must point to the - 
address of where you want the floating point number * 
(FAC1) to be moved TO. 
* 

* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KEK KKK KKKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKEKKKEKEKKKEKEKKKEKK 


53FA: LDX S4B ;Get the LSB and 

53FC: LDY $4C ;The MSB of the descriptor's address 

53FE: STA SFFO4 ;Switch, to put the value in BANK 1 

5401: JMP $8C00 s;Transfer the Floating point ACcumulator (FAC1) 


;To the variable address (descriptors) 


KHKKK KKK AK KKK KKK KKK KKK KKK KKK IK KKK KKK KEK KKK KKK KKK KKKKEKEKKKK 


ASSIGN A STRING VARIABLE 


address is stored in locations $4B,S$4C. 


+ + + + F 


* 
* 
* 
This routine assigns a string to the variable whose * 
* 
* 
* 


KKK KKK KKK KKK KKK KKK HK KKK KKK KKK KEK KKK KEKKKKKKEKKKKKKKKEKKK 


5404; PLA ;Remove the integer flag from the stack 
5405: LDY $S4c ;Check the MSB of the string to be assigned 
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5407: CPY #503 sto see if it's TIS and 
5409: BNE $547D ;If it is not TI$ then branch to see if it's DS$ 
ce ss) cs ee,“ me me Se se Ne i ce a es oe ee es ee * 
* ASSIGN A STRING VARIABLE TO TIS e 
Fe es a ee ee ew we a a a a a ae a es ew ee we oe ee * 
540B: JSR $8781 ;Delete the string from the temp. string stack 
540E: CMP #$06 ;If the length of the string is not 6 characters 
5410: BNE $5450 ;Branch to generate an 'ILLEGAL QUANTITY' error 
5412: LDY #0 ;Zero the index pointer 
5414: STY $63 ;Clear the string descriptor LSB temp. pointer 
5416: STY $68 ;Clear the string address MSB temp. pointer 
5418: STY $72 ;Reset the current character being processed 
541A: JSR $5448 ;Get an ASCII char. from the string and ensure 
;It's a digit 0 - 9 then add it to FAC1 
541D: JSR $8B17 ;Multiply FAC1 by 10 
5420: INC $72 ;Add one to the current char. being processed 
;Counter 
5422: LDY $72 ;Get the current char. being processed counter 
5424: JSR $5448 ;Get an ASCII char. from the string and ensure 
sIt's a digit 0 - 9 then add it to FAC1 
5427: JSR $8C38 ;Round off FAC1 and move it into FAC2 (ARG) 
542A: TAX ;Save the exponent in the X-register 
542B: BEQ $5432 ;If the exponent equals zero then branch 
542D: INX ;Add one to the exponent 
542E: TXA ;Move the exponent into the Acc. 
542F: JSR $8B22 ;FAC1] = FAC1 + FAC2 * 10 
5432: LDY $72 ;Get the current char. being processed counter 
5434: INY - Add one to move the index over to next char. 
5435: cCPY #6 ;All six characters done yet? 
5437: BNE $5418 ;No, then branch to continue processing them 
5439: JSR $8B17 ;FAC1 = FAC1 * 10 
543C: JSR $8CC7 ;Convert FAC1 into a four byte signed integer 
543F: LDX $66 ;Get MID value for TI$ 
5441: LDY $65 ;Get HI value for TIS 
5443: LDA $67 ;Get LOW value for TIS 
5445: JMP SFFDB ;Call SETTIM to set the jiffy clock 
Koes SS Ss Sa a a ae ea Sa ae a ee a a ee ae ee ea aes Se ee SS a ae * 
x * 
* Check to ensure that the next character that is read * 
* in is an ASCII digit zero thru nine and if it is then * 
* convert it to an integer value and add it to FAC1 * 
* If the character is not an ASCII digit then it will * 
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5448: 


544B; 


544E; 
5450: 
5453: 
5455: 


5458; 
5459; 
545A: 
545C: 
545E: 
5460: 
5461: 
5464: 
5466: 


5468: 
546A: 
546C: 


546E; 
5470: 
5472: 
5474: 
5476: 
5478: 
S47A: 


* generate an 'ILLEGAL QUANTITY ERROR' message. 
* * 
Kec ee eee eee eee Se Ss a ee Si we eo ew ee ae eee ee eee ee ee * 


JSR $03B7 ;Get a character from the string that is pointed 
*To by $24,25 in RAM BANK 1 

JSR $0390 ;Use QNUM to query the char. and clear carry 
;Flag if it's an ASCII digit zero thru nine. 

BCC $5453 ;Branch past the error message if it's a digit 

JMP $7D28 ;Generate an ‘ILLEGAL QUANTITY ERROR' message 

SBC #S2F ;Subtract $30 to convert from ASCII to NUMERIC 

JMP $8DBO ;Add the numeric value in the Acc. to FAC1 

i ee ee a a ee ee eae eee a eee ee See Se ee Se ee ee Se ee SS * 


Cae Se ee eee eee eee ee Se Se ee * 
PLA ;Pull the MSB of string's address off the stack 
INY ;Move the index pointer 1 byte past LSB value 
CMP $36 ;Check to see if string's address is below the 
BCC $5476 ;Allocated area in RAM and if so branch 
BNE $5468 ;If MSBs are not equal, branch past LSB test 
DEY ;Move the index pointer back over to the LSB 
JSR S42E7 ;Get the LSB of the string's address 
CMP $35 ;Less then FRETOP? If so then 
BCC $5476 ;Branch past the test for the start of BASIC 

;variables 
LDY $67 ;Check to ensure we are not intruding at the top 
CPY $30 ;Of the variable storage area and if not branch 
BCC $5476 ;To assign the move of the descriptor into the 
;Variable storage area from the temp. descriptor 
BNE $5494 ;String storage area in RAM BANK 1 
LDA $66 ;Check to see if the LSBs match and 
CMP $2F ;If they do not then branch 
BCS $5494 
LDA $66 ;Get the address of the string 
LDY $67 sthat is in memory then move the address of the 
JMP $54B2 ;variable descriptor behind the string 

Kee ee ee em ee ee ew mw www ee wwe wwe ew ew we ww we ew www ew eww wo * 

* * 

* This routine is used to see if the string to be * 

* assigned it for DSS and if not it will call the * 

* routine which assign a normal string, if it is DSS * 

* then it will check location $7A to see if a serial * 
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547D: 
S47F: 
5482: 
5484; 
5486: 
5487: 
5488: 
548B: 
548D:; 
548F: 
5491: 
5493: 


5494; 
5496: 
5499: 


549C: 
549E; 
54A0; 
54A2: 


LDY 
JSR 
CMP 
BNE 
PHA 
DEY 
JSR 
CMP 
BNE 
LDA 
BEQ 
PLA 


LDY 
JSR 
JSR 


LDA 
LDY 
STA 
reyd bs 


t+ + + € € FF FF FF FF FF F KF F 


+ + + ££ € HF 


bus operation has occurred since the last time DSS§ = 
was assigned, and if not exits the routine but if S7A * 
indicates that a serial bus operation has occurred * 
then a new descriptor is formed in the temp. string * 
descriptors. If no access has occurred to the serial * 
bus since the last time DSS$ was assigned the $7A will * 
contain a #$40, if access has occurred the location « 
S7A will contain a #$00. ai 
* 

NOTE: This routine does NOT actually read in the disk * 
drive error channel; that is handled by the * 
routines in ISVAR ($7978). as 

* 

a et ime com a Snecma ce “cos “ems ws cg cme“ es avs ems ess ca cc ee a ee ee * 
#502 ;Move the index pointer over to the MSB of the 
S42E7 ;string's address and get that value in the Acc. 
$7C ;Check to see if MSB of string to be assigned 
S545A ;has the same MSB value as DSS and if not branch 

;Save the MSB value onto the stack 

;Move the index over to the LSB value 
S42E7 ;Get the value and check to see 
$7B ;If string's LSB is the same as DS$'s and if it 
$5458 ;does not then branch to passing it to variable 
STA ;Check to see if DSS needs to be updated, if so 
$5458 sbranch to assign the new string to DSS$ 


;Get the MSB value of the string's address back 


This routine is used to take a string from the * 
descriptor and create room for it in the string * 
area in RAM BANK 1, if there is not enough room for * 
the string in memory an ‘OUT OF MEMORY ERROR ' will * 
result. If enough room exists then the string is moved* 
to that location and the zero page pointers are - 
updated. * 

es a a es i ans fis “mn es sc s,s Se ss ca se, ese ce cnn ‘cnn ne “Seed ein ‘eee ee * 

#0 ;Move the index pointer back over to the length 

$42E7 ,of the string and get that value in the Acc. 

$8688 ;Allocate room for the string in the string 
;storage area 

$52 ;Move the string descriptor from $52,$53 

$53 

$70 ;Into $70,$71 for the next routine 

$71 
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54A43 


54A7: 
54A9: 
54AB: 


54AE: 
54B0:; 
54B2: 
54B4: 
54B6;: 
54B8: 
54BA: 


54BD: 


54CO: 
54C2: 
54C4;3 
54C6; 
54C9; 
54CB; 
54CC: 
54CE: 
54D0: 
54D2: 
54D4: 
54D6: 
54D8: 


S4DB: 


JSR 


LDA 
LDY 
JSR 


LDA 
LDY 
STA 
STY 
STA 
STY 
JSR 


JSR 


BCC 
LDY 
LDA 
STA 
STA 
INY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 


BCC 


+ + + 


* 


* and the flag for 


Move the string descriptor into the variable 
descriptor in RAM BANK1 


$4C 
($24) ,Y 
$4B 

$24 

S4C 

$25 
$54F6 


$54E9 


C-128 BASIC 7.0 Internals 


s;Move string descriptor into the space allocated 
s;above and then update FRESPC. 
;Get address of which templ. 
sthat was being used. 
;Delete string from the string descriptor since 
sthe string has been moved into the string 
s;storage area 


string descriptor 


+ + + 


;Load address of which O page address holds the 
;Address to the temp. string descriptor 

Move the address of the string descriptor into 
#$24,$25 and $52,$53 for the various routines 


;Delete string from the string descriptor since 
s;The string has been moved into the variable 
sstorage area. 

;Ensure enough room for the variable 

s;and that it is not the same address as DSS$ 

;If the string was in RANGE the branch 


;Get the LSB value of the descriptor 
;Same as BASIC BANK 15 command but wth RAM BANK1 
;Save it at the end of the string + 1 
;Move index pointer over to the MSB 
;Get the MSB value of the descriptor 
;Save it at the end of the string + 2 
;Move the variable storage pointer into 
7$24,$25 


;Ensure enough room for the variable 

sand that it is not the same address as DS$ 
;If string was in range and not DSS branch to 
:;The string descriptor pointer after the string. 


This section of code places the length of the string* 


‘OUT OF RANGE!’ to inform the garbage * 
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54DD: 
S4DE: 
54E0: 
54E3: 


54E5; 
54E6: 
54E7: 
54E9; 
5S4EB: 
54ED: 
54F0: 
54F2: 
54F3; 
54F53 


54F6: 
54F8:3 


54FB: 
54FC3: 
54FE:3 


DEY 
LDA 
STA 
STA 


DEY 
TXA 
STA 
LDY 
LDA 
JSR 
STA 
DEY 
BPL 
RTS 


LDY 
JSR 


PHA 
BEQ 
INY 


* collection routine the length of this string and that * 
* it was 'OUT OF RANGE' and now free for use. This set * 
* of flags will also be set if you do something like - 
* AS="C-128" then aS="C-129", The old string (C-128) * 
* have an 05 FF indicating that the string's length is 5* 
* and the string space in memory is now ready for use. * 
* 


#SFF 
SFFO4 
($24) ,¥Y 


($24),Y 
#502 
#$52 
$03AB 
($4B),Y 


S54EB 


;Move the index pointer back to the MSB 

;Flag for string was out of range 

;Same as BASIC BANK 15 command but w/ RAM BANK1 
;Place flag for string out of range in place of 
;The MSB 

;Move index pointer over to the LSB position 
;Move the string LENGTH into the X register 
;Place LENGTH of the string into the LSB pointer 
;Place length, LSB, MSB of the string into the 
;Variable storage area 

;Get a byte from $52,$53 

;And save it in the variable storage area 


;Continue looping until all 3 bytes are moved 
;Exit the routine 


KK KKK KK KKK KKK KKK KKK KKK KKK KKKKKKKKEKKKKKKKKKKKKKKKKKKKRK KKK 


* 


This routine checks to ensure there is enough room in* 
memory to place a string.If there is not enough room * 
the ACC. will contain the length of the string and the* 
carry flag will be cleared. If there is enough room in* 
memory the address of the free space will be in $24, 


should happen to be the same as for DS$ then the lst 


statement holds true. On entry to this routine, 


that you need room for. 


* 
* 
* 
* 
* 
* 
* $25 and the carry flag will be set. If the address 
* 
* 
* 
* 
* 
* 


* 

* 

* 

the ACC. holds the length of the string . 
* 

* 

* 


KKK KKEKKKKKHK KK KK KKK KKK EK KEKE KKEKKKKEKEKKKEKKKKKKKKKK KK EK 


#0 
$03B7 


$5537 


;zero the index pointer 

;Get a byte from $24,$25 which point to string 
;Descriptor 

;Save the length of the string onto the stack 
;If the length is zero branch to exit routine 
;Move the index pointer over to the LSB of the 
;String's address 
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54FF: 
5502: 
5503: 


5504; 
5507: 
5509: 
550B: 


550Ds 
550F: 


5511: 
5514: 
5516: 


5518: 


5S1LAS 


5o.1C3 


551E: 
5520: 


9522: 
55243 


5526: 
5528: 
552A; 
552B: 
552C: 
552D: 
552F 3 
S531 
5533% 
5535 


5536: 
553.72 
5538; 
55393 


JSR 
TAX 
INY 


JSR 
CMP 
BCC 
BNE 


CPX 
BCS 


JSR 
CMP 
BCC 


BNE 


CPX 


BCC 


CMP 
BNE 


CPX 
BEQ 


STX 
STA 
PLA 
TAX 
CLC 
ADC 
STA 
BCC 
INC 
SEC 


RTS 
PLA 
CLC 
RTS 


$03B7 


$03B7 
$3A 

$5511 
$5537 


$39 
$5537 
$03B7 
$36 
$5537 
SS51E 
$35 
$5537 
S$7C 
$5526 
$7B 


$5537 


$24 
$25 


$24 
$24 
$5535 
$25 


7;Get the LSB 

;Save it in the X-register 

;Move the index pointer over to the MSB of the 
;String's address 

;Get the MSB 

;If the string'’s address is lower then SFFXX 
;Then branch to bypass the test on the LSB 

;If it was not less then SFFxx then it must be 
;Higher then SFFXX so set the string ‘OUT OF 
;RANGE FLAG' 

;Check to see if the LSB of string's address is 
;Greater than allowed and if so branch to the 
;String 'OUT OF RANGE FLAG' 

;Get the MSB address of the string AGAIN! 
;Check to see if it's 

;Greater than allowed and if so branch to the 
;String 'OUT OF RANGE FLAG' 

;Branch past test on the LSB if it's not equal 
;Indicating thats it's in range 

;Check to see if it's below the bottom of 
;Current string memory is 

;less than allowed; if so branch to the 
;String ‘OUT OF RANGE FLAG! 

;Check to see if it's the same address as DSS 
;If MSBs don't match then at this point it's 
;In range and not DS$ so branch to set the 'IN 
;RANGE'flag and- 

;If MSB matched address for DS$ then check the 
;LSBs and if they're equal branch to set the 
;String 'OUT OF RANGE FLAG! 

;Save the address of the string in $24,$25 


;Pull the length of the string off the stack 
;And save it in the X-register 

;Clear the carry flag for addition 

;Add the length of the string to the address of 
;The string 

;If no overflow occurred branch 

;Add one to the MSB of the string's address 
;Set the' carry flag to indicate string was not 
;DS$ and was 'IN RANGE! 

;Exit the routine 

;Pull length of the string back off the stack 
;Clear the carry flag to indicate the string was 
;'OUT OF RANGE' then exit the routine 
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KKEKKKKKKKKKEKKKKK KK KKKK KKK KKK KKKEKKKKKKKEKKEKKKKKKKKKKKKKK 


BASIC PRINT# COMMAND 
Command syntax: PRINT# file number [,print list] 


* 
* 
* 
* 
* 
* This routine will first call the BASIC CMD routine 
* at $5540 to redirect the output to the logical file 
* number specified after the pound sign. The routine 
* then calls the BASIC PRINT routine to print any 

* text. After performing the PRINT command, the 

* output file is closed and the system is reset to the 
* standard I/O configuration of keyboard and screen. 

* 
* 


+ + + + + F F F F OF HF F 


KKKKK IKKE KEKKKKKKKKKKKKKKKKKKaEKKKAKKKKKKKKKKKKKKKKKKKKK 


553A: JSR $5540 ;Perform BASIC CMD and PRINT commands 
553D: JMP $5658 ;Jump to close the CMD output file number 


Kk KK KKK KKK KKK KKK KKK KKK KEKE KKK KKKKKKKKKKKEKKKKEKKEKKKKKKKKKEKK 


BASIC CMD COMMAND * 
Command syntax: CMD file number [,variable] 


* 

* 

* * 
* * 
* * 
* This routine will convert the ASCII value of the * 
* number that follows the CMD command to a numeric * 
* value in order to get the logical file number. If * 
* the keyboard was selected, then an error will x 
* result. If a valid output device was selected, then * 
* the routine checks to see if the next character * 
* is a comma and if it is, then this routine will * 
* print the variable to the output device. If there is * 
* no comma, then a return or a linefeed is printed * 
* depending on the value of the logical file number. * 
* If the logical file number is less than 128, thena * 
* carriage return is printed. However, if the logical * 
* file number is greater than 128, then a linefeed as * 
* well as a carriage return is printed. * 
* * 
* * 


KKEKKKKHKKKKKKKKKK KKK KKK KKKEKKEKKEKKKKKKKKKKKKKKKKKKKKKEKK 


5540: JSR S87F4 ;Convert ASCII to numeric and place it in 
;The X-register (Logical file number) 

5543: BEQ $554A ,IlIf no parameters after the ')' then branch to 
;Open the output file | 

5545: LDA #3) ;See if there is a comma after 
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5547: JSR $795E ;The token for CMD. If so, skip it 

554A: PHP ;Save the processor status register 

554B: STX $15 ;Save logical file number for screen prompting 

554D: JSR S90EB ;Set output device 

5550: PLP ;Get the processor status back 

5551: JMP $555A ;Jump to the BASIC PRINT command 
See Sa So a a ae ee ee ee ea a a a Sa ae Se SS * 
* PRTSTR * 
* * 
* PRinT STRing ig 
* * 
* This routine is used by the print command as the main * 
* loop; it will first print the string to the current = 
* output device then get the character after the = 
* variable and fall through to the BASIC PRINT COMMAND. * 
* * 
Te a a a a oe ee oa ee a Se a a a ae a eo ae a I a we a a ee i ee eee eS * 


5554: JSR S55E5 ;Print the string 
5557: JSR $0386 ;Get the last character 


KKKKK KKK KKK KKK KK KKK KKK KK KEK KKK KKK KKK KKK KKK KKKKK KK KK KKKKKKK 


BASIC PRINT COMMAND 


Command syntax: PRINT [variable][',' ';'] [variable] 
PRINT [" <text to be printed> "] 


* * 
* * 
* * 
* * 
* * 
* * 
* This routine first checks to see if there is * 
* anything after the PRINT statement to print. If * 
* not, the routine will print a carriage return and or * 
* aline feed. If there is something after the PRINT * 
* statement, then this routine checks to see if it is * 
* the value for USING, TAB(, or SPC( and then goes to * 
* execute the routines that handle whichever function * 
* is specified. If the value after the PRINT * 
* statement is none of the above, then the routine * 
* checks to see if the value is a comma. If it is a * 
* comma, then this routine will print the text, * 
* print over ten spaces, and restore the routine to s 
* the check that is made after the PRINT USING check. * 
* The routine will then test for a semicolon and if * 
* it is found, the semicolon is skipped and the value * 
* of the variable after the semicolon is printed. * 
* * 
* * 


KKK KI IKK KKK KKK KKK KK KKK KKK KKK KE KKKKKKKKKKKK KKK KKK KKK KKK KKK 
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555A: BEQ $5598 ;End of statement, then print return 

555C: CMP #SFB ;Is the character after PRINT 

555E: BNE $5563 ;The token for 'USING'? If not, branch 

5560: JMP $9520 ;Go to PRINT USING routine 

5563: BEQ $55A8 ;No character, then exit routine 

5565: CMP #SA3 ;Token for 'TAB(' ? 

5567: BEQ S55B9 ;If so, then carry still set go to TAB( 

5569: CMP #SA6 ;Token for 'SPC(' ? 

556B: CLC ;Set flag for SPC( 

556C: BEQ S55B9 ;Then go to TAB( / SPC( command routine 

556E: CMP : oe ;Check to see if there is a comma 

5570: BEQ S55A9 ;If so, branch to set the cursor position to ten 

;Columns over from current cursor position 

5572: CMP eee ;Check to see if there is a semicolon 

5574: BEQ $55D4 ;Ilf so, then skip it 

5576: JSR S77EF ;Evaluate the expression 

5579: BIT SOF ;Type flag $00 = NUMERIC, SFF = STRING 

557B: BMI $5554 ;Branch if it's a string and print it. 

S57D: JSR $8E42 ;Change floating point accumulator 

;To ASCII string (FOUT) 

5580: JSR S869A ;Get the string parameters 

5583: JSR S55E5 ;Print the string 

5586: JSR $5600 ;Print a space 

5589: BNE $5557 Continue 
Ke ee ee ee ee ee ee we ee i a en we em ee ww wr ww oe ew oe ee ee oe es * 
* * 
* This routine places an end of line flag ($00) in the * 
x input buffer at $0200 plus the value in the * 
* X register and will print a return if the channel * 
* ($15) is set to the standard I/O configuration which * 
* is the keyboard and screen. The Y register will hold * 
* a #$01 and the X register will hold a SFF which is * 
* the MSB and LSB of the address that points to the * 
* start of the input buffer minus one. * 
x x 
Ke Ss os os a es ee ee ee ee a ee ee ee ee eee * 

558B: LDA  #$00 ;Input buffer 

558D: STA $0200,X ;Place statement terminator ($00) in the buffer 

5590: LDX #SFF ;Set pointer to the input buffer 

5592s - LDY #$501 ;To SOLFF 

5594: LDA $15 ;Number of output devices 

5596: BNE S55A8 ;Ilf the current output device is not the screen, 


;Then exit the routine 
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5598; 
559A: 
559D; 
559F; 
55A1; 
55A3: 


S5A6: 
55A8: 


55A9: 
S5AA: 
55AD: 
55AE; 
S5AF: 
55Bl1: 
55B3: 
55B5; 
55B7; 


LDA 
JSR 
BIT 
BPL 
LDA 
JSR 


EOR 
RTS 


SEC 
JSR 
TYA 
SEC 
SBC 
BCS 
EOR 
ADC 
BNE 


+ €+ + + & 


+ 


* 


+ + + 


* 


+ + + € FF FF 


* 
Print a return to the current output device and then * 
check to see if the logical file number is 128 or - 
greater. If it is greater than 128 then print a * 
linefeed. * 
* 
ce cee ee we ee we ewe we ew wn we we we we we we ow wm wm ws ws ws om wm wm wm ee wm es me we ee ee ee ee ee * 
#S0D ; <CR> 
$560C sPrint: if 
$15 ;Check the logical file number 
S55SA6 ;Smaller than 128? 
#S0A ;Linefeed 
$560C ;Print <.e 
es tml ce (a es “ese mis sccm ces, inseam Ce» ines ain estes es ces (Ses "Ge Se me ae Ss aes eS me ces meses eyes pe es ve en ede se * 
* 
If the routine is entered at this point, the * 
character in the accumulator is reversed (mirrored). * 
* 
ee ee ee a ees * 
#SFF ;Restore the char. back to its original value 
;Done 
ce se ew ee we ee we ee ee ew a a ew a ee ee we ee ee ee * 
* 
This routine will take the current cursor position * 
and print over ten spaces from that position. This * 
routine is used by the BASIC PRINT command to print * 
ten spaces when variables are separated by a comma 4] 
in a print statement. * 
* 
om om we we oe ow om we we ee a es a a ee es a ww ae a a a = * 
;Set the carry flag 
$928D ;To get the current cursor position 
;Get cursor position (column) 
;Set the carry for subtraction 
#SO0A ;Subtract 10 from the current cursor position 
SS5AF sIf overflow, then branch 
#SFF ;Make the value positive 
#$01 ;Then add one 
S55CF ;Print the spaces 
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55B9: 
SSBA:;: 
SSBB: 
5S5BE: 
55CO0: 
55C3% 
DOCS? 
SOC}: 
55C8: 


55CA:;: 
55CB; 
55CD: 
55CF:; 
55D0: 
55D 1% 
55D2: 
55D4: 
55D7: 
55DA: 
55DD: 
55E0; 


PHP 
SEC 
JSR 
STY 
JSR 
CMP 
BNE 
PLP 
BCC 


TXA 
SBC 
BCC 
TAX 
INX 
DEX 
BNE 
JSR 
JMP 
JMP 
JSR 
BNE 


KEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKKKKKKKK KKK 


TAB( AND SPC ( COMMANDS 


Command syntax: TAB( <number of columns to tab> ) 
SPC( <number of columns to space> ) 


If the carry is set, then execute the TAB( command. 


If the carry is clear, then execute the SPC( command. 


* 
* 
* 
* 
* 
* 
* 
* 
This routine is called by the PRINT routine. * 
* 
* 


KEKKKKKKKKKKKKKKKKKKKKKKKEKKKKHEKKKKKKKKKKKKKKKKKKKKKKKK 


;Save the flag 


;Set the carry flag 
$928D ;Get the cursor position 
SOB ;Save it 
S87F1 ;Get the byte value 
#*)! ;Close parenthesis 
SS55DA ;If it's not, then "SYNTAX ERROR! 
;Get the flag back 
$55D0 ;Carry not set? Then it must be a 'SPC('! 
;Command 
;Not a 'SPC(', then it's a 'TAB(' command 
SOB ;Place TAB value in ASCII and compare to cursor 
$55D4 ;Position value less than position, then ready 


;Place ASCII value back into the X register 
;Increment the pointer by one 


;Decrement the pointer by one 
S55DD ;Print a space 
$0380 ;Get the next character 
$5563 ;Restart the loop 
$796C 7; "SYNTAX ERROR' 
$5600 ;Print a space or a question mark 
$55D1 ;Not done, so continue 


KRAKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKRKKKKKKKK 


* * 
= STROUT - STRing OUTput : 
* * 
* The accumulator and the Y register hold the LSB and * 
* the MSB of the address of the string to be * 
* printed. NOTE: The string must be located in * 
* RAM BANK O and the string must end with a zero * 
* or a quote mark. 5 
* 


Kak kKe KKK KKK KK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
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55E2: JSR 
SSE5: JSR 
55E8: TAX 
55E9: LDY 
SSEB: INX 
SSEC: DEX 
SSED: BEQ 
5SEF: JSR 
55SF2: JSR 
55F5:; INY 
SSF6: CMP 
55F8: BNE 
5SFA: JSR 
SSFD: JMP 


5600: LDA 
5602: BEQ 
5604: LDA 


S$869A 
$8781 


#0 


$55A8 
$03B7 
$560C 


#$0D 

SSSEC 
SSSA6 
SSSEC 


;Search for the string, if not found, create it 
;Delete a temporary string 

Place the string length into the pointer 
;Zero the index pointer 

;Add one to the length for the next decrement 
;Decrement the string length of the string 
;Done? If so, then exit the routine 

;Nope, then get the next character 

;Print the character 

;Increment the index pointer 

;Is the character a carriage return? 

;No, then keep printing 

;Invert value 

;Back to the loop 


KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KEKE KKK KKKEKKKKKKKKEKKKKKKKEK 


This routine checks the logical file number in the 
channel location ($15) and if it does not indicate 
the current I/O configuration as being the keyboard 


the standard I/O cofiguration, then the routine 
prints a cursor right. 


* * 
* * 
* * 
* * 
* and screen, the routine prints a space. If it is * 
* * 
* * 
* * 
* * 


wRaKK KKK KKK KK KKK KK IKK KKK KKK KKK KKK KKK KKKKKEKKKKEKKKKKKEKKKKKK 


$15 ;If the input device is the keyboard, then 
$5607 ;Print a cursor right 

aa eS ee a ee ee eee Ce ee ee oe ee eee oo ee a a a ee * 

* Enter this routine here to print a space. 

SC cee ce eh as as es a a se Se ee a ee ae a * 
#32 ;Print a space 


5606: .BYTE $2C 


5607: LDA 


#29 


5609: .BYTE $2C 


;Skip to cursor right 


;Print a cursor right 
;Skip to $560C 
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560A: 


560C: 


S60F: 


5611: 


5612: 
5615: 


S6L7: 
5619: 
561B: 
561D: 


LDA 


JSR 


AND 


RTS 


JSR 
STA 


CMP 
BEQO 
CMP 
BNE 


Fe ce ee we we a ae a we a we we eo ew ww we ww we ww ow wr wm oe eo oe ee eo oe ee = = * 
ts! ;Print a question mark 
Fo ee ew ee a a a a = = * 
* * 
* Print the character in the accumulator and test the * 
* STOP key. If the STOP key is depressed, then exit ~ 
* routine with a 'BREAK' message. . 
* * 


S90DF ;Output character and check for the STOP key 
;lf the key was depressed, 'BREAK' 
#SFF ;Place the value that was originally printed 


sin the ACC. 
s;Exit routine 


KAKK KKK KKK KKK KKK KE KKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK 


BASIC GET COMMAND 


Command syntax: GET variable list 


+ + + + F 


* 
* 
* 
* 
* 
* This routine first checks to see if you are in DIRECT* 
* mode or PROGRAM mode. If you are in DIRECT mode, the * 
* ‘ILLEGAL DIRECT' results. If you are in PROGRAM mode, * 
* the routine checks the first character following the * 
* GET command and stores the character value in loca- * 
* tion $77. If the value was for the pound sign (#) or * 
* for the 'KEY' token, the routine branches to the pro-* 
* per routines for these commands. If neither value is * 
* found, then a standard GET command is executed. * 
* * 
KK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKKKKKKKKK KKK KK KK 


$84D9 ;If in the direct mode, then 'SYNTAX ERROR! 

$77 ;Save the character after the GET token for use 
;By the READ routine (checks token for KEY). 

#'#! ;Is it GET# ? 

$5625 ;Yes, then branch to GET # 

#SF9 ;Token for KEY as in GETKEY? 

$5635 ;No, then branch, it's a standard GET 
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S61F: 
5622: 


5625: 
5628: 
562B: 
562D; 
5630; 


5632: 


JSR 
JMP 


JSR 
JSR 
LDA 
JSR 
STX 


JSR 


+ + + + + + & 


+ + & + € + + + FF HF + 


+ 


+ 


+ + + + 4+ + + 4 


* 
BASIC GETKEY COMMAND * 
* 
Command syntax: GETKEY variable a 
* 
This routine will skip the token for KEY (SF9) and * 
call the standard GET routine below. x 
* 
fe eS ec ec ee ee fe ee fe oe ee * 
$0380 ;Get the next character 
$5635 ;Set up the buffer end, and GET flag, 
;Read in the variable 
ee ee ee ee ee ee ee * 
* 
BASIC GET# COMMAND * 
* 
Command syntax: GET# file number, variable ig 
* 
This routine will skip the token for '#' and gets * 
the logical file number and places it in the channel * 
at location ($15). The routine then falls through * 
to the standard GET routine. 7 
* 
a a a a a a * 
$0380 ;Skip # char. and get the logical file number 
S87F4 ;Get the byte value for the character 
#',' ;Check to see if it's a comma and if it is, then 
S795E ;Skip it and get the variable, if there was 
$15 ;No comma, then 'SYNTAX ERROR', 
;If it is a comma then save the file # 
S90FD ;Set up the file for input 
ee ee eee * 
* 
STANDARD GET COMMAND * 
* 
This routine puts a delimiter of $00 at $0201 which * 
is one byte after where the value that is received x 
by the GET or the GETKEY routines will be stored. * 
This is the reason why you can only enter one “ 
character in response to a GET or GETKEY command. * 
* 
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5635: LDX #1 ;Set the pointer to the start of the input 
5637: LDY #2 ;Buffer-1 ($0201) 

5639: LDA #0 ;Set the delimiter up for the GET 

563B: STA $0201 ;Command 

563E: LDA #$40 ;Load the accumulator with the flag for GET 
5640: JSR S$56B2 ;Set the flag and read in the information 
5643: LDX $15 ;Get the current input device 

5645: BNE S565A ;If not the keyboard (0), make it the keyboard 
5647: RTS 


KKKKKEKKKKKKKEKKKEKKKEEKKEKKKKEKKEKKKEKKKKKKKKEKKEKKKEKKKKKEKKKKEKKKK 


BASIC INPUT# COMMAND 


Command syntax: INPUT# file number, variable 


+ + + &€ + 


* 
* 
* 
* 
* 
* This routine takes the ASCII value of the character 
* following the pound sign, converts it to integer for-* 
* mat, and puts the value in location $15 to be used as* 
* the current input file number. The routine then opens* 
* the file for input by calling the BASIC CHKIN routine* 
* and then calling the standard INPUT routine to read * 
* in the characters until a carriage return has been * 
* found. The routine then resets the current input file* 
* 
* 
* 


number to the default value of SOO. * 
* 


KKEKKKKKKKKKEK KKK KKK KKK KK KK KKK KEKKKKEKKEKKKEKKKEKKKEKKKKKKKEEKK 


5648: JSR S87F4 ;Convert ASCII to numeric and place it in X-reg. 
564B: LDA ae ;Check to see if it's a comma 

564D: JSR S$795E ;If it is, then skip it, if not, ‘SYNTAX ERROR! 
5650: STX $15 ;Save as the current CHKIN device 

5652: JSR S90FD ;Set the file up for input 

5655: JSR $5671 ;Input without text such as INPUT#3,AS$,B$ 

5658: LDA $15 ,;USELESS INSTRUCTION - HAS NO EFFECT OR USE! 
565A: JSR $926F ;Restore system to default I/O devices 0 and 3 
565D: LDX #0 ;Make the keyboard the current input device 
565F: STX $15 ;For screen prompting 

5661: RTS ;Exit 


KKEKEKKEKKKEKEKKEKK KKK KKK KKK KK KKK KKKK KK KKK KKEKKKEKEKKKKEKKKKKKKKK 


* . * 
* BASIC INPUT COMMAND * 
* * 
*Command syntax:INPUT ["text";] variable, [variable etc] * 
* * 
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5662: 
5664: 
5666: 


5669; 
566B: 
566E: 
5671: 
5674: 
56763 
5679; 
567C;: 
567E3 
5680: 
5683: 
5685; 
5687; 
568A; 
568D: 
5690: 
5692: 
56943 
5696: 
5699: 


CMP 
BNE 
JSR 


LDA 
JSR 
JSR 
JSR 
LDA 
STA 
JSR 
LDA 
BEQ 
JSR 
AND 
BEQ 
JSR 
JMP 
LDA 
BNE 
LDA 
BNE 
JSR 
JMP 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


This routine will check to see if there is any text 
to be printed and if there is, then it prints the 
text and checks to make sure that a semicolon 


follows. 
"SYNTAX 
valid variable, 
set the flag for INPUT. 


If there is not a semicolon, 
ERROR! ., 


then it is a 


then this routine will call S56BO to 
The routine then falls 


through to the rest of the READ routine. 


# rime 
$5671 
$7913 


#1; 
$795E 
SSSES 
$84D9 
#',' 
SO1FF 
$569C 
$15 
$568D 
$9251 
#2 
$568D 
$5658 
$528F 
$0200 
$56BO 
$15 
$5679 
$52A2 
$5292 


* 
* 
* 
* 
If there is a semicolon and a . 
* 
* 
* 
* 
* 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKEKKKKKKKKKKKKKKEKKEKK 


;Is there a quote mark after token for input? 
;Branch if there is not one. (No text to print) 
;There is a quote mark, so set TXTPTR to point 
;To the address of the string. 

;Is there a semicolon after the string? 

;If not then 'SYNTAX ERROR’ 
;Print the string to the screen 
;Are we in direct mode, If so, 
;Comma 

;Place in INPUT buffer 

;Print the prompt and get the input 

;Get the current input device and branch if it's 
;The keyboard. If not check ST 

;Read ST if the input is other than the keyboard 
;Time out on RS-232 or time out of 64ms? 

;No, Then branch 

;Time out has occured so close I/O channels 
;Move the TXTPTR to the end of the statement 
;Get the character 

;Branch if there is a character there 

;Get the current input device 

;Branch if it's not the keyboard 

;Search for a colon 

;Increment TXTPTR to the byte after the colon 


"SYNTAX ERROR' 


KKKKKKKKKKKKEKKKKKKKEKKKKKKKEKKEKEKEKEKEKKKKKEKKEKKKKKKKKKEKKKKKKKKEK 


+ £ + F 


This routine checks if the current input device is 
the keyboard and if it is, the routine prints a 
question mark and a space before getting an input. 
If the input device is not the keyboard, then the 
routine will accept input until a carriage return is 
received. 


+ + + + + F 
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If this routine is entered at $56A6, then no * 
question mark or space will be printed before * 
accepting an input. The input is stored starting * 
at $0200 and a zero is put at the end of the input. * 
* 
* 


t+ + + F OF OF 


KAKEKKKKKKKKKKKKKKKKKKKKKEKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


569C: LDA $15 ;Get the current input device 

569E: BNE $56A6 ;Branch if it's not the keyboard 

56A0: JSR S560A ;If it is the keyboard, print a question mark 
56A3: JSR $5604 ;Print a space after the question mark 

56A6: JMP S4F93 ;Get input line and store it in $0200 until a 


;Carriage return has been entered 
KKKKKKKKKKKKKKKKEKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
* * 
* BASIC READ COMMAND * 
* * 
* Command syntax: READ variable * 
* * 
* The READ routine will get the pointer to the next - 
* DATA element from $43, $44 (DATPTR). This is the * 
* address of the next DATA item. The flag is then set * 
* * 
* * 
* * 
* * 


for READ and the routine falls through to the 
routine below. 


KKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


56A9: LDX $43 ;Get the pointers to next DATA element 
56AB: LDY $44 


56AD: LDA #598 ;Flag for READ 
56AF: .BYTE $2C ;Mask to fall through to $56B2 


* Enter this routine here to set the flag for INPUT. 
* 


56B0: LDA #0 ;Flag for INPUT 
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56B2: 


56B4: 
56B6: 
56B8: 


56BB: 
56BD: 
56BF: 
56Cl1: 
56C3; 
56C5;: 
56C7: 
56C9:; 
56CA;: 
56CC: 
56CF: 
56D1: 
56D3: 
56D5: 
56D7: 
56D9: 
S6DB: 
S6DE: 
56DF: 


56E1: 
56E3; 
56E6: 
56E9;: 
5S6EB: 
56ED: 


+ + * 


+ + +  * 


This routine is used by the INPUT, READ, GET, and 
GETKEY routines. 


+ + + 


$13 ;Save flag for input type: 
;SOO=INPUT, $40=GET, $98=READ 
$45 ;Save the current DATA element address 
$46 
STAAF ;Check for a variable after the READ command, 
;If not found, then create it 
$4B ;Save its location 
SAC 
#1 ; Index pointer 
$3D,X ;Save the TXTPTR to 
$4D,X 7$4D, S4E 
$45,X ;And put the data address 
$3D,X ;into TXTPTR 
;Decrement the index pointer 
$56C1 ;Not done; branch until loop is executed twice 
$0386 ;Get a character from BASIC text 
$5702 ;Increment BASIC text pointer and get next char. 
$13 ;Check for the type of input 
S56EF ;Is it the flag for GET? If not, then branch 
$77 ;Get the character following the GET command 
#SF9 ;Is it the token for KEY? 
S56E3 ;No, then branch 
$9109 ;Get a byte from current input device (GETIN) 
;Save it in the X register 
S56DB ;If it is equal to zero, then loop until 
;A key is pressed 
S56E6 ;If the value is not zero, then branch 
$9109 ;Get a byte from current input device (GETIN) 
$0200 ;Save it to the input buffer 
#SFF ;Address - 1 of the 
#S01 ;Input buffer 
SS6FE ;Unconditional branch 
a ee a ee a a a en * 
* 
This routine INPUTs data from the keyboard or READs * 
data from the BASIC text. The routine stores the re- * 
sult into the variable. * 
* 
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56EF; 
56F1: 
56F 4; 
56F6: 
56F8: 
56FB: 


56FE: 
5700: 
5702: 
5705; 
5707; 
5709: 
570B: 
570D: 
570E: 
5710: 
5712: 
5714; 


5716; 
5718: 
ST1A: 
aILCs 
S7T1E: 
5720: 
DIiz22% 
5723; 
57253 
5727: 
5729; 
572B: 
572D: 
572E: 
SI313 
57343 
DIST: 


BPL 
JMP 
LDA 
BNE 
JSR 
JSR 


STX 
STY 
JSR 
BIT 
BPL 
BIT 
BVC 
INX 
STX 
LDA 
STA 
BEQ 


STA 
CMP 
BEQ 
LDA 
STA 
LDA 
CLC 
STA 
LDA 
LDY 
ADC 
BCC 
INY 
JSR 
JSR 
JSR 
JMP 


+ + € & 


This routine is used if the input type is INPUT or 
READ to check for 
the accumulato holds the value to be tested. 


;Branch if it is the flag for input 

;Search for the next data line 

;Check the current input device 

;If it is not the keyboard, then print a space 
;If it is the keyboard, print a question mark 
;Print a question mark and a space and get INPUT 
;from the keyboard. After INPUT is done, place 
s;the delimiter ($00) at the end of the INPUT. 
;Save the address to the input buffer 

;In TXTPTR (SO1FF) 

;Get the next character 

;Is it a string (SFF), or numeric ($00) 
;Branch if it is numeric 

;Check the GET flag ($40) 

;If not there, then branch 

;LSB + 1 

;Save in TXTPTR 


;Clear the search character 
;Unconditional branch 


"REDO FROM START' errors. On entry 


+ * * & * 


;Save the value 

;Is it a quote? 

;If it is, then skip 
;Value for a colon (3) 
;Save it 

;Value for a comma (,) 


;Save it 

;Get TXTPTR LSB 

,;Get TXTPTR MSB 

;Add the carry bit, if any 

;If the carry is clear, then skip 

s;Increment the MSB 

;Set up the string and allocate the space for it 
;Save the string pointer as TXTPTR 

;Assign the value to the string 

;Check to see if there is another variable to 


;Process as in INPUT AS,BS...if so, restart loop 
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573A; 
573C;: 
573F: 
5741: 
5744; 
57473 
57493 
574B: 
574D: 
57T4F: 
575k 
5753: 
5755 


5757: 
5759: 
575B: 
575D3 


LDX 
JSR 
LDA 
JSR 
JSR 
BEQ 
CMP 


KKK K KKK KKK KKKKKKKKKKKKKKKKKKKK KKK KKK KK KKKKKKKKKK KK KK KKK KK 


This routine assigns a numeric or floating point 
number (depending on the INTFLG) to the variable and 
then checks the last character of the input and if 
it is not the end of the input flag #$00 it restarts 
the loop to process the next variable. 


+ + + OF F 
+ + + + + F 


kakkkkkKkKkkKeKkKkkkekkkkKkkkkKeKKeKKK KKK KK KKKKKKKKKKKKKKKKKKkkK KKK 


BEQ. 


LDA 
BEQ 
BMI 
LDX 
BNE 


LDX 
BNE 
LDA 
BEQ 


#0 

$8D22 ;Change ASCII to floating point number 

$10 ;Get the INTFLG 

$53E3 ;Assign the value to the variable 

$0386 ;Get the last character 

$5784 ;If equal to zero, then branch 

#$2C ;Is it a comma? 

$5784 7;Yes, then branch 

$13 ;Get the flag for INPUT, GET, or READ 

$575B sIf it is zero then it's INPUT, branch 

$5757 ;Branch, if it is READ 

$15 ;Screen/keyboard current input/output? 

SS75F ;No, then 'FILE DATA’ error 
Keo oe ee a eS Se See ae Se ee eee ee ee eee ee ee ae ae a ee ee Se ee Se * 
* * 
* TYPMIST * 
* * 
* TYPe MISmatch Text is 
* * 
* This routine will display the error message 'TYPE * 
* MISMATCH' and then fall through to the routine * 
* below. * 
* * 
mee ee ee ee ew ee ee ew eee we we we we ww ww ww we ww ww ww * 

#22 ;'TYPE MISMATCH’ error 

$5761 ;Jump to the error message handler 

$15 ;Screen/keyboard current input/output? 

$5764 7;Yes, then 'REDO FROM START! error 
Pe ce ce ec ee ee ee ee ae ae a we ee a es ee a = = * 
* * 
. FILEDAT * 
* * 
* FILE DAta Text is 
* * 
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This routine will display the error message 'FILE 
DATA' and then fall through to the routine below. 


Ke ee a ee ee ee ee a ee oe a a a a = a = = = = = ee = = * 

575F: LDX #24 ;'FILE DATA' error 

5761: JMP $4D3C ;Jump to error message routine 
Yee ee ee ee ee ae a es a = a we a i eo ee * 
* * 
* REDOT * 
* * 
* REDO from start Text ~ 
* * 
* This routine will display the error message 'REDO * 
* FROM START'then fall through to the routine below. ms 
* * 
Foe a a a ee a a we ee ee a a a ee a a a oo ee we ee ee ee ee ee ee ee * 

5764; JSR $9281 ;Print the following text 

9767: TXT '?redo from start' 

5777: .BYTE $0D,$00 ;<CR>,Delimiter 


KKKKKKKKKKK KKK KE KKK KKK KKK KKKEKEKKKKKKKKKK KKK KKKKKKKKKK 


* * 
* This routine saves the line number to CONTinue to in * 
* TXTPTR and exits. This routine is usually used to * 
* re-execute the INPUT line after a 'REDO FROM START’ * 
* error message has been generated. * 
* * 
* * 


KKK KKK KKK KKK KKK KKK IKK KKK KKK KKEKKKKKKKKKKKEKKKKK KKK KKK 


5779: LDA $1202 ;Get the LSB 

577C: LDY $1203 ;And the MSB of the line number for CONT 
577F: STA $3D ;And save it in TXTPTR 

5781: STY $3E 

5783: RTS ;Exit 


KHKKIKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKK KKK KKKK 


* * 
* This routine will get the input buffer address and * 
* save it in INPTR. It then restores TXTPTR to its * 
* original address and checks for an end of line flag. * 
* * 
* * 


KKEKKKK KKK KKK KKK KKK KEKE KKK KKKKEKKKKKEKKKKKKKKK KK KKK KKKEK 


5784: LDX #$01 
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5786: 
5788: 
578A; 
578C; 
578E; 
578F: 
5791: 
57943 
5796: 


5799: 
579C;3 
579E: 
57A0; 
57A2: 
57A4: 
57A6;3 
57A8: 


57A9: 
57AB: 
57AD: 
57B0; 
57B2: 
57B4: 


LDA 
STA 
LDA 
STA 
DEX 
BPL 
JSR 
BEQ 
JSR 


JMP 
LDA 
LDY 
LDX 
BPL 
STA 
STY 
RTS 


LDY 
LDA 
JSR 
BEQ 
LDA 
BNE 


$3D,X 
$45,X 
$4D,X 
$3D,X 


$5786 
$0386 
$579C 
$795C 


$56B8 
$45 
$46 
$13 
$57A9 
$43 
$44 


;Get the address that TXTPTR is pointing to 
;And save it as the INPTR (input buffer address) 
;Get the old TXTPTR address and 

;Store it to TXTPTR 

;Loop until 

;Two bytes are done 

;Get current char. that TXTPTR is pointing to 
;If it is equal to zero, then branch 

;Check for a comma and 

;If it is not there, 'SYNTAX ERROR’ 

;Return to the loop 

;Get the vector pointer to the DATA address 


;Get the flag for INPUT, GET, and READ 

;If it is not the flag for READ, then branch 
;Save as the current DATA address 

;And 

;Exit the routine 


KHKKKKKEKKKEKKKKKKKKKKKEKKKKKKK KKK KKKKKKKKKKKKK KK KKKKKK KK KKK 


This routine will check the first character from 
INPTR and if it is not the value $00, the routine 
will check channel $15 for the current I/O 


(keyboard/screen), the 'EXTRA IGNORED' message is 


displayed. 


* * 
* * 
* * 
* * 
* configuration. If it is the default configuration * 
* * 
* * 
* * 
* * 


KAKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKKKRKKKK 


#0 
#545 
$SO39F 
$57C9 
$15 
$57C9 

ee ee 

* 

* 

* 

* 

* 

* 

* 

x 


This routine prints the 'EXTRA IGNORED' error 
message to the screen and exits the routine. 


;Get the low byte of vector to the INPUT buffer 
;Get a byte from the input buffer 
;None there, then exit 


;If the current input device 
;Is not the keyboard, then exit 


EXIGNT 


EXtra IGNored Text 


+ + + +  F F 
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57B6: 
57B9: 
OICTs 
57C9: 


57CA: 


57CD: 
57CE: 
57CF: 
57D1: 
57D3: 
57D4: 
57D7;: 
57D9:3 
57DA: 
57DD: 
57DF: 
57E0: 
57E3: 
57E4;3 
57E6: 
57E9; 
57EC3 
57ED: 
57EF: 
57F1: 


JSR $9281 ;Print the following text and exit 
TXT '?extra ignored’ 

~.BYTE S$OD,$00 ;<CR>, end of text marker 

RTS ;Exit 


JSR 


INY 
TAX 
BNE 
LDX 
INY 
JSR 
BEQ 
INY 
JSR 
STA 
INY 
JSR 
INY 
STA 
JSR 
JSR 
TAX 
CPX 
BNE 
JMP 


KK KKK KKK KKK KKK KKK KKK KKKEKIEKKKKKKKKKKKKKEKKKKKKKKKKKKKK 


* * 
* This routine will search until it finds the next * 
* DATA line. It then updates TXTPTR to point to that * 
* line. If no DATA is found, then the routine * 
* generates an 'OUT OF DATA’ error message and exits. * 
* * 
* * 


KAKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKK 


S$52A2 sSearch for a colon or a value of $00 and return 
;With the offset in the Y register 


;Increment the offset by one 

;Transfer the value into the X register 
S5S7TE6 ;If the value found was $00, then branch 
#S0D ;For ‘OUT OF DATA' error 

;Offset two bytes past the colon 
$03C9 ;Get the byte 
$5819 ;Generate error if a value of $00 

;Increment the Y register to the next byte 
$03C9 ;Get the next byte 
$41 ;Save it as the current DATA line number LSB 
$03C9 ;Get the next byte 
$42 ;And save it as the current DATA line number MSB 
$5292 ;Update TXTPTR 
$0386 ;Get a byte 

;Put it into the X register 
#$83 ;Is it the token for DATA 
SS7CA ;If not, then keep looping 
$5702 ;If it is, then branch back to READ the data 
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57F4: 
57F6: 
57F8: 
57FA: 
STFC: 
STFF: 
5802: 
5804: 
5806: 
5809: 
580C: 
580E: 
5810: 
5812: 
5815: 
5817: 
5819; 
581C: 


581F:; 
5821: 
5822: 
5824: 
5826: 
5828; 
5829: 


BNE 
LDY 
BNE 
LDY 
JSR 
JSR 
CMP 
BNE 
JSR 
JSR 
STA 
STY 
LDA 
JSR 
BEQ 
LDX 
JMP 
JSR 


LDA 
CLC 
ADC 
LDY 
BCC 
INY 
JSR 


KK KKK KKK KKK KEK KKKKKKKKKEKEKKKKKKKKKKEKEKKKEKKKKKKKKKKKEKK 


BASIC NEXT COMMAND 
Command syntax: NEXT [variable] 


* * 
* * 
* * 
* * 
* * 
* This routine will search the pseudo stack for the * 
* next occurrence of 'FOR' and take the starting ~ 
* variable and add the step value to the FOR variable. * 
* The routine then compares the result to the 'TO' * 
* value and if the loop is completed, the stack * 
* entries that 'FOR' used will be removed from the * 
* pseudo stack. If the loop is not finished, then the * 
* pointers to the current statement and TXTPTR are bs 
* updated which will cause the program to continue at * 
* the next statement after the 'FOR' statement. = 
* * 
* * 


KKK KKK KKK KKK KKK KKKEKKEKKKEKKKEKEKKKKKKKKKKEKKKKKKKKKKEKK 


$5809 s;If there is a variable after 'NEXT', branch 
#SFF ;Flag for no variable after 'NEXT' statement 
S580E ;Branch 
#$12 ;For 18 bytes 
$5059 ;Add the value to the pseudo stack pointer 
$0386 ;Get the variable after the 'NEXT' token 
5 ;Is there a comma? 
$5877 ;No, then no more variables 
$0380 ;Get next variable after the comma 
S7AAF ;Look for the variable, if not found, create it 
$4B ;Save the variable address 
$4C . 
#S81 ;Token for 'FOR' 
S4FAA ;Search for 'FOR' on the stack 
$581C ;Branch if found 
#10 ;If not, then 
$4D3C ;'NEXT WITHOUT FOR' error 
$5050 ;Transfer the pseudo stack pointer from $3F, $40 
:To $7D, STE 
$3F ;Add three 
;To the 
#$03 ;Stack pointer LSB to point to the 'STEP' value 
$40 ;Get the stack pointer MSB 
$5829 ;If there is no overflow, then skip 
;If there is an overflow, increment MSB by one 
S8BD4 ;Transfer the 'STEP' value to the floating 


;Point accumulator 
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582C: 


582E: 
5830: 
5832: 


5834; 
5836: 
5837; 
5838; 


5839: 
583B: 
583C:; 
583D: 
583E: 


5841; 
5842: 
5843; 
5844; 
5845: 
5848: 
584B: 
584D: 
S84E: 
5850: 
5852: 
5854: 
53855; 
5858: 


585B: 
585D: 
585E; 
5860: 
5862; 


5864; 
58663 
5868: 


5869; 
586B: 
586D: 


LDY 


LDA 
STA 
LDY 


LDA 
PHA 
TAX 
INY 


LDA 
PHA 
TAY 
TXA 
JSR 


PLA 
TAY 
PLA 
TAX 
STA 
JSR 
LDA 
CLC 
ADC 
LDY 
BCC 
INY 
STA 
JSR 


LDY 
SEC 
SBC 
BEQ 
LDY 


LDA 
STA 


DEY 


LDA 
STA 
DEY 


#8 


(S3F),Y 


$68 
#$01 


(S3F),Y 


(S3F),Y 


$8845 


SFFO4 
$8C00 
$3F 


#$09 
$40 
$5855 
SFFO3 
$8C87 


#508 


($3F),Y 


SS7FA 
#$11 


(S3F),Y 


$3D 


(S3F),Y 


$3E 


;Pointer to the sign of the 'STEP! 
; ($00 = positive, SFF = negative) 
;Get the sign of the 'STEP' value 
;Save it 
;Pointer to 
;Variable 
;Get the LSB 
;Save it on to the stack 

;And in to the X register 

;Index to the MSB of the address to the 'FOR' 
;Variable 

;Get the MSB 

;Save it on to the stack 

;And in to the Y register 

;Move the LSB to the accumulator 

;Transfer 'FOR' variable value to floating point 
;Accumulator 

;Get the MSB back 

;Put it into the Y register 

;Get the LSB back 

;Put it into the X register 

;Enable RAM BANK 1, BASIC, KERNAL, character ROM 
;Transfer floating point accumulator to stack 
;Add nine 

;To the 

;Stack pointer LSB to get to the 'TO' value 

;If there is no overflow, then skip 

;If there is an overflow, then increment 

;The stack pointer MSB by one 

;Enable BANK 14 

;Compare 'STEP' value to 'TO' value 

;SFF = STEP larger,$01 = STEP smaller,$00 = STEP 
;Equal 

;Pointer to 'STEP'’ value 

;Compares floating point accumulator to the end 
;Value of the loop 

;If equal, then we are done, so branch 

;Pointer to the LSB of the address of the first 
;Statement in the loop 

;Get the LSB 

;Save it to TXTPTR LSB 

;Decrement the index to the MSB of the first 
;sStatement 

;Get the MSB 

;Save it to TXTPTR MSB 

;Decrement the index to MSB of the line number 
;Of the first statement 


LSB of the address to the 'FOR' 
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586E: 
5870: 
5872: 


5873: 
5875: 
5877: 


5878: 


587B: 
587C: 
587F: 
5882: 
5884: 


LDA 
STA 
DEY 


LDA 
STA 
RTS 


JSR 


TAX 
JSR 
JSR 
BNE 
RTS 


(S3F),Y 
$3C 
(S3F),Y 
$3B 

is aie ee et 

x 

x 

* 

x 

* 

x 

* 

* 

x 

* 

fee rear e ene ea 
$795C 


The DIM command will reenter here if there is more 
then one variable to dimension such as: 
DIM A(100) ,B(100) ,C (100) 
After the DIM command has processed the A(100) 

it will reenter here to process the ,B(100) and the 
,C(100). When this entry point is used the ACC. will 
hold the character ',' and if it does not a 

"SYNTAX ERROR' will result. 


;Get the MSB of the line number 

;Save it to the CURLIN MSB 

;Decrement the index to the LSB of the line 
sNumber of the first statement 

;Get the LSB of the line number 

;Save it to the CURLIN LSB 

;Exit 


+ + + + € FF + F HF F 


;Checks on comma if found, then skip it and if 
;Not it will produce a 'SYNTAX ERROR' message 


KRKEKKKKKKKKKKKKKK KKH KKKKKKKKKEKKKEKKKKKEKKKEKKKKEKKEKKKKKKKKKKK 


+ + + + + + F F F OF F F OF KF FF 


assigned. 


BASIC DIM COMMAND 


Command syntax: DIM variable (subscripts) 


* 
* 
* 
* 
* 
This routine will call PTRGET ($7AB4) for each * 
variable that is DIMensioned. If an array element * 
is defined BEFORE a DIM statement, the system will * 
set the default value DIM value of 10 to be * 
For instance, if you defined C(1)=12 * 

before your DIM statements, then the system would * 
automatically perform a DIM C(10). Just as a x 
reminder, when you DIMension an array, remember the * 
system considers C(0) as a legal entry. * 
* 

* 


KKKKKKKKKKKKKKKEKKKKEKKKKEKKKKKEKKKEKKKKKKKKKKKKKKKK KKK KKKKKEK 


$7AB4 
$0386 
$5878 


;Place variable name in X-register. 
;Dimension variable 

7;Get last character 

;If one there, then process the next variable 
;Exit 


197 


Abacus Software C-128 BASIC 7.0 Internals 


5885: 


5888: 
588A: 
588C; 
588E: 
5890: 
5893: 
5895; 
5898: 
589A: 
589C; 
589F; 
58A1: 
58A3: 
58A6: 
58A8:; 


JSR 


LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
BCC 
STX 
JSR 
BCC 
STX 
JSR 
BCC 
STX 





KAKKKEKKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KK KKK KKK KKK KK KKK 


BASIC SYS COMMAND 
Command syntax: SYS address [,A][,B][,C][,D] 
Optional parameters: 
accumulator 
X register 


Y register 
Status register 


0 OD YP 
lt 


EXAMPLE: SYS 32800,123,45,6 


NOTE: When you use the SYS command, you will need 
to specify which bank number you wish to SYS 
to such as BANK1:SYS32768. This particular 
SYS will call a machine language routine in 
RAM BANK 1 with the address of 32768. 

On power up the default BANK is 15 


NOTE: The SYS command can no longer pass string 
parameters onto a machine language routine 
like you could with the C-64 as this routine 
has been changed for the 128. 


+ * &€ € & & & HF HH HF HF FE FF FF FF FF F FF F FF FE FEF F HF F 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KaKKKKKKKKKKKKKKK KKK KKK KKK KKKKKKKKKKKKKK KKK KKK KKK KKK KKKKK 


$8812 ;Evaluate number and get address of the ‘SYS! 
;And store the LSB/MSB to $16, $17 

$16 ;Get the MSB of the address to 'SYS' to 

$04 ;Save the MSB 

$17 ;Get the LSB of the address to 'SYS' to 

$03 ;Save the LSB 

$03D5 ;Get the BANK number for the 'SYS' to ‘goto! 

$02 ;Save current BANK number 

S9E1E ;Puts value found after comma into X register 

$589C ;Branch if comma and/or value not found 

$06 ;Save specified accumulator value 

S9E1E ;Puts value found after comma into X register 

$58A3 ;Branch if comma and/or value not found 

$07 ;Save specified X register value 

S9E1E ;Puts value found after comma into X register 

SS8AA ;Branch if comma and/or value not found 

$08 ;Save specified Y register value 
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58AA: JSR S9OEIE ;Puts value found after comma into X register 
58AD: BCC $58B1 ;Branch if comma and/or value not found 

S8AF: STX $05 ;Save specified SR register value 

58Bl: JMP SFF6E ;JSRFAR-JSR to any bank, return to calling bank 


KHKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KR KKK Kk KKK 


BASIC TRACE ON COMMAND 
Command syntax: TRON 


* 
* 
* 
* 
* 
This routine places the flag for the TRace ON mode * 
in location $116F (TRCFLG) to inform the interpreter * 
that it can begin printing the line number currently * 
being executed to the screen in brackets. % 
* 
* 
* 
* 


EXAMPLE: [10] [20] 


+ + + & + FF SF FF F FF HF 


wk kkKkKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KK KKK K KKK 


58B4: LDA #SFF 7;Flag for trace mode on 
58B6: .BYTE $2C ;Mask to fall thru to $58B9 


KkKkkKkKkKkkKk KKK KKK KKK KK KK KK KKK KKKKKKKKKKKKKRKKKKKKKKKKKKKKKKKKK 
BASIC TRACE OFF COMMAND 
Command syntax: TROFF 
location $116F (TRCFLG) to inform the interpreter 


not to print the line number currently being 


* * 
* * 
* * 
* * 
* * 
* This routine places the flag for TRace OFF in * 
* * 
* * 
* executed. . 
* * 
* * 


KKK KKK KKK KK KKHKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


58B7: LDA #0 ;Flag for trace mode off 
58B9: STA $116F ;Trace mode 
58BC;: RTS sExit 
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S8BD: 
S8BF: 
58C1: 
58C4: 
58C6: 
58C8: 
58CA: 


58CD: 
58CF;: 
58D1: 
58D3: 


58D5: 
58D7: 
58DA: 
58DC: 
58DE: 
58E0: 
58E1:; 
58E3: 
58E6: 


LDA 
STA 
JSR 
BEQ 
CMP 
BEQ 
JSR 


STA 
STY 
LDA 
BNE 


LDY 
LDA 
CPY 
BNE 
LDA 
TAY 
LDA 
JSR 
LDA 


KKEKKEKKKKKKKKK KKK KKK KEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


BASIC RREG COMMAND 
Command syntax: RREG A [,B] [,C] [,D] 


This command is used to read the value of the 8502 
registers after a SYS to a machine language program. 


Optional parameters: 

accumulator 

= X register 

Y register 
status register 


00 Ww Y 
I 


NOTE: The variables can be any name, but must be 
numeric. 


+ + + + © &€ € &€ + FF FF FF FF FF FF HF F 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* With this command it now makes it easer to pass 
* numerical data back to BASIC from machine language by* 
* just loading the values to be passed into the * 
* registers and doing an RTS. i 
* * 
* 


KKEKKKKKKKKKKKKKEKKKKEKKEKKKKEKKKKKKKEKKKKEKKKKKKKKKK KKK KKKKEK 


#0 ;Zero out the index pointer and 
SOD ;Save it in COUNT 
$0386 ;Get the character after the command 
$58FD ;If there is none, then exit routine 
ae ;Compare character to comma 
SS8EB ;If it is a comma, then skip it 
S7AAF ;Search for variable and create var. in memory 
;if necessary 
S4B ;Save the address of the variable descriptor 
S4C ;Which is located in RAM BANK 1 
SOF ;Check VALTYP to be sure the variable is numeric 
SS8FE ;If it's the flag for string (S$FF), then branch 
;To produce a 'TYPE MISMATCH' error 
$OD ;Get the counter 
$0006,Y ;Get the register pointed to by the counter 
#$03 ;See if we need to get the Status Register 
S58E0 ;No, then skip 
$05 ;Get Status Register value 
;Transfer the value to the Y register as the LSB 
#0 ;Put a zero in the accumulator for the MSB 
$793C ;Convert the value to floating point notation 
$10 ;Get the flag for integer 
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58E8; 
S8EB: 
58ED: 
58EF: 
58F1: 
58F3; 
58F6; 
58F8; 
5S8FB: 
58FD: 
58FE: 


5901: 
5904; 


5907: 
5909: 
590B: 
590E: 


5911; 
5912: 


JSR 
INC 
LDA 
CMP 
BCS 
JSR 
BEQ 
JSR 
BNE 
RTS 
JMP 


JSR 
JSR 


STA 
STY 
JSR 


JSR 


DEX 
STX 


$53E3 ;And transfer the value to the variable 
SOD ;Increment the counter by one 
$OD 
#$04 ;See if counter is at maximum for 4 registers 
S58FD ;Yes, then exit the routine 
$0386 ;Get the last accessed character 
S58FD ;If it is a zero or a colon, exit 
$0380 ;Get the next character 
$58C1 s;And continue 
;Exit 
S$77E7 ;'TYPE MISMATCH!’ error message 


KEKE KKK KKK KKK KKK KKK KKK KKEKEKKKKKKKKKKKKKKKKKKRKKRKKKKEK 


BASIC MIDS COMMAND 
Function syntax: MIDS (PAR1, PAR2[, PAR3]) = PAR4 
Where: PAR1 = The existing string you wish to 
insert PAR4 into. 
PAR2 = The number of characters from the 


* 

* 

* 

* 

* 

* 

* 

* 
left of PAR1 where you wish to * 

insert PAR4. * 

PAR3 = The number of characters from the * 
left of PAR4 you wish to place in * 

PARI. * 
The existing string you wish to * 
have inserted into PARI * 
* 

* 

* 

* 

* 

* 

* 


PAR4 


EXAMPLE: AS="WHAT'S THIS":BS="THAT":MIDS (AS, 8, 4) =BS 


NOTE: AS would equal "WHAT'S THAT" in this example. 
Also this command's not available on the C-64. 


+ + € + + €  F F FF F F FF F F F F F F F 


KEKE KKKKKKKKKKKKEKK KKK KKK KKKKKKKKEKKKKKKKEKKKKKKKKKKEKKKKKK 


$7959 ;Search for opening parenthesis '(' 

$7AAF ;Search for variable and create the variable in 
;Memory if necessary 

S4B ;Save the LSB 

$S4C ;And MSB of the address of the variable 

$77DD s;Make sure the variable is a string, if not, 
;Then 'TYPE MISMATCH' error 

$8809 ;Search for a comma, numeric range, and 
;Convert value to an integer 
;Value - 1 

$78 ;Save the starting position 
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5914: 
5916: 
5918: 


5S91B: 
S91C; 
591E; 
5920: 
29235 
5925; 
5928; 
592B: 


592E3 
5930; 
5932; 
9935 
5938; 
593B: 
593E: 
593F; 
59413; 
5942; 
5944; 
5946: 
5948; 
594A: 
594C: 
594E; 
5950: 
5952; 
5954: 
5955; 
5957: 
5958: 


595A: 
595C; 
595E: 
5960: 
5962: 
5964; 
5966: 
5969: 
596B: 
596C: 
596D: 


CMP 
BEO 
JSR 


. BYTE 
LDX 
STX 
JSR 
LDA 
JSR 
JSR 
JSR 


LDY 
LDA 
JSR 
STA 
JSR 
STA 
DEY 
BPL 
SEC 
LDA 
SBC 
STA 
BCS 
DEC 
LDA 
CMP 
BCC 
LDA 
TAX 
BEQ 
CLC 
ADC 


BCS 
CMP 
BCC 
BNE 
LDY 
LDA 
JSR 
STA 
INY 
DEX 
BNE 


#4)! 
$591C 
$8809 


$2C 
#SFF 
$77 
$7956 
#$B2 
$795E 
S7T7EF 
$77DD 


#502 
#S54B 
$S0O3AB 


$005D,Y 


S42E7 


$0060,Y 


$5930 


$61 
$78 
$61 
$594C 
$62 
$77 
$60 
$5954 
$60 


$596F 


$78 


$5972 
$5D 
$5962 
$5972 
$78 
#561 
$03AB 


(SSE) ,Y 


$5964 


;Closing parenthesis 


;Check for comma, numeric range, and convert to 
;Integer (gets the length, optional) 

;Mask to fall through to $591E 

;No second parameter flag 

;Save the second parameter value 

;Check for closing parenthesis ')' 

;Token for ‘=! 

;Search this BASIC line for the token 
;Evaluate expresssion 
;Ensure variable is a string, 
;'TYPE MISMATCH! error 

; Index 

;Pointer to address of string 
;Get MSB of the address of the string 

;Save the MSB 

;Get a byte from the second string's descriptor 
;Save 

;Until five bytes 

;Are finished 

;Set the carry for subtraction 

;Get the LSB of the second string 

;Minus the offset into the first string 

;Store it back 

;Carry set? OK 

;Carry clear, decrement the MSB by one 

;Value of length to concatenate 

;Compare to the length of the second string 
;If less than, then skip 

;Get the length of the second string 

;Transfer it to the X register 

;lf equal to zero, then exit 

;Clear the carry for addition 

;Add length of the second string to the offset 
;Into the first string 

;If overflow, then "ILLEGAL QUANTITY' error 
;Compare to the length of the first string 

;If less than, OK 

; "ILLEGAL QUANTITY' error 

;Get the offset into first string in Y register 
;Pointer to the address of the string 

;Get a byte from the string 

;Store the value in the string 

;Increment to the next byte 

;Decrement the counter 

;Continue 


if not, 
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596F: 
5972: 


5975: 
5978: 


597B: 
597D: 
597F: 
5981: 
5983: 


JMP 
JMP 


JSR 
JSR 


LDA 
STA 
LDA 
STA 
JMP 


$8781 ;FRMEVL (FoRMula EVaLuation) 
$7D28 ;* ILLEGAL QUANTITY' error 


KK KK KKK KKKKKKKKK KKK KKK KKKKKKEKKKKKKKKKK KK KKK KKK KK KKK KKKRKK 


BASIC AUTO COMMAND 
Command syntax: AUTO [increment value] 


* 
* * 
* * 
* * 
* * 
* This routine will set a flag to inform the BASIC * 
* interpreter to begin to automatically number the * 
* BASIC program lines that you are entering, starting * 
* with the next line number that is entered. The * 
* routine will then increment the value of the line * 
* number by the increment value that you specified * 
* after the AUTO command. If the AUTO command is used * 
* without a line increment value, then the AUTO * 
* function is turned off. is 
* * 
* * 


KKK KK KK KKK KKK KKK HHH KKK KKEKHKKKKKEKKKKKKKKKKKKKEKKKKKKKKEKEK 


S84F0 ;Check for DIRECT mode 

S$50A0 ;Convert ASCII offset to two byte integer number 
;In $16, $17 

$16 ;Get the LSB of the offset 

$74 ;Save it 

$17 ;Get the MSB of the offset 

$75 ;Save it 

$4D37 ;Print 'READY' to the screen 
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5986: 
5989; 
598A: 


598C;: 
598F: 
5992; 
5994; 
5996; 


5999; 
599B;: 
599D; 
59A0;: 
59A2: 
59A4: 
59A7; 


59A9; 


LDX 
INX 
BEQ 


LDA 
LDY 
STA 
STY 
JSR 


BCC 
ROR 
JSR 
LDX 
LDA 
JSR 
LSR 
JMP 


kakkkkkk kkk kkk kkk kkk kkk kkk KKK KK KK KK KK KKK KKK KKK KKK KK KKK KKKEK 


* 
* BASIC HELP COMMAND * 
* * 
* Command syntax: HELP * 
* * 
* This routine is for debugging. It will display the * 
* BASIC line that caused an error. It will also denote * 
* the portion of the BASIC line that caused the error * 
* by printing that portion in reversed characters in * 
* the forty column mode and by underlining the * 
* portion that caused the error in the 80-column mode. * 
* * 
* NOTE: The HELP command is not always that accurate. * 
* For an example enter the following: * 
* * 
sed 10 RUN"JUNK", BO,DO,U8 * 
* * 
= Then run the program which will produce an error * 
* because of the ,BO but when you enter HELP you * 
ad will not see anything listed. There are several * 
. bugs with this command, but the problem is with * 
* separate routines which generate the syntax error* 
* message and not with the HELP routine. * 
* * 
kkk kkk kk kK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKKKKKKKKKKKKK KK KKK 


$1208 ;Last error # (ERRNUM) 
;Increment the error number by one 

$59A9 ;If equal to 0, exit (SFF = no error, therefore 
;SFF + 1 = $00) 

$1209 ;Get the LSB 

$120A ;And the MSB of the line number of the error 

$16 ;Save 

$17 ;Them 

$5064 ;Search for the line number that is stored in 
7$16, S17 

$59A9 ;If the line number is not found, then exit 

$55 ;Shift the carry into $55 to set the HELP flag 

$5598 ;Print a carriage return or a linefeed 

$16 ;Get the LSB 

$17 ;And the MSB of the line number 

$5123 ;And LIST that line 

$55 ;Shift the HELP flag out 

$5598 ;And print a carriage return or linefeed and 


,Exit 
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59AC: 
59AE; 
5S9AF: 
59BO; 
59B2: 
59B4; 
59B5:; 


59B8:; 
59BA: 


59BD; 
59BF:; 
o9CIs 
59C3:; 
59C5: 
59C7; 
59C9; 


59CB: 
59CE: 


59CF:; 
59D2:; 
59D5: 
59D8: 


LDX 
TYA 
CLC 
ADC 
BCC 
INX 
CPX 


BNE 
CMP 


BCC 
BEQ 
LSR 
LDA 
BIT 
BPL 
LDA 


JMP 
RTS 


JSR 
JSR 
JSR 
JMP 


KK KKK KKK KKK KKK KKK KKK KKKKKKKEKKEKK KEKE KKK KKKKEKKKKKKKKEKKKKKKEK 


* 
* 
* 
* 
* 
* 
* 


This routine is entered here with the Y register 
containing the offset value of the number of 


that contains the error. 


* 

* 

* 

characters to the part of the BASIC program line * 
* 

* 

* 


362 


$61 
$59B5 


$120F 


$59CE 
$120E 


$59CE 
$59CE 
$55 
#$12 
S$D7 
$59CB 
#$02 


$560C 


KKEKKKKKKKKKKKKKEKKKK KKK KEKKKKKEKKKKKKKKKKKKKKKKKKKKKKKK 


;Get the MSB of the address of the line 
;Transfer the offset to the accumulator 

;Clear the carry for addition 

;Add the offset to the LSB of the line's address 
;No overflow, then skip 

;Overflow, increment the MSB of line's address 
;Is the MSB of current address equal to the MSB 
;Of the address of where the error is 

;If it is not the same, then exit 

;Is the LSB of current address equal to the LSB 
;Of the address of where the error is 

;If it is less than, then exit 

;If it is equal, then exit 

;Shift the HELP flag out 

;For the reverse mode on 

;If we are in the 40 column mode 

;Yes, this is the 40 column mode 

;For the underline mode if we are in the 80 
;Column mode 

;Output the value and exit 

;Exit 


KKEKEK KKK KKK KKK KK KKK KEK KKKKKEKKKKKEKKKEKKEKKKKKKEKK KK KKK KKK 


Command syntax: 


This routine pushes various information onto the 
(see $5A1D) 


stack 


BASIC GOSUB COMMAND 


GOSUB line number 


+ + + + HF 


then calls the GOTO routine below.* 


The routine then jumps to the BASIC interpreter loop.* 


$5A1D 
$0386 
$59DB 
S4AF6 


* 


KKK KKK KKK KK KK KEKE KKKKKEKEKKEKKKKKKKKKKKKKKK KKK KK KKK KK KKK 


;Save the program and BASIC TEXT pointers 
;Get the last character again 

;Do a BASIC GOTO command 

;Jump to the INTERPRETER LOOP 
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59DB: 
59DE: 
59E0; 
59F2: 
59E5;3 
59E6;: 
59E8: 
59EA: 
S9EC: 
59EE: 


59F0: 


S9OF1; 
59F2:; 
59F4; 
59F6: 
59F8:; 
59F93 
59FB: 
59FD: 
5OFF: 


5A02: 
5A04: 
5A06: 
5A08;: 
5AOA;: 


C-128 BASIC 7.0 Internals 


KKKKKEKKKKEKKKKKEKEKKKEKKEKEKKKKKKKEKKKKKEKKKKKKKKKKKEKKKKKKEKKEK 


+ + + + + FF FF FF FF FF FF FF F F F 


BASIC GOTO COMMAND 


Command syntax: GOTO line number 

This routine will start at the current program line 
and scan for the line number that it is supposed to 
'GOTO' to. If the line number is smaller than the 
line number it is on, the routine will begin its 


scan with the first line in the program. 
continue to search until the target line number is 
Then the pointers for the current line 
number and the TXTPTR are updated to point to the 
target line number so that program line will be the 
next to be executed. 


found. 


It will 


t+ + + + £ FF £ FF F FF F F F F HF F 


KEKKKKKKKKKKKKKKKKKKKKKEKKKKEKKEKKKEKKEKKKEKKEKKKEKKKKKKKKKKKKK 


JSR 
LDA 
BEQ 
JSR 
SEC 
LDA 
SBC 
LDA 
SBC 
BCS 


TYA 


SEC 
ADC 
LDX 
BCC 
INX 
BCS 
LDA 
LDX 
JSR 


BCC 
LDA 
SBC 
STA 
LDA 


S50A0 ;Convert ASCII to ADDRESS FORMAT 
SOA ;Valid line number? 
S5SA1A ;No, then 'SYNTAX' error 
$52A5 ;Search for the end of the GOTO command 
;Set the carry flag for subtraction 
$3B ;Subtract the line number we are on 
$16 ;From the line number we are to GOTO 
$3C ;And see if the line number we are to 
$17 ;GOTO is less than the line number we are on 
$59FB ;If it is less than the line number 
;We are on, then branch 
;Place the pointer to the end of the 
;Command in the accumulator 
;Set the carry flag for addition 
$3D ;Add the pointer to the end of the command 
$3E ;To the low byte of the text pointer 
S5SOFF ;If no overflow, then search for the line number 
;Overflow, then increment the high byte by one 
S59FF ;Search for the line number that is in $3D, $3E 
$2D ;Get the address of the 
S2E s;start of BASIC text 
$5068 ;Search for the line number in $16, $17 
sand place its line link in $61, $62 
$5A15 ;If the line number is not found, then ERROR 
$61 ;Get the pointer to address of the line number 
#1 ;Move the pointer back one to 
$3D ;Point to the LSB 
$62 ;of this line's line 
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SA0C;: 
SAOE: 
5A10: 
5A12: 


5A14:; 
5A15; 
5A17: 
S5SA1A: 


5A1D: 
SAF: 
SA223: 
5A24:; 
5A26; 
5A28: 
5A29; 
5A2B: 
5A2D;: 
SA2E: 
5A30; 
5A32: 
5A33; 
5A35: 
5A37: 
5A38; 
5A3A: 
5A3C;3 


SBC 
STA 
BIT 
BPL 


RTS 
LDX 
JMP 
JMP 


LDA 
JSR 
LDY 
LDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 
STA 
RTS 


#0 ;Link and place it 

$3E sin TXTPTR 

S7F ;Make sure we are in the PROGRAM mode 
$5A81 ;If we are in the DIRECT mode, then 


;Put us in the PROGRAM mode 
sExit the routine 


#17 ;"UNDEF'D STATEMENT! error 
$4D3C ;Jump to error message routine 
$796C ; "SYNTAX' error 


KH KKIKHKKHKKHKKK KK KHKKKKKEKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* * 
* This routine places the current TXTPTR to be used * 
* as the return. address, the current line number, and * 
* the token for GOSUB ($8D) into the pseudo stack * 
* in following order: x 
* * 
* BYTE DESCRIPTION LSB/MSB * 
* mee mmm mmm we am ea ee ee * 
* 4 RETURN ADDRESS MSB * 
* 3 RETURN ADDRESS LSB * 
* 2 LINE NUMBER MSB * 
* 1 LINE NUMBER LSB * 
* 0 TOKEN FOR GOSUB ($8D) N/A * 
* * 
KK KK HK KH HHH KH KH KK KKH KKK KK KKKKKKKKKKKKKKKKKEKKKKEKKEKKKKKKKKK 


#5 ;Make sure there is enough room for 5 bytes 
S4FFE ;On the pseudo stack 
#4 ;Set index pointer to point to BYTE 4 
$3E 7;Get TXTPNTR MSB 
(S7D),Y ;Save it as the return address MSB 
;Decrement the index pointer 
$3D ;Get return address LSB 
($7D),Y ;Save it on the stack 
;Decrement the index pointer 
$3C ;Get the current line number MSB 
($7D),Y s;Save it onto the stack 
;Decrement the index pointer 
$3B ;Get the current line number LSB 
($7D),Y ;Save it onto the stack 
;Decrement the index pointer 
#$8D ;BASIC token for GOSUB 
($S7D),Y ;Save it onto the stack 


sExit routine 


207 


Abacus Software C-128 BASIC 7.0 Internals 


5A3D: 
5A40: 
5A42: 
5A44: 
5A47: 
5A4A: 
5A4D: 
5A4F: 
SAS1: 
5A54:;3 
5A57: 
5A59; 
SASC* 
SASF: 


JSR 
CMP 
BNE 
JSR 
JMP 
JSR 
CPX 
BEQ 
JMP 
JSR 
BNE 
JSR 
JMP 
RTS 





KKEKKKKKKKKKKKEKEKKKKEKKEKEKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKK 


* * 
x If the statement 'GOTO' or 'GO TO’ is found, * 
* then this routine will send you to the BASIC * 
* GOTO routine. If this statement is not found, then * 
* this routine will check for the 'GO64' command. If * 
* it is the 'GO64' command and you are in the DIRECT * 
* mode, the question 'ARE YOU SURE?' will be asked. * 
* As long as the first character of the response is a * 
* 'y' then the 128 will be configured to the 64 mode. * 
* If the 'GO 64' command is not found, then a 'SYNTAX * 
* ERROR! will result. x 
* *x 
* * 


KKEKKKKKKEKKKKKKKKKEKEKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKK 


$0380 ;Get the next character 

#SA4 ;Is it the token for TO as in GO TO ? 

S5A4A ;No, then branch 

$0380 ;Yes it is, so get the next character 

$59DB ;Jump to BASIC GOTO COMMAND 

S87F4 ;Convert string to numeric value & check range 
#64 ;GO 64? 

S$5A54 ;If so, then branch 

$796C ; "SYNTAX! error 

SATE1 ;Ask question ARE YOU SURE? and await reply 
S5A5F sAnswered with 'Y'? If not, then branch 
SA845 ;Switch to BANK 15 

SFF4D ;Jump to 64 mode 


;Exit routine 


KKKKKKKKKKKKKKKEKKEKKKEKKKEKKKKKKKKKEKKEKKKEKKKKKKKKKK KK KK KKKKK 


BASIC CONT COMMAND 


Command syntax: CONT 


This routine will enable you to restart the BASIC 
program as long as it was stopped by the RUN/STOP 
key combination or the STOP or END commands by 
resetting the TXTPTR and the current line number to 
where you left off. The routine will also turn off 
the COLLISION, and AUTO modes. 


NOTE: Now that the variables are stored in RAM 
BANK 1, you can restart a program even after 
you have edited it without fear of destroying 


+ €£ € +  F + FF + F FF FF FF F F 
+ + + € + + F F FF FF F FF FE HF F 
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5A60; 
5A62: 
5A64: 
5A66;: 
5SAGB; 
SAGB: 
5A6D;: 
5A70: 
5A73: 
5A753 
SA77: 
5SA7A;3 
5A7D: 
SATF 3: 
5A81: 
5A83:; 
5A85: 
5A86: 
5A88; 
SABA; 
5A8D;: 
5ABF: 
5A91; 
5A94: 
5A95: 
5A97: 
5A9QA: 


BNE 
BIT 
BMI 
LDX 
LDY 
BNE 
JMP 
LDA 
STA 
STY 
LDA 
LDY 
STA 
STY 
LDA 
STA 
ASL 
STA 
STA 
STA 
STA 
LDX 
STA 
DEX 
BPL 
JMP 
RTS 


S5A9A 
S7F 
S5A9A 
#26 
$1203 
S5A70 
$4D3C 
$1202 
$3D 
$3E 
$1200 
$1201 
$3B 
$3C 
#$80 
STF 


$74 
$75 
$127F 
SF6 
#2 


$1276,X 


S$5A91 
SFF90 


the values of the variables that are stored in * 
memory by simply using a GOTO command to the 
line that you wish to start at. ia 


* 


KKK KKK KKK KKK KEKE KKK KKK KK KKK KKKEKKKKKKKEKKEKKKEKKEKKEKKKKKKKEK 


;Exit routine if any parameters are after 'CONT' 
;Check to see if we are in the RUN mode 

;Branch if we are in the PROGRAM mode 

;Error number for 'CAN'T CONTINUE’ 

;Is the CONTinue command blocked? 

;If it's not blocked, then branch 

;Jump to error message routine 

;CONT. not blocked, so get the pointer to 
;Where we left off and restart there 


;Get the previous line number we we are on 
;And make it the current line number 


;Flag for PROGRAM mode 

;Set flag to running 

; * 2 = 00 with carry flag set 
s;Turn off the AUTO 

;Command pointer 

; INTVAL 

;Turn AUTO INSERT MODE OFF 

;Index pointer 

;Clear the interrupt storage area 
;For a the COLLISION COMMAND 
;Continue to loop until done 
;Disable all of the KERNAL/BASIC messages 
;Exit routine 
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KEKKKKKKEKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKK KK KK 


BASIC RUN COMMAND 


Command syntax: RUN 
RUN line number 
RUN " <filename> ", DRIVE#, DEVICE# 


This routine gives three options, to RUN a program 
starting with the first line number, to RUN a 
program starting at a specified line number, and to 
load and automatically RUN a program. 


k 


+ + + € £ + + F&F F F 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KKK KKK KKKHKKKKEKKKKKKEKK KK KEKE KKKKEKKEKKKKKEKKKKKKKKKKKKKK 


5A9B: BEQ SSAB5 ;End of statement then standard RUN 
5A9D: BCC S$ 5ABB ;If its a valid line number branch to GOTO 


BASIC RUN a program COMMAND 


Syntax: RUN "filename" [, OPT1] [ON] [, OPT2] 
RUN (string variable) [, OPT1] [, OPT2] 


This routine will set the flag ($40) for the 

auto load and run function to location $7F. Then 
the routine calls the BASIC DLOAD routine at $A1A7 
to load the specified program, sets the system state 
to the PROGRAM mode, prints a RETURN to the current 
output device, and then jumps to the BASIC 
interpreter loop to RUN the program. 


Optional parameters: 


+ + © + + + € FF HF F FF F FE F HF F 


OPT1 = Drive number which must follow the character * 
D * 

* 

OPT2 = Device number which must follow the character* 
U which stands for the Unit number. 


NOTE: Even though it is not documented by Commodore 
you can assign the file name to a string 
variable as long as you place the variable in 
parentheses;also the optional parameters can be* 
any order you wish but they CANNOT be assigned * 
to a variable. 7 


+ + + F F FF FF F F F FF F F F F F F FF F OF F F FF F HF 
* + + + F 
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* Example: AS="SUSAN GRAY":RUN (AS),U8,DO * 
- RUN "SUSAN GRAY",DO,U8 * 
* * 
* Both of the aforementioned examples will do the exact * 
* same thing and that is to load a program called . 
* SUSAN GRAY from the disk drive with the device number * 
* of eight and internal drive number 0. is 
* * 
Go I ee a ee * 

5A9F: LDA #64 ;Flag for auto load and run function 

5AA1: STA STF ;Set the flag for the BASIC LOAD routine 

5AA3: JSR SA1A7 ;Call the BASIC DLOAD command 

5AA6: JSR S5A81 ;Set system state to PROGRAM mode 

5AA9;: JSR S51F3 ;Set TXTPNTR back to $1C00, and do a CLR CMD 

SAAC: JSR S4F4F ;Relink BASIC LINE LINKS 

5AAF: JSR $5598 ;Print return or linefeed depending on output 

;Device 
5AB2;: JMP S4AF6 ;Jump to the INTERPRETER LOOP 


* 
1 
! 
I 
! 
l 
| 
1 
! 
| 
| 
! 
1 
| 
1 
l 
l 
1 
{ 
| 
1 
I 
| 
l 
I 
{ 
1 
i 
{ 
I 
| 
! 
| 
! 
| 
! 
I 
! 
1 
| 
1 
| 
! 
| 
| 
| 
| 
| 
1 
1 
1 
1 
| 
| 
1 
1 
* 


* * 
* BASIC STANDARD RUN COMMAND * 
* * 
* Command syntax: RUN * 
* * 
* This routine will set the system pointers to the * 
* start of the first line number and call the SETMSG * 
* routine to set the flag for the PROGRAM mode. - 
* * 
Ge ee ee a a a we a an a a a a is a a a we ew ee * 

5AB5: JSR $5A81 ;Set system state to PROGRAM mode 

SAB8: JMP $51F3 ;Set TXTPTR to the program start then CLR 
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BASIC RUN line number COMMAND 
Command syntax: RUN line number 


This routine is similar to the routine above except 
this routine RUNs the program starting with the 
line number that is specified after the RUN command. 
The difference between this command and a GOTO to 
the same line number is that this command will 
perform a CLR command before running the program. 


+ + + +  F OF HF F HF HH 
t+ + + +  F OF HF FF HF FF OF 


5ABB: JSR SS1FA ;Do a BASIC CLR COMMAND 

5ABE: JSR $0386 ;Get the last BASIC TEXT character again 
5AC1: JSR $59DB ;BASIC GOTO COMMAND 

5AC4: JSR S5A81 ;Set the system state to the PROGRAM mode 
5AC7: JMP S4AF6 ;Jump to the INTERPRETER LOOP 


KKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKKKKKKKKKKKEK 


* 
* 


BASIC RESTORE COMMAND 
* 
Command syntax: RESTORE [line number] * 


* 
If no line number is indicated after the RESTORE * 
command, then the READ pointer is reset to the * 
beginning of the BASIC program. If a line number is * 
specified, then the READ pointer is reset to the * 
end of the line flag before that line number. If the * 
line that is specified after the RESTORE command is * 
not found, then an 'UNDEF'’D STATEMENT! error will ig 
result. * 

* 

* 


+ + + F * F + F F F F F 


Kak Kk kkk kkk kK Kk Kk KKK KKK KKK KKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK 


5ACA: BEQ S5AE1 ;Is there a line number? If not, then 
;Skip to the normal RESTORE 
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SACC: 
SACF: 
SAD1: 
SAD3: 
5AD6: 
5AD8: 
SADB: 
SADD: 
SADF : 


SAE1: 
5SAE2: 
SAE4;: 
SAE6: 
SAE8 ; 
SAEA: 


5AEB: 
5AED: 
5AEF: 


5AFO: 
SAF3: 
5AF6: 


JSR $8812 
STY $16 
STA $17 
JSR $5064 
BCS S5ADB 
JMP $5A15 
LDA $61 
LDY $62 
BCS SSAE6 
Ke me re we ee ee 
* 
a 
SEC 
LDA $2D 
LDY S2E 
SBC #1 
BCS $SAEB 
DEY 
STA $43 
STY $44 
RTS 
5 
* 
* 
* 
* 
* 
* This data t 
* uses this t 
* 
* 
* 


TOKEN VALUE 


.BYTE $89,5$8A,$8D 
.BYTE $A7,S$8C,$D6 
~-BYTE $D7,$D5 


for the tokens which are followed by a line number 
which will need renumbering. 
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s;Convert ASCII to the line number format 
s;Save as the current line number 


;Search for the line number stored in $16, 
s;If it's a valid line number, 
;*UNDEF'D STATEMENT! error 
;Get the LSB 

;And the MSB of the line address 
Unconditional branch 


then branch 


;Set the carry flag for subtraction 
;Get the pointers to the start of BASIC TEXT 


;LSB minus one (normally $1C00) 

;No overflow, then branch ($2D > SFF 

;Low byte was less than SFE, so subtract one 
;From $2E 


sMake it the start of the BASIC DATA addresses 


;Exit routine 


RNMTAB 
ReNuMber data TABle 


able is for the RENUMBER routine which 
able to search through the BASIC program 


+ + + £ + €F FF FF HF F 


COMMAND THE TOKEN REPRESENTS 
;GOTO, RUN, GOSUB 


; THEN, RESTORE, RESUME 
; TRAP, ELSE 
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SAF8:; 
SAFB: 
SAFD: 
SAFF: 
5BO2: 
5B05:; 
5BO8: 
SBOB: 
5BOD: 
S5BOF: 
5Bl1l2: 
5B14; 
5B17; 
5B19:; 
5B1B: 
5B1D; 


5BI1F: 
5B22: 
5B25: 


5B28; 
5B2A: 
5B2D: 
5B30; 
5B33;: 
5B35: 


5B38: 


5B3B: 
5B3D: 


JSR 
LDA 
LDX 
STX 
STA 
STX 
STA 
STA 
STA 
JSR 
BEQ 
JSR 
LDA 
BEQ 
LDA 
LDX 


STA 
STX 
JSR 


BCC 
STY 
STA 
ORA 
BNE 
JMP 


JSR 


BCC 
STY 
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KAKKKKKKKKKKKKKEKKKKKKKKKEKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 


+ + + + + € F FF F F F 


Command syntax: 


NOTE: 


DEFAULT: RENUMBER 10,10 


parl 
par2 
par3 


BASIC RENUMBER ROUTINE 


RENUMBER [parl] [,par2] [,par3] 

= the new starting line number 

= increment to add to the line numbers 
= optional line number to start 


renumbering at 


+ + + ££ &€ © € € € FF HF F 


KKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKRKKK 


S84F0 
#0 
#10 
$1170 
$1171 
$1172 
$1173 
$5C 
$5D 
$0386 
S5B68 
S50A0 
SOA 
$5B25 
$16 
$17 


$1170 
$1171 
S9E06 


$5B38 
$1172 
$1173 
$1172 
$5B38 
$7D28 


S9E06 


S5SB68 
$5C 


:If in PROGRAM mode, then 'SYNTAX' error 


;Default start, increment parameters 
;Start at line 10 


;$0010 

;And increment by 10 
7$0010 

;Clear the block transfer 
;Pointers 


;Get last character back <parl> 

;Default, then branch 

;Convert ASCII to address format <parl> 
;Valid starting line number? 

;No, then get <par2> 

;Get the LSB 

7;And the MSB of the value of the line number 
;To start renumbering at 

;Save them 

;For the renumber routine 

;Get <par2> in the Y register (LSB) and the 
;Accumulator (MSB) 

;If there is no value, 
;Save them 

;For the renumber routine 

;Check if increment value 

;Is zero 

sAnd generate ‘ILLEGAL QUANTITY' error if equal 
,;TO zero 

;Get <par3> in the Y register (LSB) and the 
;Accumulator (MSB) 

;If there is no value, 
;Save the LSB 


then branch 


then branch 
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5B3F: 
5B41: 
5B43; 
5B45; 


5B48; 
SB4A; 
5B4C;: 
5B4E;: 
5B50: 
5B53: 
5B56: 
5B58; 
SB5A: 


SB5D: 
5B5E: 
5B60: 
5B62: 
5B64: 
5B66: 
5B68: 
5B6B: 
5B6E; 
5B6F: 
SBT2Z: 
5B743 
5B75: 
5B78:; 
5B79: 
5B7B: 
5B7C: 
SBIF: 
5B81: 
5B83: 
5B86: 


5B88: 
5B8A: 
5B8D; 
5B8F: 
5B92: 
5B94: 
5B96: 
5B98; 
5B9A;: 


STY 
STA 
STA 
JSR 


LDA 
LDX 
STA 
STX 
LDA 
LDX 
STA 
STX 
JSR 


SEC 
LDA 
SBC 
LDA 
SBC 
BCC 
JSR 
JSR 
INY 
JSR 
BEQ 
INY 
JSR 
SEC 
SBC 
INY 
JSR 
SBC 
BCS 
JSR 
BNE 


BEQ 
JSR 
BEQ 
JSR 
BCS 
CMP 
BCC 
LDX 
JMP 


$16 
$5D 
$17 
$5064 


$61 
$62 
SSA 
$5B 
$1170 
$1171 
$16 
$17 
$5064 


$61 
SSA 
$62 
S5B 
$5B35 
$5D68 
S5D9C 


$03C9 
S5SBAE 


$03c9 
$5c 


$03C9 
S5D 

S5B8A 
S5B9D 
S$5B74 


S5BAE 
$5B9D 
S5BAE 
$5D89 
$5B98 
#$F9 
SSB8A 
#38 
$4D3C 
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;And the MSB 

;Of the line number 

;In <par3> 

;Search for line number in $16, $17 and return 
;The address where it was found in $61, $62 
;Save the LSB 

;And MSB of the line address 

;For range 

;Checking 

;Save the LSB and 

*;The MSB of <paril> 

;For the 

;Following routine 

;Search for line number in $16, $17 and return 
;The address where it was found in $61, $62 
;Set the carry for subtraction 

;Get the LSB of the line address for <parl> 
;Subtract the LSB of the line address of <par3> 
;Get the MSB of the line address of <parl1> 
;Subtract the MSB of the line address of <par3> 
;' ILLEGAL QUANTITY’ error if <par3> is < <parl> 
;Transfer <parl> to $65, $64 (LSB, MSB) 

;Get the LSB of the address to the next line 
;Increment to the next byte 

;Get the MSB of the address to the next line 
;If equal to zero, end of the program, branch 
;Increment to the next byte 

;Get the LSB of the line number 

;Set the carry for subtraction 

;Subtract the LSB of <par3> 

;Increment to the next byte 

;Get the MSB of the line number 

;Subtract the MSB of <par3> 

;Branch if we are at the correct line number 
;Make TXTPTR = address of the next line 

;If not the end of the program flag $00, keep ; 
;Searching 

;If it is the end of the program, then branch 
;Make TXTPTR = address of the next line 

;If it is the end of the program, then branch 
;Add increment value to the starting line number 
;Carry set? Then the line number is too large 
;Is the line number too large? 

s;If not, then branch 

; "LINE NUMBER TOO LARGE’ error 

;Jump to error message routine 
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5B9D: 
5B9F: 
5BA2: 
5BA3: 
5BA4: 
5BA7: 
5BA9: 
5BAB: 
SBAD: 
5BAE: 
5BBO: 
5BB2: 
5BB5: 
5BB8: 
5BBA: 
SBBC: 


5BBF: 
5BC1: 
5BC4: 


5BC7: 


5BC9: 
5BCC: 
5BCE: 
5BCF: 
5BD2: 
5BD3: 
5BD5: 


5BD7: 
5BD9: 
5BDB: 
5BDD: 
SBDF: 
5BE1; 
5SBE3: 
5BE4; 
5BE6;: 


LDY 
JSR 
TAX 
ENY 
JSR 
BEQ 
STX 
STA 
RTS 
LDA 
STA 
LDA 
LDX 
STA 
STX 
JSR 


DEC 
JSR 
JSR 


BEQ 


JSR 
STA 
INY 
JSR 
SEC 
SBC 
BCC 


BNE 
LDA 
SBC 
BCC 
LDA 
STA 
DEY 
LDA 
STA 


KEKKKKKKKKKKKKKKKKKKKKEKKKKKKKKEKKKKKEKKKKKKKKKKKKKKKKKKKKKK 


* 


* 


* 


* 


* 


Get the link to the next line and update TXTPTR x 
to that address. x 


* 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKK KKK KKK K 


#0 
$03C9 


$03C9 
$SBAD 
$3D 
$3E 


#501 
$77 
$1210 
$1211 
$3F 
$40 
SSBFB 


$77 
$SBFB 
$5D99 


SSBF8 


$5D9C 
$16 


$03C9 


$5D 
SSBFO 


SSBDF 
$16 
$5C 
SSBFO 
$64 


($3D),Y 


$65 


;Index pointer to the LSB of the line link 
;Get the LSB of the line link of the next lin 
;Move the character into the X register 
;Increment the index pointer to the MSB 

;Get the MSB of the line link to the next line 
s;If equal to zero, then exit 

;Save the address of 

;The next line as TXTPTR 

;Exit 

;Set the flag so the routine will not 
;Perform the renumber command 

;Save the LSB 

;And the MSB 

;Of the start 

7;Of BASIC text 

;Check the line references & if there is enough 
;Memory 

;Erase the flag to prevent renumbering 

;Start renumbering the lines 

s;Move TXTPTR to MSB of the address of the next 
;Line and get the MSB 

;If it is the end of the program, then relink 
;The program lines and exit 

;Get the LSB of the line number 

;Save it 

;Increment to the next byte 

;Get the MSB of the line number 

;Set the carry for subtraction 

;Subtract the MSB of <par3> 

;If less than the starting line number, 

;Then go to the next line 

;If larger than, then branch 

;If equal to, then 

;Check the LSB of <par3> 

;If it is less than, then go to the next line 
;Get the MSB of the line number 

;Save it in the program line 

;Index to the LSB of the line number 

;Get the LSB of the line number 

;Save it in the program line 
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5BF8: 


5BFB: 


SBFE: 


5c01: 
5Cc03: 
5C06: 


5C09: 
SCOB: 


5COE: 
SCi0: 
5C13: 
5SCi5% 


SCL: 


5C1A: 
5C1Cs 


5C1E: 
5C20: 
5C22% 


5C23% 
9C2Z5°¢ 
5C27: 
5C295 
5C2C; 


JSR 
JSR 


BEQ 


JSR 
JSR 
BEQ 


JMP 


JSR 
JSR 


BNE 
JMP 
JSR 
STA 
JSR 
STA 
JSR 
CMP 
BNE 
JSR 
BEQ 
CMP 
BNE 
BEQ 
TAX 
BEQ 
BPL 
LDX 
CMP 
BEQ 


+ ££ F 


Find the end of the line flag (#$00) and update 
TXTPTR to point to that address. 


#508 


SSAEF, X 


$5C56 


;Increment TXTPTR by one 

;Update replacement line number and search for 
;The end of the line 

;Unconditional branch 


+ + + % 


+ 


;Increment TXTPTR by one 
;Search for the end of the line 
s;Unconditional branch 


;Relink the lines and update end of program 
;Pointers 

;Set TXTPTR to the start of the BASIC text 
;Move TXTPTR to MSB of the address of the next 
;Line and get the MSB 

;Branch if it is not the end of the program 
sExit 

;Get the LSB of the line number 

;Save it 

;Get the MSB of the line number 

;Save it | 

;Get the next character from the line 

;Is it a quote? 

;If not, then branch 

;Get a character from the line 

s;If end of the line, branch to the next line 
;Is it a quote? 

;No, then keep searching 

;If not a token, then skip the character 
;Transfer a byte to the X register 

;If equal to zero, then branch to the next line 
;If it is not a token, then skip the character 
;Index to the token table 

;Compare token to the tokens in the RNMTAB table 
;lf equal, then branch 
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5C2E: 
5C2F; 
5C313 
9C33: 
5C35: 
5C38: 


5C3A: 
9C3C: 
5C3E: 
5c40: 
5C42; 
5C44:; 
5C47: 
5C49;3 
5C4B: 
5C4D: 
5C50: 
S5CS2* 
5C54;3 
5C56: 
5C58: 
5CSB?: 
5C5D: 
5C60: 
5C63: 
5C65: 
5C68: 
5C6B: 
oCG6E: 
5C7O% 
SC TSS 
SCiTS: 
5C78; 
SC7A: 
SC7C: 
SCTE: 
5C80; 
5C82; 
5C84; 
5C86; 


5C89: 
5C8B: 


5C8D: 
5C8F: 


DEX 
BNE 
CMP 
BNE 
JSR 
BEQ 


CMP 
BEQ 
BNE 
CMP 
BNE 
JSR 
BEQ 
CMP 
BNE 
JSR 
BEQ 
CMP 
BNE 
LDA 
STA 
LDA 
STA 
JSR 
BCS 
JSR 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
LDA 
BNE 
DEC 
DEC 
LDX 
LDA 
BEQ 
JSR 


CMP 
BEQ 


BNE 
INX 


$5C29 
#S$CB 

$5C40 
$0380 
SSBFE 


#SA4 
$5C56 
$5C10 
#SFE 
$5C10 
$0380 
$5C35 
#$17 

$5C10 
$0380 
$5C35 
; ae 

$5C4D 
$3D 

$1200 
$3E 

$1201 
$0380 
$5C13 
S$50A0 
$5D19 
$1200 
$3D 

$1201 
$3E 

$0380 
$3D 

S5SC7E 
$3E 

$3D 

#SFF 
$77 

$5CC7 
S5C8F 


#',! 
$5C56 


$5C13 


;If not, 

;Then check all eight of token values in table 
;Token for GO? 

;No, then branch 

;Get the next character from the BASIC text 

;If it's the end of the BASIC line or ':', then 
;Branch 

;Is it the token for TO? 

;If it is, then branch 

;If it's not, then skip the character 

;Dual token flag? 

;No, then skip the character 

;Get next character from BASIC text 

;End of the line or the ':' ? 
;Token for COLLISION ? 

;No, then skip the character 
,;Get the next character from BASIC text 
;End of the line or the ':'? 
;Is it a comma? 

;No, then keep searching 
;Get the pointer to the 
;Next character of the BASIC text and save them 
;As the 

;Previous line number 

;Get the next character 

;Branch if it is a character 

;Convert ASCII line number to integer 

;Check GOTO, GOSUB, etc. reference 

;Get the pointer to the previous line 

;Number from the temporary storage location 

;And save as 

;TXTPTR 

,;Get the next character from the BASIC text 
;Check the LSB of TXTPTR 

;Not equal to zero, then branch 

;If the LSB equals zero, then decrement the MSB 
;And the LSB by one 

;Index to end of buffer 

;Check renumber flag 

;If renumbering allowed the change lines 

;Check length of line number in buffer to length 
;Of the line number in the BASIC program 

;Is the next character in the program a comma 
;Yes - branch to get the line number following 
The: *;' 

;If not branch back to the main loop 

;Increment the index pointer 


If so, branch 


If so, then branch 
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5C90: 
5C93: 
5C95: 
5C98; 
5C9A; 
5c9C;: 
5C9E: 
5CAO: 
5CA1: 
5CA3: 
5CA6: 
5CA8: 
5CAB: 
5CAD: 
5CAE: 
SCBiis 
5CB3: 
5CB4; 
5CB7: 
5CB9; 
SCBB; 
5CBD: 
5CBF;: 
5CC1 2 


5CC3* 


5cC4: 


5CC7: 
5CC8;: 
SCCB: 
5CCD: 
5CCE?: 


LDA $0101,X ;Get a character from replacement line number 
BEQ S5CB4 ;If no more characters then exit the routine 
JSR $0380 ;Check for an ASCII digit in the BASIC line. 
BCC SSC8F ;If found branch 
INC $3F ;Add one to the end of program address 
BNE $5CAO 
INC $40 
SEC 
LDA $3F ;And compare to the result of the addition to 
SBC $1212 ;HIGHEST address available to a BASIC program 
LDA $40 
SBC $1213 
BCS $5CC4 ;And if larger then 'OUT OF MEMORY' error 
INX ;If not increment the index pointer 
LDA $0101,X ;And get the next character 
BNE SSC9A sthen continue the renumbering process 
RTS ;Exit 
JSR $0380 ;Get the next character in the BASIC line 
BCS $5CC3 ;Exit if it is a character 
LDA $3F ;If it's a digit then subtract 
BNE $5CBF ;One from the end of program address 
DEC $40 
DEC $3F 
BCC S5CB4 ;Continue searching line until a non-digit 
;Character is found 
RTS 
a ee a a a ee ee * 
Generate an 'OUT OF MEMORY’ error 
Fs a ee es a ee as a ee a as ee ee ee es Se ae ae ce ee * 
JMP S4D3A ;'OUT OF MEMORY' error 


INX 
LDA 
BEQ 
PHA 
JSR 


KK KK KK KK KK KK KK KK KK KK KK KK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKK 


* * 
= This routine is used to place the new ASCII line = 
* number into the BASIC line . - 
* * 


KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKK KKK KKKKK 


;Increment the index pointer 
$0101,X ;Get the next digit from the buffer 
S5CF9 ;Branch if no digits left 

;Save digit onto stack 
S5D9C ;Get next character from BASIC line 
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5CD1: 
5CD3: 
5CD5: 
5CD7; 
5CD9: 
5CDA: 
SCDC: 
5CDD: 
5CDF: 
5CE1: 


5SCE4: 
5CE6: 
5CE9: 
5CEC: 
5CEE: 
5CF1: 
5CF2: 
5CF4:;: 
5CF6; 
5CF7; 
5CF9: 
5CFC: 
5CFE: 


SDO1: 
9D03: 


SDO6: 
5D093 
5DOB: 
5DOE: 
5D11: 
5D14; 
5D16: 


5D19: 
5D1C: 
5D1F: 


CMP 
BCS 
CMP 
BEO 
SEC 
SBC 
SEC 
SBC 
BCC 
JSR 


INC 
JSR 
INC 
BNE 
INC 
PLA 
LDY 
STA 
INX 
BNE 
JSR 
BCS 
JSR 


DEC 
JSR 


LDA 
BNE 
DEC 
DEC 
JSR 
BCC 
JMP 


#0 


($3D),Y 


$5CC8 
$0380 
$5C89 
S5DA7 


S6D 
S5DC6 


$1210 
S5DOE 
$1211 
$1210 
$0386 
S5CFE 
$5C89 


C-128 BASIC 7.0 Internals 


sBranch if it's a letter 
;Is it a space? 
;Yes, branch 


;Subtract $30 

sthen 

;Subtract $DO to test for a digit 0-9 

;If it's a digit, branch to store in BASIC line 
;Move TXTPTR to INDEX1,TXTTOP to INDEX2 & clear 
;2 offset pointers 

;Add 1 to the offset 

s;Insert space in memory for char. of line number 
;And increment 
;TXTTOP by one 


;Get digit of replacement line number 


;Store it in the BASIC line 

;Index to next character 

;Continue 

;Get the next character from the BASIC line 
;Branch if it's a character 

;Move TXTPTR to INDEX1,TXTTOP to INDEX2 & clear 
;2 offset pointers 

;Subtract 1 from the offset 

;Delete digit from line if the replacement line 
snumber was smaller than the old line number 
;And subtract 1 from TXTTOP 


;Get character from line 
;Delete it if it's a digit 
sAnd continue 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKK KKK KKK KK KKKKK 


* 
* 
* 
* 
* 
* 


JSR 
JSR 
BNE 


* 
This routine checks if the referenced line number in * 
a GOTO ,GOSUB etc. command exists and generates an * 

"UNRESOLVED REFERENCE! error if it doesn't . * 

* 
* 


$5D68 
$5D99 
S5D2E 


KKK KKK KK KK KKK KKK KKK KK KKK KKKKKKKKKKKEKKKKKKKKKKKKKEKKKKKEKE 


;Put starting line number into $64,$65 MSB, LSB 
;Skip over 1 character and get second character 
;Branch if it's not the end of the program 
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5D21: 
5D23: 
5D25; 
5D27: 
5D29: 
5D2B: 
SD2E: 
5D31: 
5D33: 
5D35: 
SDS 7's 
5D3A: 
5D3C: 
5D3E;: 
5D40: 
5D41: 
5D43: 
5D45: 
5D47: 
5D49: 
5D4B: 
5D4D: 
5D4F; 
5D51: 
5D53: 
5D55: 
5D57: 
5D58: 


5D5B: 


5D5E; 
5D6é1: 
5D63: 
5D66: 
5D68: 


LDX 
LDA 
STA 
LDA 
STA 
JMP 
JSR 
STA 
CMP 
BNE 
JSR 
STA 
CMP 
BNE 
SEC 
SBC 
BCC 
BNE 
LDA 
SBC 
BCS 
LDA 
STA 
LDA 
STA 
LDX 
SEC 
JSR 


JMP 


JSR 
STA 
JSR 
BEQ 
LDA 


#39 
S4B 
$3B 
$4C 
$3C 
$4D3C 
S5D9C 
SSA 
$16 
S5SD5E 
S5D9C 
S5B 
$17 
$5D63 


$5D 
$5D4D 
$5D55 
$16 
$5C 
$5D55 
$16 
$65 
$17 
$64 
#590 


$8C75 


$8E42 


; 'UNRESOLVED REFERENCE ' 
;Save the LSB 

;and the MSB of the 
;Referenced line number that wasn't found 
;As the current BASIC line number 

;And generate the error 

;Get the LSB of the line number 

;oave 

;Compare to the current line number 
;Branch if they are not the same 

;Get MSB of the line number 

psave 

;Compare to current line number 

;Branch if not the same 


error number 


;Iis the LSB of the line number the same as 

;The LSB of [PAR3] ? Branch to next line if less 
;Convert line number to ASCII & exit if larger 
sis the MSB of the line number the same as 

;The MSB of [PAR3] ? 

;Convert line number to ASCII & exit if larger 


;Save the LSB 
;And the MSB 
;Of the current line number 


;Convert line number in $64,$65 (MSB,LSB) to 
;Floating Point format and store in FAC1 
;Convert line number to an ASCII string at $0101 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 


$5D9C 
$5B 

$5D75 
$5D1C 
$1170 


This routine is entered with TXTPTR pointing to the 
LSB of the line number in a BASIC line 

It then checks if the line number were on is the 
same as the one specified in [PAR3] 
the same ,the starting line number, [PAR1], 
at $64,$65 and TXTPTR is reset to the start of BASIC 


* 

* 

* 

* 

,if they aren't * 
is saved * 

* 

* 

* 


KKK KKK KKK KKK KKK KKK KKK KKK KK IKK KKK KKKKKKKKKKKKK KKK KKKKKEK 


;Get the MSB of the line number 

;save 

;Are weon the line number specified in 
;If we are then branch 

;If not then save the LSB 


[PAR3] ? 
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5D6B: 
5Dé6D: 
5D70:; 
5D72: 


5D75: 
5D77: 
5D78:; 
5D7A;3 
5D7C; 
5D7E: 


5D80;: 
5D83: 
5D86: 
5D88: 


5D89; 
5D8B: 
5D8C:; 
5SD8F;: 
5D91: 
5D93; 
5D96; 
5D98: 


STA 
LDA 
STA 
JMP 


$65 
$1171 
$64 
$5254 


;and the MSB 
;Of the starting line number 


;Reset TXTPTR to the start of BASIC text, exit 


KAKKKKKKKKKKKKKKKKKKKKKKKKEKEKKKKKKEKKKKEKKKEKKKKKEKKKKKKKKKKK 


* 


* 


* Check if we're on the same line number as specified * 


* in [PAR3]. Move to the next BASIC line if not. * 
* 


* 


KKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKEK 


LDA 
SEC 
SBC 
LDA 
SBC 
BCC 


SSA 


$5C 
$5B 
$5D 
$5D83 


KAKKKKKKKKKKKKKKKKKKKKKKKKKEKKEKKKKKEKKKEKKKKKKKKKKKKKKKKKKKK 


* This routine adds the increment value that was * 
* specified in the RENUMBER command to the current * 
* replacement line number and updates TXTPTR to the next* 
* BASIC line . 


KHKKKKKKKKKKKKKKKKKKKKEKKKKEKKKKKKKKEKKKKKKKEKKKKKKKKKKKKKKKKK 


JSR 
JSR 
BNE 
RTS 


LDA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 
RTS 


$5D89 
$5D9C 
$5D83 


;Add incre. value to get next line number to add 
7;Get a character from the BASIC line 

;Loop until the end of line flag $00 is found 
;Exit 


KKKKEKKKKEKKKKKKKKKEKEKKEKEKKEKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKRKKKEK 


* 
* 
* 
* 
* 
* 


$65 


$1172 
$65 
$64 
$1173 
$64 


This routine adds the increment value that was 
specified in the RENUMBER command to the current 
line number. 


KAKKKKKKKKKKKKKKKKKEKKKEKKKKEKEKKKKKKKKKKKKKKKKKKKKKKKKKEKK 


* 
* 
* 
* 
* 
* 


;Get the LSB of the current line number 

;Clear the carry for addition 

;Add the increment value to current line number 
;And save it back 

;Get the MSB of the current line number 

;Add the increment value to current line number 
;And save it back 

;Exit 
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5D99: 


SD9C: 
SD9E: 
5DAO: 
5DA2: 
5DA4: 


5DA7: 
5DA9: 
SDAB: 
SDAD: 
5SDAF : 
5DB2: 
5DB4: 
5DB7: 
S5DB9: 
SDBB: 
5DBD: 
SDBF: 


Kkkkkkkkkkk kk KKK KK KK KKK KKK KKK KK KKK KK KKKKKKKKKKKKKKKKKkKKKK 


* 


* 


* 


* 


Increment TXTPTR by two and get a character. * 


* 


KkKaKkKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKkKkKkkKkkKkkKKK 


JSR 


$5D9C 


;Increment TXTPTR by one and get the character 


Kkkkkkkkkkkkkkkkkkkkkkkke kkk kkk KK KKK KKK KKK KKKKKKKKKK KKK KKK 


* 


* 


* 


* 


* 

If the routine is entered here, then increment * 
TXTPTR by one and get the character. m 
* 


KKKKKIK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


#0 
$3D 
SSDA4 
$3E 
$03C9 


;Add one to TXTPTR 


s;Get a character from the BASIC line and exit 


KK KK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* 


* 


* 


* 


* 


Move TXTPTR to $24, $25, TXTTOP to $26, $27 and set * 


2 offset pointers at SOD ,$6D to $00 * 


* 


kaekkkkkkkkkkkkkkkkkkKkkk kkk kkk kkk kkk kkk kk KK KK KK KK KK KKK KKK 


LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
STY 
STY 
RTS 


$3D 
$24 
$3E 
$25 
$1210 
$26 
$1211 
$27 
#0 
SOD 
$6D 
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5DCO: 
5DC2: 
5DC4: 
5DC6: 
SDC8: 
5DC9: 
5DCCs 
5DCE: 
5DCF: 
5DD1: 
5DD4: 
5DD6: 


INC 
BNE 
INC 
LDY 
INY 
JSR 
LDY 
INY 
STA 
JSR 
BNE 
RTS 


KHEKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKEKKKKKEKKKKKKKKEKKKKKKKKKKK 


BMOVE1 


This routine moves a specified block of bytes down 
in memory 


* * 
* * 
* * 
* * 
* * 
* * 
* Enter with $24,$25 containing the address of the * 
* start of the block - 1 n 
* $26,$27 containing the address of the end of the * 
* block - 1 x 
* $0D containing the offset to the first byte to move * 
* ~ 1 * 
* And $6D containing the number of bytes to move the * 
* block - 1 * 
* * 
* * 


KKKKK KK KKK KKK KEKE KKKKKKEKEKKKKKEKKEKKEKKKKKKKKKKKKKKKKKKKK 


$24 ;Add one to 

S5DC6 ;the starting address 

$25 ;of the block 

SOD ;Get the offest to the first byte to move 
;Add one to it 

$4305 ;Get the byte 

$6D s;And the offset of where to move it 
;Add one to the offset 

($24) ,¥ ;Save the byte in new area 

SSDEE ;See if the move is completed 

S$5DCO ;Continue if not 
;Exit 


KEK K KK KK KKK KK KKK KKK KKK KKKKKEKKKKKEKKKKKKKKKKKKKKKKKKKKKKKEK 


BMOVE2 


This routine moves a specified block of bytes up 
in memory. 


* * 
* * 
* * 
* * 
* * 
* * 
* Enter with $24,$25 containing the address of the 3 
* start of the block + 1 * 
* $26,$27 containing the address of the end of the * 
* block + 1 * 
* $0D containing the offset to the first byte to move * 
* and $6D containing the number of bytes to move the : 
* block * 
* * 
* * 


KKK KKKKKKKKKKKK KKK KKKKKKKKK KK KKKKKKKKKEKKKEKKKKK KKK KKKKKEK 
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5DD7: 
5DD9: 
5SDDB: 
5SDDD: 
SDDF: 
SDE1: 
SDE4: 
5DE6: 
5DE8: 
5DEB: 
5DED: 


SDEE: 
5DFO: 
5DF2:; 
SDF 4: 
5DF6: 
5DF8: 


5DF9: 
5DFB: 
5DFD: 


LDA 
BNE 
DEC 
DEC 
LDY 
JSR 
LDY 
STA 
JSR 
BNE 
RTS 


LDA 
CMP 
BNE 
LDA 
CMP 
RTS 


LDA 
STA 
JSR 


$26 ;Subtract one from 
S5DDD ;The starting address 
$27 ;of the block 
$26 
$OD ;Get the offset to the first byte to move 
$03C0 ;Get a byte 
$6D sand the offset of where to move it to 
($26),Y ;Save byte in new area 
SSDEE ;See if we're done yet 
$5DD7 ;Continue if we're not 
sExit 


KKKKKEKKKEKKEKKEKKEKKEKKKEKKKEKKKKKEKKEKKEKKKKKKKKKKKKKKKKK KKK KKK 


Compare the address in $24,$25 to the address in 
$26,$27 and exit the routine with the zero flag set 
if they are equal. 


+ +  F OF 


* 
* 
* 
* 
* 
KAKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKRKKKKKKKEKK 


$24 
$26 
SSDF8 
$25 
$27 


KHEKKKKKKKEKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKRKRKKKKKKKKKKKKRKKKKEK 


* * 
* BASIC FOR COMMAND * 
* * 
* Command syntax: FOR variable = PAR1 TO PAR2[step PAR3]* 
* * 
* PARameters 1 = numeric value to start the loop with * 
“ 2 = numeric value to end the loop with * 
* 3 = numeric value to increment the loop * 
* with. * 
* * 
* The variable must be a floating point number but the * 
* remaining variables can be floating point numbers or * 
* integers. . 
* * 
kKakkkkkkkkkkkkkkKeKkKekKkKKKKKRKKK KKK KKKKRKKKKKKKKKKKKKKKKRKRKRKKKK 


#$80 ;Flag for INTEGERS and ARRAY elements 
$12 ;Are not allowed for the loop variable 
$53C6 ;Perform a BASIC LET command 
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5EOO: 
5EO2: 
5EO5: 
5EO7: 
5EO9: 
5EOC: 


5EOF: 


SE1Z: 
SELS: 
5E16; 
DE183 
5E19; 
5E1B: 
5E1D: 
SELF: 
SEZ1L 
5E22: 
5E24; 
5E26: 
5E27; 
5SE29: 
SE2B: 
5SE2C; 
SE2E; 
5E30: 
5E33: 
5E36: 
SE39:3 
SE3B: 
5E3D: 
5SE3F: 
5E41;3 


5E43: 
5E45:; 
5E47: 
5E493 
5SE4A: 
SE4B:; 


5E4D: 


5E4F: 


5E51: 
5E54:; 


LDA 
JSR 
BEQ 
LDA 
JSR 
JSR 


JSR 


JSR 
TYA 
LDY 
CLC 
ADC 
STA 
LDA 
ADC 
DEY 
STA 
LDA 
DEY 
STA 
LDA 
DEY 
STA 
LDA 
JSR 
JSR 
JSR 
LDA 
ORA 
AND 
STA 
LDX 


LDY 
LDA 
STA 
DEX 
DEY 
BPL 


LDA 


LDY 


JSR 
JSR 


#$81 
S4FAA 
SSEOF 
#18 
S4FFE 
$5047 


$5050 


$52A2 


#17 


$3D 


($7D),¥Y 


$3E 
#0 


(S7D),Y 


$3C 


($7D),¥ 


$3B 


($7D) ,Y¥ 


#SA4 
$795E 
STTDA 
$77D7 
$68 
#S7F 
$64 
$64 
#4 


#13 
$63,X 


($7D) ,Y 


SSE45 
#59C 
#$89 


$8BD4 
$0386 


;Token for FOR 

;Search the pseudo stack for the token 

;If found then branch 

;Make sure there is room for 

;18 bytes on the stack 

;Transfer the stack pointers from $7D, STE to 
;$3F, $40 

;Transfer the stack pointers from $3F/$40 to 
;S7D/STE 

;Search BASIC TEXT for a colon 

;Place its location into the accumulator 
;Index pointer 

;Clear the carry flag for addition 

;Add the location of the colon to TXTPNTR 
;And place it into the stack 

;Get the location of the colon MSB 

;Add the carry flag back in 

;Decrement the index pointer 

;Place it into the stack as the MSB 

;Get the currrent line number MSB 

;Decrement the index pointer 

;Place it into the stack 

;Get the current line number LSB 

;Decrement the index pointer 

;Save it onto the stack 

;Token for TO 

;Checks a match, if not found, 'SYNTAX ERROR’ 
;Numeric variable? 

;Gets number from floating point accumu. (FAC) 
;Get the value from FAC 

;Drop sign bit off 


;Index pointer to floating point accumulator 1 
;(FAC1) mantissa 

;Index pointer to the stack 

;Get the value from FAC1 

;Save it onto the stack 

;Decrement the index pointer for the mantissa 
;Decrement the index pointer for the stack 
;Continue the transfer until all bytes are 
;Transferred 

;Get the value to STEP by (+1) in floating point 
;Format 


;Move constant (+1) into FAC1 
;Get the last character read by $0380 
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5E57: 
5E59: 
SE5B: 
SESE: 
5E61: 
5E64: 
5E65: 
5E68: 
5E69:3 
5E6B: 
5E6D: 
SE6F: 
5E71: 
5E72: 
5E73: 
5E75: 
5E77: 
5E79; 
SE7B: 
SE7C: 
5E7E: 
5E80: 
5E81: 
5E83: 
5E84: 


5E87: 
5E8A: 
5E8D: 


SE8F: 
5E92: 
5E94: 
5E96: 


CMP 
BNE 
JSR 
JSR 
JSR 
PHA 
JSR 
PLA 
LDY 
LDX 
STA 
LDA 
DEY 
DEX 
BPL 
LDA 
STA 
LDA 
DEY 
STA 
LDA 
DEY 
STA 
RTS 
JMP 


JSR 
JSR 
BEQ 


JSR 
LDA 
LDX 
STA 


#SA9 

$5E61 
$0380 
$77D7 
$8C57 


$8C47 


#8 
#5 


($7D),Y 


$62,X 


SSE6D 
$4C 


($7D),¥Y 


S4B 


($7D),¥ 


#$81 


($7D),¥ 


$796C 


;Token for STEP? 

;If not, then branch 

7;Get the next character 

; EVALUATE NUMBER 

;Get sign of the number (+ or -) 
;Place the sign into the stack 

;Round FAC1 

;Get sign back 

;Index pointer to stack 

;Index pointer for FAC1 

;Place the character into the stack 
7;Get the exponent 

;Decrement the index pointer for the stack 
;Decrement the index pointer for FAC1 
;Continue until done 

;Get variable-name 

;Place it into the stack 

;Get variable-name LSB 

;Decrement the index pointer for the stack 
;Place it into the stack 

;Token value for FOR 

;Subtract one from the index pointer 
;Place the token into the pseudo stack 
;Exit routine 

; "SYNTAX ERROR! 


KRKKKKKKKKKKKKKKKKKKKKKK KKK KKK KEKE KKEKKEKKEKKEKKKKKKKKKKKEKK 


Command syntax: 


BASIC DELETE COMMAND 


DELETE first line [-last line] 


lines. If the first line number in the range is 


larger than the second line number, the routine 


* 
* 
* 
* 
* 
* This routine deletes a single line or a range of 
* 
* 
* exits by relinking the program lines. 

* 

* 


$84F0 
$0386 
S5SE84 


SSEFB 
$61 
$62 
$26 


+ + + € + HF FF FF HF 


KKKKKKKKKKKEKKKKKKKKKKKEKKKKKEKKEK KKK KKK KEKKKKKKKKKKKKKKKKKEK 


;If we are in PROGRAM mode, generate the error 
;Get first character after the token for DELETE 
;If there are no parameters following the DELETE 
;Command, then 'SYNTAX ERROR' 

,;Get the parameters 

;Get the LSB 

s;And the MSB of the address of the line 

;And save 
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5E98: 
SEQA: 
5E9D: 
SESF;: 
5EA1: 
5SEA4: 
SEAS: 
5SEA6: 
5SEA8: 
SEAB: 
SEAD: 
5EBO; 
SEB2: 
5SEB4: 
5SEB6: 
5EB7; 


5EB93 
5EBA: 
5EBC: 
SEBE: 
SEBF: 


5EC1: 


5EC2; 
5EC3:% 
5EC6;: 
5EC93;: 
5ECA: 
5ECD: 
SEDO: 
5ED2: 
5ED5; 
SED73 
SED8; 
5EDA?: 
SEDC: 
5EDE: 
SEE1: 
5SEE3; 
SEES: 
SEE8: 
5SEEA: 
SEEC: 
5EED: 


STX 
JSR 
BCC 
LDY 
JSR 
DEY 
TAX 
BNE 
JSR 
BEQ 
JSR 
STA 
STX 
LDA 
SEC 
SBC 


TAX 
LDA 
SBC 
TAY 
BCS 


TXA 


CLC 
ADC 
STA 
TYA 
ADC 
STA 
LDY 
JSR 
STA 
INY 
BNE 
INC 
INC 
LDA 
CMP 
BCS 
JSR 
LDA 
LDX 
CLC 
ADC 


$27 
$5064 
SSEB4 
#501 
S42EC 


$SEAD 
$42EC 
SSEB4 
S42EC 
$61 
$62 
$26 


$61 


$27 


$62 


S5SEE5 


$1210 
$1210 


$1211 
$1211 
#0 

$42EC 


($26),Y 


SSED2 
$62 
$27 
$1211 
$27 
$SED2 
S4F4F 
$24 
$25 


#$02 


; Them 

;Search for line number in $16, $17 

;If it was found, then branch 

;Index to the MSB of the line link to next line 
;Get the MSB of the address to the next line 
;Decrement to the next byte 

;Save the MSB in the X register 

;If the MSB is not a zero, then branch 

;Get the LSB of the address to the next line 
;If it is equal to zero, then branch 

;If not, then get the value again 

;Save the LSB 

;And the MSB to the address of the next line 
;Get the LSB of the address to the second line 
;Set the carry for subtraction 

;Subtract the first line address LSB from the 
;LBS of the second line 

;Save it in the X register 

;Get the MSB of the address to the second line 
;And subtract the first line address MSB from it 
;Save it in the Y register 

;If the second value is smaller than 

;The first, then exit 

;Put the LSB of the offset between 

;Lines in the accumulator 

;Clear the carry for addition 

;Add the offset to the TXTTOP LSB 

;And save it 

;Put the MSB of the offset into the accumulator 
;Add the offset to the TXTTOP MSB 

;And save it 


;Get a byte from the line 

;Store it at the address of first line to delete 
;Continue 

;Until 

;The 

;MSB 

;Of the target address 

;Is equal to the value in the TXTTOP MSB 

;Loop until equal 

;Relink the BASIC line links 

;Get the LSB 

;And MSB of address of the end of the program 
;Clear the carry for addition 

;Add two to the end of program address to point 
;It to third 0 byte in the end of program flag 
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SEEF: 
SEF2: 
SEF4: 
SEFS5; 
5EF8: 


5EFB: 


5SEFD: 
SEFF: 
5F01: 
SFO3: 
SFOS: 
SFO8: 


5FOA: 
5FOC: 
5FOE: 
5FOF: 


5F12: 
5F15; 
5F18; 
5FI1A: 
5F1C; 
5F1E;3 
5F21: 
5F24:; 
SF26: 
5F28: 
5F2A:3: 
SF2C: 
SF2E3 
SF30: 
SF31: 


STA 
BCC 
INX 
STX 
JMP 


BEQ 


BCC 
CMP 
BNE 
LDY 
JSR 
BEQ 


CMP 
BEQ 
SEC 
JSR 


JSR 
JSR 
BEQ 
CMP 
BNE 
JSR 
JSR 
BNE 
LDA 
BNE 
LDA 
STA 
STA 
RTS 
JMP 


$1210 
SSEF5 


$1211 
$4D37 


sSave it as the TXTTOP LSB 


;Add one to the MSB of TXTTOP 
;Save it as the TXTTOP MSB 


s;Print 'READY' to the screen 


KKKKKKKKKKEKKKKEKKKKKKEKKKEKKK KK KKKKKKKKEKKEKKKKKKKK KKK KKK KK KKK 


* 
* 
* 
* 
* 
* 
* 
* 


FROMTO 


the ending line number in such commands as 


LIST [parl] 


SSFOF 


SSFOF 
#1! 
SSFOF 
#1 
$03C9 
S5F31 


$ret 
S5F31 


SSOAO 


$5064 
$0386 
S5F26 
#SAB 
S5F31 
$0380 
$50A0 
S5F31 
SOA 
S5F30 
#SFF 
$16 
$17 


$796C 


* 

* 

* 

This routine checks on the starting line number to * 
* 

* 

* 

x 


[- par2] and DELETE [parl] [-par2]. 


KKEKKKEKKKEKKEKKKKEKKEKEKKEKKEKKKKEKKKKKK KKK KEKKKKKEKKEKKKKKKKKKK 


;If there is no parameter after the token this 
;Routine will assume you wish to LIST the entire 
;Program, If it is for the DELETE routine, the 
;Delete routine itself calls for a syntax error 
;If line number, then branch 

;Token for subtraction? (through) 

;No, then branch 

;Index pointer 

;Move over one place and read the next character 
;If the end of BASIC line or a colon 

;Is found, then branch 

;Colon? 

7;Yes, then 'SYNTAX ERROR’ 

sset the carry 

;Convert ASCII to address format and 

;Store it in $16, $17 

;Search for line number in $16, $17 

;Get the character again 


;Token for subtraction? (through) 
;No, then branch 

;Get the next character 

;Convert ASCII to address format 

s;No line number, then 'SYNTAX ERROR! 
;Valid line number to 

;List to? If so, then exit 

;If there is no line number, 

;Then set the line number to SFFFF 


s;Exit routine 
; "SYNTAX ERROR! 
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5F34:; 
5F37: 
5F38; 
5F39: 
5F3B: 
5F3D: 
5F40; 
SF43; 
5F46: 
SF49:3: 
SF4A: 


5F4C: 


JSR 
TAY 
DEY 
CPY 
BCC 
JMP 
JSR 
STA 
STA 
DEY 
BPL 


RTS 





KHKKKAKKKKKKEKKKKKKKKKKKKKKKEKKKKKKEKEKKKKKKKKKKKKKKKKKKKKKKKK 


BASIC PUDEF COMMAND 
Command syntax: PUDEF string 


NOTE: string = any combination of characters 
up to four characters 


* 

* 

* 

* 

* 

* 

* 

* 

* Where: Position 1 (1xxx) 
* Position 2 (x2xx) 
* 

* 

* 

* 

* 

* 

* 

* 


redefinition for a space 
redefinition for comma 
redefinition for deciml pt* 
redefinition for a §$ 


+ + £ © € € FF FE F F 


lI 


Position 3 (xx3x) 
Position 4 (xxx4) 


* 
This routine is used to define the characters in * 
PRINT USING command and it will redefine any of the * 
the four main formatting characters. - 
* 
* 


KKKKKKKKKKKKKKKKKKKEKKKKKEKKKKKKKEKKKKKKEKKKKKKKKKKKKKKK 


$877B ;Get the length of the string 
;Transfer it into the Y register 
;Decrement it by one to get the actual length 
#504 ;If there were less than 5 chars. entered, then 
SSF40 ;Branch (if length -1 is < 4 then branch) 
$7D28 sIf not, then 'ILLEGAL QUANTITY' error 
$03B7 ;Get a character from the string 
SFFO3 ;Enable BANK 14 
$1204,Y ;Store each character in the PUDEF Table + Y 
;Decrement the string length by one 
S5F40 ;Continue looping until all the 
;Characters are redefined 
;Exit 


KKKKKKKKKKKKEKKKEKKEKKKKKKEKEKKKEKKEKKKKKKKAKKEKKKKKKKKKKKKKKKEK 


BASIC TRAP COMMAND 


Command syntax: TRAP [line number] 


error. If no line number is specified, then the 
TRAP command is turned off.NOTE: The line number 


* 
x 
* 
* 
* 
This routine will read in what line number the * 
* 
* 
* 
can also be a numeric variable. - 

* 

* 


* 
* 
* 
* 
* 
* 
* program wants to goto when the system finds an 
* 
* 
* 
* 
* 


KAKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKEKREKKKKKKKKKKKKKKKKK 
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SF4D: 


5F50; 
5F53: 
5F55: 
5F58: 
SF5SB:; 
5FSCs 
5F5E:3 
5F61;: 


SF62: 


5SF65: 


SF68: 


5F69: 


SF 6B: 
SF6E: 


5SF70: 


5F72: 
5F74: 


JSR 


JSR 
BEQ 
JSR 
STY 
. BYTE 
LDA 
STA 
RTS 


$84D9 


$0386 
S5F5C 
$8812 
$120B 
$2C 
#SFF 
$120C 


;Check to see if we are in the DIRECT mode and 
,;If we are, then ‘ILLEGAL DIRECT! error 

;Get the last character back 

;No line number to execute on error 

;Get the line number to execute on error 

;Save low byte of the address of the line number 
;Mask to bypass the TRAP off flag. 

;Turn off TRAP flag. 

;Save the high byte (or flag) for line number 


KKKKKEKKKKKK KK KKEKKKKKKKKKKKEKKKKKKKEKKKKKKKKKKKEKKKKKEKKKKKKKEK 


+ + + + + F F F F F F F FF F 


Command syntax; 


This routine will try to restart program execution 
by executing the specified line number. 
RESUME NEXT is used, the system will attempt to 
restart program execution at the statement following 
the statement which had the error in it. If neither 
are requested then the system will re-execute the 
statement which caused the error to occur. 


BASIC RESUME COMMAND 


RESUME [line number] 
RESUME NEXT 


If the 


+ + + + + OF F  F F F F OF F 


KHKKKK KEK KKK KKEKEKKKKKKKKEKKEKKEKEKKEKKKKKKKKKKKKKKKKKKKKKKKEKK 


JSR 


LDX 


INX 


BEQ 


JSR 
BEQ 


BCC 


CMP 
BNE 


$84D9 


$120A 


SSFDB 


$0386 
S5SFB7 


SSFAC 


#$82 
SSFD8 


;Check to see if we are in the DIRECT mode 

;And if we are, then "ILLEGAL DIRECT!’ error 

;Get the high byte of line the error occurred in 
;Increment the address by one to see if an error 
;Has occurred (If no error has occurred, 

;Then $120A will equal SFF) 

;If no error has occurred,then generate a 

; *SYNTAX' error 

;Get the character after the RESUME token 

;No parameters, then try to restart the program 
;At the statement that caused the error 

;Branch if there is a line number after the 
;RESUME token, 

s;Is it the token for NEXT? (RESUME NEXT) 

;No, then branch to generate a ‘SYNTAX ERROR' 
;message 
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5F76: 


5F79: 
SF7B: 


SFT7E: 


5F80: 


5F81: 
5F84: 


5F86: 


5F87: 


5SF8A: 
SF8C: 
SF8F: 
5F91: 
5SF94; 
SF96; 
SF97;: 
5SF9A: 
5F9C: 
5F9D: 
5F9E: 
5FAO: 


5SFA2: 
SFA4: 
5SFA6: 
SFA9: 


C-128 BASIC 7.0 Internals 


KKKKKKKKKKKKKKKEKKKK KKK KK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKK 


* 


* 


* 


* 


RESUME NEAT i 


* 


KK KKK KKK KKK KK KKK KK KKK KKK KKK KK KK KEKE KKKKEKKKKEKKKKKKKKKKKK 


JSR 


LDY 
JSR 


BNE 


INY 


JSR 
BNE 


INY 


SSFB7 


#0 
$03C9 


SSFA6 


$03C9 
SOF8F 


;Reconfigure the various pointers to attempt 
;A restart sequence 
;Index pointer 


;Get the next byte in the line and see if there 


;Is a statement or character after the error 


;lf not equal to zero, then branch to skip over 


;The error to the next statement 


;If it was equal to zero, then check for the end 


,;Of the program 

;Get the next byte - LSB of the line link 
;Branch if not equal to zero 

; (not the end of the program) 

;If it was equal to zero, then 


KKKKKKKKKEKKKKKKKKKEKKKEKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKK 


* 


* 


* 


* 


RESUME = 


* 


KKK KKK KKK KKK KKK KKK KKK KE KKK KKK KK KKK KKKKKKKKKKKKKKKKKKKKKK 


JSR 


BNE 
JMP 
LDY 
JSR 
STA 
INY 
JSR 
STA 
TYA 
CLC 
ADC 
STA 


BCC 
INC 
JSR 
JMP 


$03c9 


SSF8F 
$4D37 
#503 
$03C9 
$3B 


$03C9 
$3C 


$3D 
$3D 


SSFA6 
$3E 

$0380 
$528F 


;Check the next byte and if the MSB equals $00, 


;It is the end of the program 

;If it was not equal to zero, then branch 
;Print 'READY' to screen, it's end of program 
;Index to LSB of the next line number 

;Get the LSB of the line number 

;Save it 

;Increment to the MSB 

;Get the MSB of the line number 

;And save it 

;Transfer the index to the accumulator 

;Clear the carry for addition 

;Add the offset to the LSB of TXTPTR 

;To point to the first statement in line that 
;Follows the line in which the error occurred 
;If no overflow, then skip 

;increment the MSB 

;Get the next character in the line 

;Perform a DATA command to skip over the next 
;Sstatement 
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KKKKKKKE KKK KK KK KEKKEK KK KKK KKK EKKKKEKKKEKKKKKEKKKKKKKKKKKKKK KKK 


* * 
= RESUME LINE NUMBER * 
* * 


KRKEKKKEK KKK KKK KKK KK KEK KK KKKKKEKEKKEKKKKKKKKKEKKKEKKKKKK KKK K KKK 


5FAC: JSR $8812 ;Evaluate the expression after the RESUME token 
;And convert the numeric result to a HEX line 
s;Number with the result in $16, $17 


5FAF: STA $17 ;Useless code - the MSB was placed here by the 
;GET ADDRESS routine at $8812 

5FB1: JSR SSFC6 ;Clear the error number and 

5FB4: JMP SS9OFB ;Execute a BASIC GOTO command 


KHKKK KK KKK KK KEKE KKKKKKKKKKKK KK KKKKKEKKKEKEKKKKKKKKKKKKKKKKEK 


* * 
* Set up the current line number and line address - 
* to attempt to restart the program. = 
* * 


KKKKK KK KKEKKKEK KKK KKK KKEKKKKKKKKKEKKKKEKKEEKKKKKEKKKEKKKKKKKKEKKEKK 


5FB7: LDX #$01 ;Get line number that the error occurred in from 

5FB9: LDA $1209,X ;Location $1209 (ERRLIN) and make it the current 
;Line number we are on 

5FBC: STA $3B,X ;By placing it in location $3B (CURLIN) 

5SFBE: LDA $120E,X ;Get the address of the byte just before the 
;Statement that caused the error 

5FC1l: STA $3D,X ;From location $12CE (ERRTXT) and place it in 
;TXTPTR to attempt to restart the program 

5FC4: BPL SSFB9 ;Continue til LSB and MSB have been transferred 


KKK KKKKK KKK KKKKK KKK KKK KKKKKEKKKEKKKEKKKKKEKKKKKK KK KKKKKKK 


* * 
* Clear the various pointers in preparation for a * 
* system restart after an error. x 
* * 


KK KK IKK IKK KKK KKK KKK KKK KKKKKKEKEKKKKKKKKKKKEKKEKKKKKKKKKKKEKK 


SFC6: LDX #SFF 


5FC8: STX $1208 s;Clear the last error number (ER - value) 
5FCB: STX $1209 ;Clear the line number that an error 
5FCE: STX $120A ;Has occurred in (SFFFF indicates no error) 


SFD1: LDX $120D 
SFD4: STX $120C 


5FD7: RTS sExit 
5FD8: JMP $796C ; "SYNTAX ERROR! error 
5FDB: LDX #28 ;'CAN'T RESUME! error 
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5FDD: JMP $4D3C ; JUMP to the error message routine 


KKK HK KKK KKK HK KK KKK KK IK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKK 


* * 
* BASIC DO COMMAND * 
* * 
* Command syntax: DO [modl] statements [exit] is 
* LOOP [mod2] * 
* * 
* NOTE: modl = optional modifier UNTIL or WHILE * 
* exit = EXIT modifier * 
* mod2 = optional modifier UNTIL or WHILE * 
* * 
* This routine is similar to NEXT except this routine * 
* does not have a specific number of times to loop. In-* 
* stead, the routine will test for modifiers as WHILE, * 
* UNTIL, and EXIT for a way out of the DO-LOOP. If none* 
* of these modifiers are found, the only way out of the* 
* DO-LOOP is to press the RUN/STOP key. * 
x x 
KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKK KKK KKKKK 


5FEO: LDY #1 ;Index pointer 

5FE2; LDA $003D,Y ;Save the current TXTPTR 

5FE5: STA $1214,Y ;In TMPTXT 

5FE8: LDA $003B,Y ;Save the current line number 

5FEB: STA $1216,Y 

SFEE: DEY ;Decrement the index pointer 

5FEF: BPL SSFE2 ;Continue until two bytes are done 

5FF1: JSR $0386 ;Get the character after the DO token 

5FF4: BEQO $6012 ;lf end of statement, then branch 

5FF6: CMP #SFC ;Token for UNTIL? 

SFF8; BEQ $600B ;If so, then branch to the UNTIL command 

5FFA: CMP #SFD ;Token for WHILE? 

5FFC: BNE $6041 ;If not, then generate a 'SYNTAX' error message. 
5FFE: JSR S60DB ;Evaluate the expression after the WHILE token 


KKKK KKK KKK KK KKK KKK KKK KKK KKK KK KEKK KKK KKKKKKKKKKKKKKKKKKKEK 
* * 
% LOOP /WHILE s 
* , * 
* This routine is called if WHILE is found after DO. If* 
* the expression after WHILE is true, the DO parameters* 
* are saved into the pseudo stack to force the LOOP to * 
* 
* 
* 


continue execution. A false expression ends the loop.* 
* 


KKK KKK KKK KKK KKK K HK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKK 
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6001: LDA $63 ;If the result of the expression 
6003: BNE $6012 ;Was true, then branch 

6005: JSR $0386 ;Get a character from the BASIC text 
6008: JMP $6047 ;JuMP to process the character 


KK KKK KKK KKK KK IKK KKK KKK IKI KKK KKK IKK KKK KKK KK KKK KKK KKK KK KKK 


BASIC UNTIL COMMAND 


Command syntax: DO UNTIL condition .......... LOOP 
DO} iets asc ee ei LOOP UNTIL condition 


the DO/LOOP command statement. The UNTIL command 
allows you to exit the DO/LOOP when the specified 


* 
* * 
* * 
* * 
* * 
* * 
* This command is actually an extension or modifier to * 
* * 
* * 
* 'condition' is met. i 
* * 
* * 


KKKK KKK KKK KK KKK KKK KKK KKK KKK KKKKKKaKKK KKK KKK KKK KKK KKK 


600B: JSR S60DB ;Evaluate the expression after 'UNTIL' 
600E: LDA $63 ;If the result of the expression 
6010: BNE $6005 ;Was true, then branch 


KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK IKK KKK KKK KKKEKKKKKKKKKKKKE 


* * 
* This routine will push the current TXTPTR to be used * 
* as the return address, the current line number, and * 
* the token for DO (SEB) onto the pseudo stack in the * 
* following order: = 
* * 
* BYTE DESCRIPTION LSB/MSB * 
* te a as ay me sn ee * 
* 4 RETURN ADDRESS MSB * 
- 3 RETURN ADDRESS LSB as 
" 2 LINE NUMBER MSB * 
* 1 LINE NUMBER LSB i 
* 0 TOKEN FOR DO (SEB) N/A * 
* * 
KIKI KKK KKK KKH KKK KKK KKK KKK KKK KK KEKE KKKKKIKKKKK KK KK KKKKKKEK 


6012: LDA #$05 ;Load the accumulator with the number of bytes 
;To free on the pseudo stack for 'DO'! 

6014 JSR S4FFE ;Check on the free stack space and return with 
;The stack address in locations $7D, S7E 

6017: STA SFFO3 ;Enable BANK 14 

601A: LDY #4 ;Load the Y register with the number of bytes 


;Minus one to be put onto the pseudo stack 
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601C: 


601F: 
6021: 
6022: 
6025: 
6027: 
6028: 
602B: 
602D: 
602E: 
6031: 
6033: 
6034: 
6036: 
6038: 


6039: 


603C: 
603F: 


6041: 
6044: 
6047: 


6049; 
604B: 
604D; 
604F; 
6051: 
6053: 
6055: 
6058: 


LDA 


STA 
DEY 
LDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 
STA 
RTS 


JSR 


JSR 
BEQ 


JMP 
JSR 
BEO 


CMP 
BEO 
CMP 
BEO 
CMP 
BNE 
JSR 
JMP 


$1215 


($7D),¥ 


$1214 


($7D),¥ 


$1217 


(S7D),¥ 


$1216 


($7D),¥ 


#SEB 


(S7D),Y 


;Get the MSB of the address of the next 
;Statement in the line of the 'DO' 
;Save it onto the pseudo stack 
;Move to the next byte 

;Get the LSB of the address 

;And save it onto the pseudo stack 
;Move to the next byte 

;Get the MSB of the line number of the 'DO' 
;Command and save it onto the pseudo stack 
;Move to the next byte 

;Get the LSB of the line number of the 'DO' 
;Command and save it onto the pseudo stack 
;Move to the next byte 

;Token for BASIC DO command 

;Save it onto the pseudo stack 

;Exit this routine 


command 


KKEKKKEKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


Command syntax: DO...IF expression THEN EXIT...LOOP 


While the UNTIL and WHILE commands must be 
stated at the beginning or end of a DO/LOOP 
command statement, EXIT allows you to stop the 
execution of the loop in the middle. 


$609B 


$0386 
$6047 


$796C 
$0380 
$6060 


#SEC 
$6087 
#une 
$605B 
#SEB 
$6044 
$6044 
$6005 


BASIC EXIT COMMAND 


+ + * + F F HF OF HF 


KKKKKK KKK KKK KKK KK KKK KK KKK KKEKKKKKKEKKKKKKK KKK KKKKKKKK 


;Search for 'DO' on the pseudo stack and point 
;The pseudo stack pointer to it 
;Get the character following the 
;If it is the chain flag ':' 
;Flag, then branch 
;Generate a 'SYNTAX' error 
;Get the next character in the BASIC text 

;If it is the end of statement or end of line, 
;Then branch 

sis it the token for BASIC LOOP command? 

;If it is, then branch 

;Is it a quote mark? 

;If it is, then branch. 

s;Is it the token for BASIC DO command? 

;If not, then branch 

;Check the command following the 
;And process it 


"EXIT' command 
or the end of line 


‘DO! 
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6O5B; 
605E: 


6060: 
6062: 
6064: 


6066: 
6068: 
606A; 
606D: 
606F: 
6070; 
6073: 
6075: 
6076: 
6079; 
607B: 
607C: 
607D: 


607F3 
6081; 
6083: 


6085; 


6087: 


608A: 


608C: 
608E: 
6090: 


JSR 
BNE 


CMP 
BEQ 
BIT 


BPL 
LDY 
JSR 
BEO 
INY 
JSR 
STA 
INY 
JSR 
STA 
TYA 
CLC 
ADC 


STA 
BCC 
INC 


BNE 


JMP 


BEQ 


CMP 
BEO 
CMP 


$537C 
$6044 


Huet 
$6044 
S7F 


S60AA 
#502 

$03C9 
S60AA 


$03C9 
$3B 


$03C9 
$3C 
$3D 
$3D 
$6044 
$3E 


$6044 


$528F 


;Search for quote mark or end of line terminator 
;If it is not the end of line terminator or the 


s;Chain flag ':', then branch 
s;Is it a colon? 
;If it is, then branch 


;If it is not a colon, then check to see if 
;We are in the DIRECT mode 

;If in DIRECT mode, then generate an error 
;Index to the MSB of the next line's line link 
;Get MSB of the line link to the next BASIC line 
;If it is a zero, then generate an error 

;Move to the LSB of the line number 

;Get the LSB of the next line number 

;And save it 

;Move to the MSB 

;Get the MSB of the next line number 

;And save it 

;Move the index to the accumulator 

;Clear the carry for addition 

;Add the index to TXTPTR LSB to move it to 
;The next line 

s;And save it 

;If there was no overflow, branch to continue 
;If overflow did occur, then increment the MSB 
;Of TXTPTR 

;And branch to continue skipping over the 
;Remaining text 

;By calling the BASIC DATA command 


KAKEKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKKKKKK KKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


Command syntax: DO 


This command marks the end of a DO/LOOP command 
statement. The statements that are inside the loop 
will be executed without end unless an UNTIL, WHILE, 
or EXIT command is used to exit the loop. 


$60C1 


#SFD 
5 60BC 
#SFC 


BASIC LOOP COMMAND 


LOOP 


t+ + + + F  F HF HF 


KKK KK KK KKK KKK KKK KKK KKK KKK KK KEK KKK KKK KKK KKK KKKEKKKEKKKKEKKEKK 


;If no command exists after the 'LOOP' command, 
;Then branch 

;Is the next character the token for 'WHILE'? 
sIf it is, then branch 

s;Is the next character the token for 'UNTIL'? 
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6092: BNE $6041 ;If not, then generate a ‘SYNTAX’ error 
6094: JSR S60DB ;Evaluate the expression following the 'UNTIL' 
6097: LDA $63 ;If the result of the expression 
6099: BEQ $60C1 ;Was false, then branch 
609B: LDA #SEB ;Find the token for the 
609D: JSR S4FAA ;BASIC DO command on the stack 
60A0: BNE $60B7 ;If the token for 'DO' is not on the stack, 
;Then generate a ‘LOOP WITHOUT DO' error 
60A2: JSR $5050 ;Move the pseudo stack pointer 
;From locations $3F, $40 to locations $7D, S7E 
60A5: LDY #5 ;Load the Y register with the number of bytes 
;For the'DO' entry on the pseudo stack 
60A7: JMP $5059 ;Point pseudo stack pointer to the 'DO'token 
Koco ee ee ee ee ee eee ae a a a a a SS ee se * 
* * 
* This routine will take the line number that the DO * 
* statement is on and make it the Current line number * 
* to be used by the error message handler routine. al 
* The routine then falls thru to generate a i 
* "LOOP NOT FOUND' error. x 
* * 


60AA: LDA $1216 ;Get the line number that the 
60AD: LDX $1217 ;DO statement is on and 

60B0: STA $3B ;Make it the 

60B2: STX $3C ;Current BASIC line number 


KKKKKK KKK KKK KKK KKK KKKKKKKKKKKEKKKKKKKKKKKKKKKKKEKKKKKKK 


* * 


5 GENERATE A ‘LOOP NOT FOUND' ERROR MESSAGE = 
* * 


KKKKKKEKKKKKKK KKK KKK KKK KKKKKKKKKEKKKKKKKKKKKKKKKKKKK KKK KKK 


60B4: LDX #32 ; "LOOP NOT FOUND' error number 
60B6: .BYTE $2C - yMask to fall through to $60B9 


KKK KKK KKK KKK KKK KKK KKK KK KEK KKK KKK KK KKKKHKKKKKKKKKKKKKKKKK 


* * 


x GENERATE A ‘LOOP WITHOUT DO' ERROR MESSAGE : 


* * 


KK KK KKK KKK KKK KKH KI KKK KK KKK KKK KKKKKKKKKKKKKKEKKKKKKKKKKKK 


60B7: LDX #33 ; "LOOP WITHOUT DO error number 
60B9: JMP $4D3C ;Jump to the error message routine 
60BC: JSR S$60DB ;Evaluate expression after the 'WHILE' command 
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60BF: 
60C1: 


60C4: 
60C5: 


60C7: 
60C9: 
60CA: 


60CC: 
60CE: 


60CF: 
60D1: 
60D4; 
60D6: 
60D8: 


60DB: 
60DE: 


60E1; 
60E4: 
60E5:; 
60E7: 
60E9; 


BEQ 
JSR 


JSR 
JMP 


JSR 
DEX 
CPX 
BCC 
JMP 


$609B 
$609B 


($3F),Y 


$3E 


($3F),Y 


$3D 


($3F),Y 


SA83B 


(S3F),Y 


$3B 
SSFEO 


;If the expression is false, then branch 
;Search for the 'DO' token on the pseudo stack 
;And update the pseudo stack pointer to point to 
;That token 

;Move to MSB of the next statement's address 
;Get the MSB of the address of the next 

;After the 'DO' statement 

;And save it as the MSB of TXTPTR 

;Move to the LSB 

;Get the LSB of the address of the next 
;Statement after the ‘DO’ statement 

;And save it as the LSB of TXTPTR 

;Move to the MSB of the line number of 

;The "DO' statement 

;Get the MSB of the line number 

;And save as the MSB of the current line number 
;Get the LSB of the line number 

s;And save as the LSB of the current line number 
;Execute the 'DO' statement 


kkekkkkk kkk KKK KKKKKKKKKKKKKK KK KKK KKK KKK KK KKK KKK KK 


* 
* 
* 
* 
* 
* 
* 
* 
* 


This routine is used to evaluate the expression that 


$0380 
$77EF 


is after the 
to this routine, TXTPTR must point to the first 
character before the expression. 
routine, FAC1 will hold a zero if the expression 
was false. 


"UNTIL’ or "'WHILE' commands. On entry 


On exiting the 


+ € € © FF & FF 


kakkekkkkkKkkkk kkk KKkKK KKK KKK KKK KKK KKKKKKKKKK KKK KKK KK KK KKK 


;Get the next character of the BASIC text 
;Evaluate the expression 


kkk KkKk KKK KKK KK KKK KKK K KK KKK KKK KKK KKK KKK KKK KK KKK K KKK KKK KKK 


* 


* 


* 


* 


* 


This routine is used by the BASIC KEY command to * 
define a programmable key. i 


* 


Kkkkkk kkk kkekkkkkkkkkk kkk kk Kekkkk kkk k KKK KKKKKKKK KKK KKK KK KKK 


S87F4 


#8 
$60EC 
$7D28 


;Get the KEY number into the X register 

s;If the KEY number 

s;Is between 1 and 7, 

;Then branch 

sIf the KEY number is 0 or greater than 7, then 
s;Generate an 'ILLEGAL QUANTITY’ error 
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60EC: 
60EE: 


60F1: 


60F4; 
60F5: 
60F7: 
60F9:;: 
60FB: 
60FD: 
60FE: 
6101: 
6104; 


6106: 
6107: 


STX 
JSR 


JSR 


TAY 
LDA 
STA 
LDA 
LDX 
INX 
JSR 
JSR 
BCS 


RTS 
JMP 


$77 ;Save the KEY number 

$795C ;Check for a comma and if it is not found, then 
;Generate a 'SYNTAX' error 

$877B ;Evaluate the KEY definition, store address in 


;Locations $24,$25 and length in the accumulator 


s;Move definition length into the Y register 

#1 ;Set the BANK number of the KEY definition 

$26 ;To RAM BANK 1 

#$24 ;Get the pointer to the KEY definition address 

$77 ;Get the KEY number (-1) into the X register 
;And restore it to its original value 

SA845 sEnable BANK 15 

SFF65 ;Define the specified KEY 

$6107 ;If there's not enough room for the definition, 


;Then generate an ‘OUT OF MEMORY' error 
sExit this routine 
S4D3A sGenerate an 'OUT OF MEMORY' error 


kkk Kk Kk kkk kK KKK KKK KK KKK KKK KKKKK KK KKKKKKKKKKKKKKKKKKKKKKKKKK 


BASIC KEY COMMAND 


Command syntax: KEY 
KEY key number, string 


This command allows you to define the function keys 
Fl - F8. For instance, if you wish to define Fl to 
print the current system error message when that key 
is depressed, you would enter the following 
statement: KEY 1, "PRINT ERRS(ER)". If the 'KEY' 
command is used by itself, the current key 
definitions will be displayed to the screen. 


* 
* 
* 
This routine first checks to see if a key is to be * 
defined or if the key definitions are to be * 
displayed. This routine also reveals the use of the * 
two commands 'ON' and 'OFF', one of which (OFF) is * 
unimplemented. Apparently, there was supposed to x 
have been two extra commands 'KEY ON' and 'KEY OFF’ * 
which would have enabled or disabled the KEY * 
definitions. However, neither of these commands * 
was ever implemented. If either command is entered, * 
an 'UNIMPLEMENTED COMMAND! error will result. = 

* 

* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KKEKKKKKKKKKKKKK KE KKEKKKKKKKKK KKK KKK KK KKKEKKEKKEKKKKKKKKKKK 
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610A: 


610C: 
610E: 


6110: 
6112; 
6114; 
6117: 
6119: 
611B: 
611E: 
6121: 


6123; 
6125; 
6126: 
6129; 


612B: 
612D: 
612F:; 
6131; 
6134; 
6135: 
6137: 


6139: 
613C; 
613D: 
613F: 
6141: 
6144: 
6145: 
6146: 
6148; 
614A; 


614D: 
614F3; 
6150; 
6152: 
6154; 


6156: 


6158: 


BEQ 


CMP 
BEQ 


CMP 
BNE 
JSR 
CMP 
BEQ 
JMP 
JMP 
LDX 


LDY 
INX 
LDA 
BEQ 


STA 
STX 
LDX 
LDA 
DEX 
BNE 
ORA 


JSR 
TXA 
BPL 
LDX 
LDA 
INY 
PHA 
STX 
LDX 
CMP 


BEQ 
DEX 
BNE 
LDX 
CPX 


BCC 


BNE 


$6121 


#591 
S611E 


#SFE 
$60E1 
$0380 
#$24 
$611E 
$796C 
$4846 
#0 


#0 


SOFFF,X 


S617E 


$78 
$77 
#5 


SA82A,X 


$6139 
$77 


$9269 


$6131 
#507 


$100A,Y 


$79 
#504 


$61A3,X 


$6183 
$614A 
$79 
#$08 
$615F 


$6164 


;If the KEY command was used by itself, then 
;Branch to output the current KEY definitions 
;If the command sequence 

; 'KEY ON' was used, then generate 

;An 'UNIMPLEMENTED COMMAND' error 

;lf the command sequence was not used, then 
;Check to see if the 'KEY OFF! 

;Command sequence was used 

;And if it was, 

;Then generate an 'UNIMPLEMENTED COMMAND! error 
;Generate a 'SYNTAX' error 

;Generate an '‘UNIMPLEMENTED COMMAND! error 
;Clear the index register to the text to be 
;Printed and to the key definition table 

;Index pointers 

;Subtract one from the index register 

;Get the length of the KEY definition 

;If the length is zero, then branch to move to 
;The next definition 

;Save the length of the KEY definition 

;Save the KEY X number 

s;Index of the number of characters to print 

;Get a character of ‘KEY 0O' 

;Move the index to the next character 

;If we are still doing the letters, then branch 
;If we are not, then create the KEY number by 
;Combining the index with the zero in KEY 0 
,Output the character 

;Move the index into the accumulator 

;Continue output until five characters are done 
;Set up the output flag 

;Get a character of the KEY definition 

;Move the index to the next character 

;Save the character onto the stack 

;Save the output flag 

;Set up the index to the control character table 
;Is the character in the accumulator one of the 
;Control characters? 

;If it is, then branch 

;If not, then move to the next control character 
;Continue until the whole table has been checked 
;Get the output flag 

;Check to see if the text 'CHRS (' has just been 
;Outputted 

;If we are at first character of the definition, 
;Then branch 

;If we are outputting normal text, then branch 
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615A: 
615C: 
615F: 
6161: 
6164: 
6165: 
6168; 
616A: 
616C: 
616E:; 


6170: 


6172: 
6174: 
6177: 
6179; 
617C: 
617E: 


6180 


6182: 


6183: 
6185: 
6188: 
618B: 
618C;: 
618E: 
6190: 
6191: 
6194: 
6196: 
6199; 
619B; 


LDA 
JSR 
LDA 
JSR 
PLA 
JSR 
LDX 
DEC 
BNE 
CPX 


BCC 


LDA 
JSR 
LDA 
JSR 
LDX 
CPX 
BNE 
RTS 


LDX 
LDA 
JSR 
DEX 
CPX 
BCS 
PLA 
JSR 
LDA 
JSR 
LDX 
BNE 


# F435 
$9269 
fumes 
$9269 


$9269 
#509 
$78 
$6141 
#509 


$6177 


ff bus 

$9269 
#141 
$9269 
$77 

#$08 
$6125 


;Get the value for a plus sign 

;And output it 

;Get the value for a quote 

;And output it 

;Get the character of the KEY definition 
;And output it 


;Indicate that we are outputting normal text 
;Decrement the length of the definition by one 
;If not done, then branch to continue output 
;Check to see if we have been outputting text 
;Within quotes or 'CHRS' 

;If we have outputted '+CHRS$ (', 
,;Output a quote 

;Print a quote mark to the 
;Current output device (screen) 
;Get the value for a shifted return 

;And output it 

;Get the KEY number we are working on 

;Have we done all eight keys 

;If not, then branch to continue with next KEY 
;Exit this routine 


then do not 


KKKKKKKKEKKKKKKKEKEKKEKKEKEKKKKKKKKEKKKKKEKKKKKKEKKKKKKKKKKKKEKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


This routine is used by the KEY routine to output 


the text 
contains a seven, 
outputted. 
eight, the text 


"+CHRS(' or 


"CHRS('. 
the text 


If the X register 
"+CHRS(' will be 


However, if the X register contains an 


exiting this routine, the X register will contain an 
eight to inform the KEY routine that the text 


"CHRS (' 


$79 


$619A,X 


$9269 


#503 
$6185 


$A830 
#1) 
$9269 
#508 
S616A 


has just been outputted. 


* 
* 

* 

* 

* 

"CHRS(' will be outputted. On * 
* 

* 

* 

* 

* 


KEKKKKEKKKKKEKKKKKKEKKEKKKKKEKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKK 


;Get the output flag 

,;Get the character of the 
;And output it 

;Move to the next character 

;Continue until 

;The proper amount of characters are outputted 
;Get the character string value off of the stack 
;Output its ASCII equivalent 

;Value for a closing parenthesis 

;Output it 


"+ CHRS (' 
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619D: TXT ' (SRHC+! ;Text for '+CHRS(' 
61A3: TXT yds ;Quote mark 

61A4; .BYTE SOD ;Carriage return 
61A5: .BYTE $8D ;Shifted return 
61A6; TXT ome ;Quote mark 

61A7: .BYTE $1B ;Escape 


KKEKKKKKKKKKEKKKKKKKKKKKKKKKEKKKEKKKKKEKKKKKKKKKKKKK KK KKK KK KK 


* * 
se) BASIC PAINT COMMAND mn 
* * 
* Command syntax: PAINT [color source],x,y[,mode] * 
* * 
* NOTE: color source = O (bit map foreground) * 
* 1 (bit map background) * 
* 2 (multicolor 1) * 
* 3 (multicolor 2) * 
* * 
= x,y = the coordinate to start * 
* PAINTing at * 
* * 
* mode = O (this mode will paint an * 
* area that is defined by * 
* the color source specified) * 
* 1 (this mode will paint an * 
3 area that is defined by any * 
* non-background source) * 
* * 
* This command allows you to fill an area with color * 
* around the specified starting coordinate. * 
* * 
KKK KKK KK KKK KK KKH KKK KKK IKK KKK KKK KKK KKK KKK KKKKKKKKKKKK KKK 


61A8: JSR S9E2F ;Get color source selected and save at $83 

61AB: LDX #$04 ;Set the index to the starting coordinates 

61AD: JSR S9E52 ;Get the X and Y coordinates and save them 

61B0; JSR S9DF2 ;Copy coordinates from locations $1135 - $1138 
;To $1131 - $1134 

61B3: JSR $9E1C ;Check for mode flag and put into the X register 

61B6: CPX #$02 ;If the mode was less than 2, 

61B8: BCC $61BD ;Then branch 

61BA: JMP $7D28 ;Else, generate an ‘ILLEGAL QUANTITY' error 

61BD: TXA ;Move the flag into the Accumulator 

61BE: LSR ;Divide it by 2 

61BF: ROR ;And shift the flag into bit 7 

61C0: STA $8B ;Save the mode flag 

61C2: BPL $61C8 ;If the mode was zero, then branch 
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61C43 
61C6:;: 
61C8: 
61CB: 
61CD: 


61CF: 
61D0: 
61D3: 
61D6:; 
61D8: 
61DA; 
61DC; 
61DE: 
61DF; 
61E1: 


61E3; 
61E5; 
61E7;: 
61E9; 
61EB: 
61ED: 
61EF: 
61F1: 
61F4: 
61F6:; 
61F9; 
61FC; 
61FF;: 
6201 


6203: 
6206: 
6208: 


620B: 
620E: 
6211: 
6213? 
6216: 
6219: 
621B: 


621E: 


6220: 


LDA 
BEQ 
JSR 
BCS 
BNE 


RTS 
JSR 
STA 
LDA 
STA 
LDA 
STA 
SEC 
LDA 
SBC 


STA 
LDA 
SBC 
STA 
LDX 
STX 
STX 
LDX 
BNE 
DEC 
DEC 
JSR 
BCS 
BNE 


INC 
BNE 
INC 


JSR 
LDX 
BNE 
DEC 
DEC 
LDA 
JSR 


STA 


CLC 


$83 

$61CF 
$9C49 
$61CF 
$61D0 


S92EA 
SFFO3 
$33 
$24 
$34 
$25 


$35 
#$03 


$1B 
$36 
#0 
$1Cc 
#0 
$63 
$64 
$1133 
S61F9 
$1134 
$1133 
$9C49 
$6203 
$61F1 


$1133 
$620B 
$1134 


$9C19 
$1131 
$6216 
$1132 
SL131 
$63 

$627C 


$63 


;Get the color source that was selected 

;If the color source was zero, then exit 
;Calculate the bit map address 

;If the coordinates are out-of-range, then exit 
;If the color source at the location is not the 
;One selected, then branch 

;Else exit this routine 

;Perform a Garbage collection 

;Enable BASIC BANK 14 

;Save the LSB 

;Of STREND (STRing END address) 

;save the MSB 

;Of STREND 

;Set the carry for subtraction 

;Get the LSB of FRETOP, start address of strings 
;Subtract 3 to point to the first free byte 

;In string storage 

;Save the result 

;Get the MSB of FRETOP 

;Subtract the carry from it 

;And save it 

;Clear out an index 

;And 

;Two flags 

;Get the LSB of the Y coordinate 


If it is not equal to zero, then branch 


;Decrement the MSB of the Y coordinate by one 
;Decrement the LSB of the Y coordinate by one 
;Calculate the new screen address 

;If Y coordinate is out-of~range, then branch 
;Ilf the color at this point is not the same as 
;The one that was selected, then branch 
;Increment the LSB of the Y coordiante by one 
;If it is not equal to zero, then branch 

;If it is equal to zero, then increment the MSB 
;Of the Y coordinate by one 

;Set the color and pixel at these coordiantes 
;Get the LSB of the X coordinate 

;If it is not equal to zero, then branch 
;Decrement the MSB of the X coordinate by one 
;Decrement the LSB of the X coordinate by one 
;Get the first coordinate flag 

;Calculate the new screen address and save the 
;The coordinates if needed 

;Save the coordinate flag back 

;($80 = saved, $00 = not saved) 

;Clear the carry for addition 
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6221: 
6224: 
6226: 
6229: 
622B: 


622E: 
6230: 


6233: 
6235; 
6238: 
623A: 
623D: 
6240: 
6243: 
6245; 
6248; 
624B: 
624D; 


624F; 
6251; 
6253: 
6255; 


6257: 
6259: 
625B: 


625D: 


625F: 
6261: 
6263: 
6265: 
62673 
626A: 
626D;: 
6270: 
6271: 
6273: 
6276: 
6279: 


627C: 
627D: 


LDA 
ADC 
STA 
BCC 
INC 


LDA 
JSR 


STA 
LDX 
BNE 
DEC 
DEC 
INC 
BNE 
INC 
JSR 
BCS 
BNE 


LDX 
LDY 
LDA 
CMP 


BNE 
LDA 
CMP 


BEQ 


LDA 
BNE 
DEC 
DEC 
JSR 
STA 
STA 
DEX 
BPL 
JSR 
JMP 
JMP 


PHA 
JSR 


$1131 
#502 

213i 
$622E 
$1132 


$64 
$627C 


$64 

$1131 
$623D 
$1132 
$1131 
$1133 
$6248 
$1134 
$9C49 
$624F 
$620B 


#503 
#0 
$25 
$34 


$625F 
$24 
$33 


$6279 


$24 
$6265 
$25 
$24 
$03B7 
SFFO3 


$1131,X 


$625F 
$4BB5 
$61EB 
$9DF2 


$9C49 
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;Get the LSB of the X coordinate 

;And increase it by 2 

;Save it back 

;If there was no overflow, then branch 

;If there was an overflow, then increment the 
*;MSB by 1 

;Get the second coordinate flag 

;Calculate the new screen address and save 
;The coordinates if needed 

;Save the coordinate flag back 

;Get the LSB of the X coordinate 

;If it is not equal to zero, then branch 
;Decrement the MSB of the X coordinate by one 
;Decrement the LSB of the X coordinate by one 
;Increment the LSB of the Y coordinate by one 
;If it is not equal to zero, then branch 
;Increment the MSB of the Y coordinate by one 
;Calculate the new screen address 

;If Y coordinate is out-of-range, then branch 
s;If the color at this point is not the same as 
;The one that was selected, then branch 

;Set up an index for 4 bytes - 1 

;Clear the Y index 

;Get the MSB of the current storage address 
;Compare it with the MSB of the start 

;Of the storage area 

;If it is not equal to it, then branch 

;Get the LSB of the current storage address 
;Compare it with the LSB of the start 

,;Of the storage area 

;If they are equal, then there are no 
;Coordinates to read, so branch 

;Get the LSB of the current storage address 
;If it is not equal to zero, then branch 
;Decrement the MSB by one 

;Decrement the LSB by one 

;Get a byte of the coordinates 

;Enable BASIC BANK 14 

;Save them as the current coordinates 

;Move to the next byte of the coordinates 


;Continue until four bytes have been transferred 
;Check the STOP key and abort if it is depressed 


;Continue filling 

;Copy coordinates from locations $1135 - $1138 
‘To S113]. — $1134 

;Save the coordinate saved flag 

;Calculate the new screen address 
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6280: 
6282: 


6284: 
6285: 
6287: 
6288: 
6289; 
628B; 
628D: 
628F: 


6291: 
6293; 
6295; 
6297: 
629A; 
629B; 
629D; 
629E: 
62A1: 
62A4: 
62A6: 
62A9: 
62AB: 
62AD: 
62AF: 
62B0: 
62B2: 
62B4: 
62B6: 


BCS 
BEQ 


PLA 
BNE 
TAX 
TAY 
LDA 
CMP 
BCC 
BNE 


LDA 
CMP 
BCC 
JMP 
PLA 
LDA 
RTS 
LDA 
STA 
STA 
STA 
INC 
BNE 
INC 
INX 
CPX 
BNE 
LDA 
RTS 


$629A 
$629A 


$629D 


$25 
$1C 
$629E 
$6297 


$24 
$1B 
$629E 
S4D3A 


#$00 


$1131,X 


SFFO4 


($24) ,Y¥ 


SFFO3 
$24 
S62AF 
$25 


#504 
$629E 
#580 


If coordinates are out-of-range, then branch 
;If the color at this point is the same as the 
;Selected color source, then branch 

;Get the flag back 

;Ilf the coordinates were saved, then exit 
;Clear out 

;The X and Y registers 

;Get the MSB of the present storage address 
;Is it the same as the Maximum size MSB? 

;If it is less than, then branch 

;If it is greater than, then generate an 

; "OUT OF MEMORY' error 

;Get the LSB of the present storage address 
;Is it the same as the Maximum size LSB? 

;If it is less than, then branch 

;Generate an 'OUT OF MEMORY' error 

;Get the flag back 

;Flag for coordinates not saved 

;Exit this routine 

;Get the current coordinate 

;Enable BASIC BANK 14 with RAM BANK 1 enabled 
;Save the coordinate temporarily 

;Enable BASIC BANK 14 

;Increment the LSB of the storage address 

;If there was no overflow, then branch 

;If there was overflow, then increment MSB by 1 
s;Increment to the next byte of the coordinates 
;Continue until 

74 bytes have been saved 

;Flag to indicate that the coordinates are saved 
;Exit this routine 


KEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKRKK 


+ + &€ €+ € &€ + FF FF FF HH HF F 


Command syntax: BOX [color source],X1,Y1 coords 


NOTE: color source 


BASIC BOX COMMAND 


[,X2,Y2 coords] [angle] [paint] 


W MO F Oo 


(background color) 
(foreground color) 
(multicolor 1) 
(multicolor 2) 


+ *€ + + ++ © € &€ F&F FF F 


X1,Y1 coords = the top left corner coordinates * 
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62B7: 
62BA: 
62BC: 
62BF: 
62C1; 
62C4; 


62C7: 
62CA: 
62CD; 
62D0: 
62D2: 
62D4; 


62D7: 
62DA: 
62DB: 
62DC: 
62DF: 
62E0: 


STX 
TXA 
PHA 
JSR 
PLA 
BNE 


X2,Y2 coords = the bottom right corner that is 
opposite the X1,Y1 coordinates 
angle = the angle in degrees 
paint = 0 (do not paint the shape) 


This command allows you to draw a BOX on the screen 
as specified by the parameters that follow the BOX 


* 

* 

* 

* 

* 

* 

1 (paint the shape) * 
* 

* 

* 

command. * 
* 


KHKKKKKK KK KKK KEK KKKEKKKEKKKKKKKKKKKK KK KKK KKKKKKKKKKKKKK KKK 


S9E2F ;Get color source selected and store at $83 

#S1F ;Get the top right X, Y coordinates 

S9E6D ;And store them at locations $1150 - $1153 

#S2B ;Get the bottom X, Y coordinates 

$9E52 ;And store them at locations $115C - $115F 

S9EO6 ;Get the rotation angle into the Y register 
;The accumulator (LSB, MSB) 

$1154 ;Save the LSB 

$1155 ;And the MSB of the rotation angle 

S9E1C ;Get the fill flag, if any 

#$02 ;If the value is 

$62D7 ;Greater than 1, 

$7D28 ;Then generate an 'ILLEGAL QUANTITY' error 


KEK KKK KKKKKKEKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKK KKK KKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


* 


This is the entry point for machine language program-* 
mers who wish to use the BOX drawing routines. You * 
must enter this routine with the top right X and Y * 
coordinates in locations $1150 - $1153 and the bottom* 
X and Y coordinates in locations $115C - $115F. Also,* 
the rotation angle must be in locations $1154 - $1155* 
and either a non zero value must be in the X register* 


to select fill or a zero for no fill. * 
* 


KKK KK KK KKK IKK KKK KI KK KK KKK KKK KK KKKKKEKKKEKKKKKKKKEK KK KK KKKKK 


$116C :;Save the fill flag 
;Move the flag to the accumulator 
;And save it onto the stack 
$6389 
;Get the Fill Flag back 
S62FE ;If the Fill was selected, then branch 
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62E2: 
62E4; 
62E7: 
62EA: 
62ED: 
62EF: 
62F1: 
62F 4; 
62F7: 
62F8; 
62FA: 
62FD; 
62FE; 
6300: 
6303; 
6304: 
6306: 
6308: 
630B: 
630E: 
6311: 
6314: 
6316: 
6318: 
631B: 
631C; 
631E: 
6320: 
6323: 
6324: 
6325: 
6327: 
632A: 
632C; 
632D; 
6330: 
6331: 
6333: 
6335: 
6338; 
633A: 
633D: 
633F;: 
6342: 
6344: 
6346: 
6349; 


BEQ 
JSR 
JSR 
LDA 
BNE 
LDX 
LDA 
STA 
DEX 
BNE 
STX 
RTS 
LDX 
LDA 
LSR 
BCC 
LDX 
LDA 
STA 
LDA 
STA 
LDA 
LDX 
STA 
DEX 
BPL 
LDX 
LDA 
PHA 
DEX 
BPL 
JSR 
LDX 
PLA 
STA 
INX 
CPX 
BNE 
LDA 
BNE 
DEC 
BMI 
DEC 
LDX 
LDY 
LDA 
LSR 


$62E7 
$640B 
$9B30 
$114E 
$62E4 
#$04 


$115B,X 
$1130,X 


$62F1 
$116C 


#0 
$1149 


$6308 
#$02 


$1160,X 


$115A 


$1161,xX 


$115B 
#0 
#503 


$1156,X 


$6318 
#$07 


$1131,X 


$6320 
$9B30 
#0 


$1131,X 


#$08 

$632C 
$115A 
$633F 
$115B 
S62EF 
$115A 
#$25 

#$1B 

$1149 


;If the Fill was not selected, then branch 


;Draw a side of the box 

;Check if we are done 

;Continue until 4 sides are drawn 

;Index to number of bytes to transfer 

;Move the bottom right X and Y 

;Coordinates from locations $115C - $115F 
;To $1131 - $1134 

;Continue until 4 bytes have been transfered 
;Clear the fill flag | 

;And exit 
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634A; 
634C; 
634E; 
6350; 
6351: 
6352: 
6355; 
6358: 
6359; 
635C; 
635D: 
635F; 
6361: 
6362; 
6363: 
6365: 
6368; 
636A: 
636C: 
636F:; 
6371: 
6373: 
6375; 
6376: 
6378: 
637A: 
637D: 
637F: 
6382: 
6383: 
6384; 
6385; 
6387; 
6389; 
638B: 
638E;: 


6390: 


6392; 
6393: 
6394: 


63973 
639A: 
639D: 
63A0; 


BCC 
LDY 
LDA 
LSR 
PHA 
JSR 
STA 
TYA 
STA 
PLA 
BCC 
ORA 
INX 
INX 
LDY 
LSR 
BCC 
LDY 
ROL 
CPX 
BEQ 
LDX 
ASL 
BEQ 
BCC 
INC 
BNE 
INC 
ASL 
DEX 
DEX 
BPL 
BMI 
LDY 
JSR 
LDX 


LDY 


TYA 
PHA 
JSR 


STA 
STA 
STA 
TYA 


$634E 
#519 
#0 


$9D6D 


ool, x 


$1132,X 


$6361 
#SA0 


#$19 


$1149 


$636C 
#$1B 
$1149 
#$27 
$6350 
#506 


$6335 
$6382 


$1131,X 


$6382 


$1132,X 


$6378 
S631E 
#523 
$9A74 
#S1F 


#52B 


$9D99 


$1135,X 
$1139,xX 
$1141,X 


;Index to the rotation angle 

;Calculate the proper rotation angle index 
;Index to the starting coordinates 

;At locations $1150 - $1153 

;Index to the ending X coordinates 

;At locations $115C - $115F 

;Save the ending 

;Coordinate index 

;Calculate difference between starting and 
;Ending X coordinate 

;Save the result 

s;In locations $1154 - $1157 

sAnd $1158 - $115B 
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63A1: 
63A4: 
63A7: 
63AA; 
63AB: 
63AC: 
63AF; 
63B2: 
63B3;: 
63B6: 


63B8: 
63B9: 
63BA: 
63BC; 
63BE: 
63C0;: 
63C3: 
63C6; 
63C8: 
63CB: 
63CC:;: 
63CF: 
63D2: 
63D5: 
63D8: 
63DB: 
63DE: 
63E1: 
63E3: 
63E6: 
63E9; 
63EC: 
63ED: 
63F0: 
63F1: 
63F4: 


STA 
STA 
STA 
PLA 
TAY 
JSR 
STA 
TYA 
STA 
LDY 


INX 
INX 
CPX 
BEQ 
LDA 
JSR 
LDA 
AND 
STA 
TAX 
LDA 
JSR 
JSR 
LDA 
JSR 
LDX 
LDA 
AND 
STA 
LDA 
STA 
RTS 


.BYTE 
- BYTE 
~-BYTE 
-BYTE 


$1136,X 
$113A,X 
$1142,X 


S9D6ED 


$1131,X 


$1132,X 


#52D 


#$21 
$6392 
#590 
S9AF3 
$1149 
#$03 
$1149 


S63ED,X 


$640B 
SODF2 
$114E 
$640B 
$1149 


S63ED,X 


#SFO 
$114F 


$63F1,X 


$114E 


SBE, SE4,$41 


$1B 


$41,$1B, SBE 


SE4 


s;And also in locations $1160 - $1163 


;Get the index to the ending X coordinate 
;Move it to the Y register 

;Add starting coordinate to ending coordinate 
;Save the result 

;In locations $1150, $1151 


;Index to the starting Y coordinate 
;At locations $115E, $115F 
;Increment the index 

;To the Y coordinate 

;Branch to do the Y 

;Coordinate 


;Get the value - (Rotation angle/90) 
;Drop the unwanted bits 

;And save the result 

;Use the value as an index 
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KKK KKEKKKKKKKKKKKKK KKK KK KKKKKKKEKKEKKKKKKKKKKKKKKKKKKKKK 


* * 
* Below are the software programmers' names. = 
* * 


KKKKIKKKKEKK KKK KKK KKK KKK HK KKK KKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKK 


63F5: TXT 'fred b! 


63FB; ~.BYTE SOD ;<cr> 
63FC;: TXT ‘Terry: x" 

6403: .BYTE SOD ;<cr> 
6404: TXT "mike i' 

640A: .BYTE $OD ;<cr> 


640B: JSR $6767 
640E: LDX #504 
6410: LDA $1132,X 
6413: ASL 

6414; ROR $1132,X 
6417; ROR $1131,X 
641A: BCC $6424 
641C; INC $1131,X 
641F: BNE $6424 
6421: INC $1132,X 
6424; INX 

6425: INX 

6426: CPX #506 
6428: BEQ $6410 
642A: RTS 


KKKKIKKHK KKK KKK KKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKEKKKEK 


* 

BASIC SSHAPE COMMAND * 

* 

Command syntax: SSHAPE string, X1,Y1 coords * 
[,Xx2,Y2 coords] * 

* 

NOTE: string = the string variable to which you* 


wish to save the area of screen * 
* 


X1,Y1 coords = this is the starting corner 
coordinates for the save 

X2,Y2 coords this is the coordinates of the 

corner that is opposite the 

the starting corner 

(X1,Y1 coords) 


+ + + * *  F F F HF F F F HF F HF F F 


+ + + € F F 
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* This command allows you to save an area of the : 
* the screen to a BASIC string variable. i 
* * 


642B: 


642E: 


6431; 
6434; 
6437: 
643A: 
643C; 
643E; 
6441: 
6443; 
6446; 
6448; 
644B: 
644D: 
644F; 
6451: 
6453; 
64563 
6457: 
6458: 
6459; 
645B: 
645E; 


6460: 
6463; 
6466: 
6469: 
646C; 
646D: 
6470: 
6473: 
6474; 
6477: 
647A: 
647C: 
647E;: 
6480: 


KkeKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


JSR 


JSR 


STA 
STA 
STY 
BIT 
BMI 
JMP 
LDX 
JSR 
LDX 
JSR 
LDX 
LDY 
LDA 
STA 
JSR 
TAX 
TYA 
PHA 
LDY 
JSR 
BCC 


LDA 
STA 
LDA 
STA 
TXA 
STA 
STA 
PLA 
STA 
STA 
LDX 
LDY 
DEC 
DEC 


$A074 


$7AAF 


SFF0O3 
$115F 
$1160 
SOF 
$6441 
S$77E7 
#$28 
S9E6D 
#$04 
$9E52 
#S2A 
#506 
#$02 
S8E 
$9D99 


S8E 
SODF9 
$646C 


$1159,Y 
$1131,Y 
$115A,Y 
$1132,Y 


$1159;,Y 
$O3DB,Y 


$115A,Y 
$03DC,Y 


#$28 
#$04 
S8E 
S8E 


;Check if the Graphics screen is allocated. 
;If the Graphics screen is not allocated, 
;Then generate an error 

;Check to see if the string exists; if not, 
;Create it and return its address in the 
;Accumulator and Y register 

;Enable BASIC BANK 14 

;Save the address of 

;The string's descriptor 

;Is the variable a string? 

;If it is a string, then branch 

;If not, then generate a 'TYPE MISMATCH' error 
;Get the starting X and Y coordinates 

;And store then at locations $1159 - $115C 
;Get the opposite X and Y coordinates 

;And store them at locations $1135 - $1138 
;Index to Yl 

;Index to Y2 

;Index to the storage area 

;For Y2 at locations $1133 - $1134 
;Calculate the difference between Yl and Y2 
;Save the LSB of the result in the X register 
;Save the MSB of the result 

;Onto the stack 

;Get the index to Y2 

;Move Y2 from $1137-$1138 to $1133-$1134 
;If the starting coordinate was less than the 
;Ending coordinate, then branch 

;Else transfer the starting 

;Coordinate (X1 or Y1) from 

;Locations $1159 - $115A to $1131 - $1134 


;Move LSB of the difference between coordinates 
sInto the accumulator and save it 


;Save the MSB of the difference 


;Index to Xl 

;Index to X2 

;Decrement the index by 2 
;To point to X2 
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6482; 
6484; 
6486; 
6489: 
648C; 
648F; 
6492; 
6495; 
6496; 
6499; 
649C; 
649F; 
64A1: 
64A3: 
64A6; 
64A8; 
64AA: 
G4AB: 
64AC: 
64AE: 
64AF: 
64B1: 
64B3: 
64B5; 
64B6; 
64B9: 
64BA: 
64BB: 
64BD: 
64BE; 
64CO: 
64C2;: 
64C4; 
64C6: 
64C73 
64C8: 


64CB: 
64CE; 
64D0; 
64D3; 
64D6; 
64D8:; 
64DA: 
64DC: 
64DE: 
64E1; 


BEQ 
LDY 
SLY 
LDA 
STA 
LDA 
STA 
TYA 
JSR 
STA 
JSR 
LDA 
BCC 
LDA 
BIT 
BPL 
SEC 
ROL 
AND 
TAX 
LDA 
BIT 
BPL 
DEX 
STX 
ASL 
DEX 
BPL 
ROR 
STA 
LDA 
BIT 
BPL 
LSR 
CLC 
ADC 


STA 
BCC 
INC 
JSR 
LDA 
BCS 
LDA 
STA 
LDX 
LSR 


$6453 
#SFF 

$1155 
$1131 
$115D 
$1132 
$115E 


$8690 
SFFO3 
$9CE3 


($8C),Y 


$64B1 
$1131 
SD8 

S64AC 


#507 


#0 
$D8 
$64B6 


$1161 


$64B9 


S8E 
#508 
$D8 
$64C7 


$1131 


$1131 
$64D3 
$1132 
S9CE3 
#0 

$64DC 


($8C),Y 


$8F 
$1161 
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;Branch to do X1 and X2 

;Set the string length to 

;The maximum length of 255 

;Get the X1 value 

;And transfer it 

;From locations $1131 - $1132 

;To $115D - $115F 

s;Move the length of 255 to the accumulator 
;Allocate 255 bytes in string memory for data 
;Enable BASIC BANK 14 

s;Calculate address of the point on HIRES-screen 
;If the cooordinates are 

;Within range, then branch 

;Get the LSB of Xl 

;Check to see if we are in the multicolor mode 
;If not, then branch 

sset the carry flag 

;And shift it into bit 0 

;Calculate the bit position 

;And move the result to the X register 


;Check to see if we are in the multicolor mode 
;If we are not, then branch 

;Subtract one from the bit position 

;Save the bit position 

;Shift the bit — 

;To the proper 

;Position in the byte 


;save the result 

;Value to move to next byte 

;Check to see if we are in the multicolor mode 
;If we are not, then branch 

;Divide by 2 

;Clear the carry for addition 

;Add value to X1's LSB to move to the next byte 
;Across 

;Across and save it 

;If there was no overflow, then branch 
;Increment the MSB by 1 

;Calculate the HIRES screen address 

;Default value 

;If coordinates are out of range, then branch 
;Get the current byte value there 

;And save it 

;Get the bit position 

;Shift the bit 
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64E2; 
64E3: 
64E5: 
64E7; 
64E9; 
64EC3 
64EF: 
64F1; 
64F3: 
64F6: 
64F9; 
64FB: 
64FE: 
6501: 
6504: 
6505: 
6507: 
6509: 
650B: 
650C: 
650E: 
6511: 
6513: 
6515; 
6518; 
651A3 
651D; 
651F: 
6522: 
6524; 
6526: 
6528: 
652B: 
652E: 
6530: 
6533: 
6534; 
6537: 
6539: 
653C: 
653D: 
653F; 
6541; 
6542: 
6545; 
6547: 
654A: 


INX 
CPX 
BNE 
ORA 
INC 
LDY 
CPY 
BCC 
JMP 
STA 
STA 
STA 
LDX 
LDA 
SEC 
BIT 
BPL 
SBC 
. BYTE 
SBC 
STA 
LDA 
BCS 
DEC 
BPL 
LDX 
BNE 
DEC 
BPL 
BIT 
BPL 
ASL 
ROL 
LDX 
LDA 
INY 
STA 
STA 
STA 
INX 
CPX 
BNE 
INY 
STY 
LDA 
STA 
LDA 


#508 
S64E1 
S8E 
$1155 
$1155 
#SFC 
S64F6 
SAS5ED 
SFFO4 


($64),Y 


SFFO3 
$1161 
$1159 


SD8 
$650C 
#504 
$2C 
#$08 
$1159 
S8F 
$64B9 
$115A 
$64B9 
$115B 
$6567 
$115C 
$6567 
SD8 
$652E 
$03DB 
$03DC 
#0 


$03DB,X 


SFFO4 


SFFO3 


#504 
$6530 


$03DB 
$64 
$03DC 
$65 


;To its proper location in the byte 


;Add the bit to be set 

;Increment the string length 

;And use it as an index 

;If the length is less than 255, 

;Then ok 

;Else generate a 'STRING TOO LONG' error 
;Enable BANK 14 with RAM BANK 1 

;Save into the string 

;Enable BASIC BANK 14 

;Get the bit position 

;Get the LSB of the X coordinate 

;Set the carry for subtraction 

;Check to see if we are in the multicolor mode 
;If we are in standard bit map mode, then branch 
;If we are in multicolor mode, the subtract 4 
;Mask 

;If we are in standard bit map, then subtract 8 
;Save the result 

;Get the current byte 

;If there was no underflow, then branch 

;Else decrement MSB by 1 to move to next byte 
;Continue until the row is done 

;Decrement the Y size 

;By one 


;Continue until the columns are completed 
;Check to see if we are in the multicolor mode 
;If we are in standard bit map mode, then branch 
;If we are in multicolor mode, then divide the 
;X size in half 

;Starting index of zero 

;Get a byte of the 

;Size of the shape 

;Enable BANK 14 with RAM BANK 1 

;Save the X and Y size after the shape 

;Enable BASIC BANK 14 

;Increment the index by 1 

;Continue until 4 bytes 

;Are stored at the end of the string 
;Increment the length by 1 

;And save it 

;Get the LSB of the string address 

;And save it 

;Get the MSB of the string address 


254 


Abacus Software C-128 BASIC 7.0 Internals 


ener 


STA $03DD ;And save it 

LDA #SDB ;Value for LSB of address of descriptor ($03DB) 
STA $66 ;Save it 

LDA #$03 *MSB of descriptor address ($03DB) 
STA $67 ;Save it 

LDA $115F s;Move the string's descriptor 

STA $4B ;Address from 

LDA $1160 ;STRADR 

STA $4C ;into LSTPNT 

JSR $5494 ;Create the string 

JMP S9DF2 ;Make X and Y destination into X and Y position 
DEC $115B ;Decrement the length by 1 

INC $1133 ;Increment the 

BNE $6572 ;Current Y coordinate 

INC $1134 ;By 1 to the next row 

LDA $115D ;Return the starting 

STA $1131 ;X1 coordinate 

LDA $115E ;TO locations $1131 - $1132 

STA $1132 

LDA $03DB ;Get the 

STA $1159 7X size 

LDA $03DC ;And 

STA $115A ;Save it 

JMP $649C ;Continue with the new row 


KaKkK KKK KKK KKK KKK KKK KKK KKK kkk kkk kkkkkkkkkkkkkkkkkkkkkkk kkk 


BASIC GSHAPE COMMAND 
Command syntax: GSHAPE string, [,X,Y coords] [mode] 


NOTE: string = the string variable where the 
shape to be drawn is stored 


X,Y coords = the top left corner coordinates 
where the shape is to be drawn 


&m WW MY fF © 


mode (place shape as is) 
(invert the shape) 
(OR the shape with the area) 
(AND the shape with the area) 


(XOR the shape with the area) 


This command allows you to take a shape stored 
in a BASIC string variable and draw it on the screen. 


+ + + +  F  F F F F F F F F F F OF HF HF 
+ + +  F F F F F F F F OF F OF F OF F OH FH 


kakkkkkkkk kkk kkk kkk kkk kkk kkk kkk K KKK KKKKKKKKKK KKK KKK KK KKK 
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658D: 


6590: 


6593: 
6596: 
6599; 
659B: 
659D; 
659F: 
65A2: 
65A5; 
65A7: 
65A9: 


65AC: 
65AF: 
65Bl1: 
65B4: 
65B6: 
65B8; 
65B9: 
65BA; 
65BC; 
65BF:; 
65C2;: 
65C5: 
65C6; 
65C8; 
65CB: 


65CE; 
65D1: 
65D4: 
65D7: 
65DA: 
65DC: 
65DF: 
65E2; 
65E5;: 
65E7: 
65EA: 
65ED: 
65F0; 
65F3: 
65F6; 


JSR 


JSR 


STA 
STA 
STX 
Spl 
LDX 
JSR 
JSR 
CPX 
BCC 
JMP 


STX 
LDX 
LDY 
CPY 
BCS 
RTS 
DEY 
LDA 
JSR 
STA 
STA 
DEX 
BPL 
STX 
JSR 


LDA 
STA 
LDA 
STA 
LDA 
STA 
INC 
LDY 
LDA 
JSR 
STA 
STA 
JSR 
STA 
ASL 


$SA074 


$877B 


SFFO3 
$1153 
$26 
$27 
#504 
$9E52 
S9E1C 
#505 
$S65AC 
$7D28 


$1154 
#503 
$1153 
#505 
S65B9 


#$26 
SO3AB 
SFFO3 


$1159,X 


$65B9 
$1155 
SODF2 


$1159 
$115D 
$115A 
$115E 
#508 

$1169 
$1155 
$1155 
#526 

$O3AB 
SFFO3 
$1157 
$9C49 
$1156 
$1157 


;Check if the Graphics screen is allocated. 
;If the Graphics screen is not allocated, then 
,;Generate an error 

;Place the string address in locations $24, $25 
;And the length in the accumulator 

;Enable BANK 14 

;Place the length of the string in STRSZ 

;Save the address of the string 

yin INDEX2 

;Get the top left X and Y coordinates 

;And store them at locations $1135 - $1138 
;Get the optional mode flag in the X register 
;Check to ensure the mode value 

;Is less than 5 

;If it is not, then generate an 

; "ILLEGAL QUANTITY' Error 

;Save the mode value in GETTYP 

; Index to number of bytes in string's descriptor 
;Get the length of the string 

;If the length of the string 

;Is less than 5, 

;Then exit 

;Decrement the length by one 

;Pointer to the string's descriptor 

;Get a byte of the string's descriptor 

;Enable BASIC BANK 14 

;Save the descriptor in locations $1159 - $115B 
;Continue until 3 bytes 

;Have been transferred 

;Initialize a counter 

;Copy the coordinates from locations 

7$1135 - $1138 to $1131 - $1134 

;Save the 

;Address of 

;The string in RAM BANK 1 


s;Initialize a bit counter 
;To 8 bits in BITCNT 
;Increment the counter by 1 
;Get the value as an index 
;Pointer to the string 

;Get a byte of the string 
;Enable BASIC BANK 14 

;Save the byte of the string 
;Get the corresponding byte from the bit map 
;And save it 

;Shift one bit right 
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65F9; 
65FA:;: 
65FD: 
65FF: 
6601: 
6604; 
6605: 
6608; 
660B: 
660D: 
660F: 
6611: 
6614; 
6616: 
6619; 
661B: 
661D: 
661F: 
6621: 
6624: 
6625; 
6627: 
6629: 
662B: 
662D: 
662F; 
6631: 
6634: 
6637: 
6639: 
663C: 
663D: 
6640: 
6642: 
6644: 
6646: 
6647: 
6649: 
664C; 
664F: 
6651; 
6654: 
6656: 
6658: 
665B: 
665E: 
6661: 


ROL 
DEC 
BIT 
BPL 
ASL 
ROL 
DEC 
LDX 
CPX 
BCC 
BEQ 
EOR 
BCS 
AND 
BCS 
CPX 
BCC 
BEQ 
ORA 
. BYTE 
EOR 
AND 
BIT 
BMI 
AND 
STA 
JSR 
INC 
BNE 
INC 
SEC 
LDA 
BIT 
BPL 
SBC 
. BYTE 
SBC 
STA 
LDA 
SBC 
STA 
BCS 
LDX 
LDA 
STA 
LDA 
STA 


$1169 
SD8 

$6608 
$1157 


$1169 
$1154 
#503 
$661B 
$6616 
$1156 
$6627 
$1156 
$6627 
#1 
$6627 
$6625 
$1156 
$2C 
#SFF 
#$03 
$D8 
$662F 
#1 
$83 
$9C19 
$1131 
$663C 
$1132 


$115D 
SD8 
$6647 
#$02 
$2C 
#$01 
$115D 
$115E 
#0 
$115E 
$6683 
#1 


$1159,X 
$115D,X 
$1135,X 
$1131,X 


;The string value 

;Decrement the bit counter 

;Check to see if we are in multicolor mode 

;If we are in standard bit map mode, the branch 
;Else shift the byte 

;One more bit 

;Decrement the bit coounter by 1 

;Get the mode type 

;Is it the mode for 'AND'? 

;If it is less than, then branch 

;Yes, branch 

;"EOR' the value with memory 

;And branch 

;"AND' the value with memory 

;And branch 

;Should the shape be inverted? 

;If not, then branch 

;Yes, invert the byte 

;Combine the two values 

;Mask 

;Invert the value 

;Drop the unwanted bits 

;Check to see if we are in the multicolor mode 
;If we are in multicolor mode, then branch 

;If we are in standard bit map, then mask bit 0 
;And use it as the color source 

;Plot the point 

;Increment to 

7;The next 

;X coordinate 

;Set the carry for subtraction 

;Get the LSB of the string address 

;Check to see if we are in the multicolor mode 
;If we are in standard bit map mode, then branch 
;If we are in multicolor mode, then subtract 2 
;Mask 

;If we are in standard bit map, then subtract 1 
;Save the result 

;Subtract the carry, if any 

;From the MSB of the string address 

;And save the result 
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6664: DEX 
6665: BPL $6658 
6667: INC $1133 ;Increment the Y coordinate by 1 


666A: BNE S666F 

666C: INC $1134 

666F: SEC ;Set the carry for subtraction 
6670; LDA $115B 

6673: SBC #1 

6675: STA $115B 

6678: LDA $115c 

667B: SBC #0 

667D: STA $115¢c 

6680: BCS $668B 


6682: RTS 

6683: LDA $1169 ;Check if 8 bits have been done 

6686: BEQ $668B ;If so, then continue with next byte 
6688: JMP S65F0 ;Else continue 

668B: JMP S65DA ;Transfer the next byte of the string 


KKKKK KK KKK KKK KKK KK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKK 


BASIC CIRCLE COMMAND 


Command syntax: CIRCLE [color source],X,Y coords 
[,X,Y radii] [,sarc] [,earc] [,angle] 
fincr] 

NOTE: color source = (background color) 

(foreground color) 

(multicolor 1) 

(multicolor 2) 


WHY Fr © 


X,Y coords = the coordinates of the center 
of the circle 


X,Y radii = the X and Y radii 
Sarc = the starting arc angle 
earc = the ending arc angle 
angle = the rotation in degrees 


incr = the number of degrees between 
each segment 


+ &€ + + &€ ££ + + € FF FF FF FF FF FF FE F F FF F F HF F FF F F 
+ + © € € FF € FF F F FF FF FH F HF F FH FF F FF HF FE HF F F 
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668E; 
6691; 
6693: 
6696; 
6699; 
669C; 
669F; 
66A2; 
66A5; 
66A8; 
66A9; 
66AB: 
66AE: 
66AF: 
66B1; 


66B4: 
66B7: 
66BA; 
66BC: 
66BE; 
66C1: 
66C2: 
66C5;3 
66C8: 
66CB: 
66CE: 
66D1: 
66D4: 
66D7: 
66DA; 
66DC: 
66DD: 
66DF: 
66E2: 
66E4: 
66E6: 


66E9: 
66EB: 
66ED: 


JSR 
LDX 
JSR 
JSR 
STY 
STA 
JSR 
STY 
STA 
PHP 
LDX 
JSR 
PLP 
BCS 
LDA 


STA 
LDA 
BIT 
BPL 
ASL 
ROL 
STA 
JSR 
STY 
STA 
JSR 
STY 
STA 
JSR 
STA 
TYA 
LDY 
JSR 
LDX 
LDY 
JSR 


BCC 
LDA 
LDY 


This command allows you to draw circles, ellipses, 
or arcs depending on the parameter values that were 
specified after the CIRCLE command. 


S9OR2F 
#S1F 

S9E52 
$9R06 
$1154 
$1155 
$9E06 
$1156 
$1157 


#$23 
SOD4A 


$66C2 
$1154 


$1156 
SL155 
SD8 

$66C2 
$1156 


$1157 
$9E06 
$115C 
$115D 
$9E06 
$115E 
$115F 
S$9E06 
$77 


$77 
S9A77 
#$2D 
#$2B 
S9D7TC 


S66F9 
#568 
#1 


C-128 BASIC 7.0 Internals 


+ + + 


KKK KKKKKKKKEKKEKKKKKEKKKKKKKKKKKK KKK KK KK KKK KKK KKK KK KKK KKK K 


;Get color source and store it at location $83 
;Get the center X and Y coordinates 

s;And store them at locations $1150 - $1153 
;Get the X radius 

;Save the LSB 

;And the MSB of the X radius 

;Get the Y radius 

;Save the LSB 

;And the MSB of the Y radius 

;Save the status register 

;Pointer to the X radius 

;Check scaling; adjust coordinates if selected 
;Restore the status flags 

;If the Y radius was specified, then branch 
;If the Y radius was not specified, then 
;Make the Y radius 

;Equal the X radius 

;Get the MSB of the X radius 
;Check for multicolor mode 

;If we are not in multicolor mode, 
;Divide the X radius by 2 

;To arrive at the correct 

;Y radius 

;Get the starting arc angle 

;And save 

; It 

;Get the ending arc angle 

;And save 

pit 

;Get the rotation angle 

;Save the MSB 

;Move the LSB to the accumulator 
;And the MSB to the Y register 


then branch 


;Index to ending are angle 
;Index to starting are angle 


;Compute the difference between the starting and 


;Ending arc angles 

;If Ending arc angle was greater, then branch 
;Else add 360 

;To the ending 


259 


Abacus Software C-128 BASIC 7.0 Internals 





66EF: JSR $9D70 ;Arc angle 

66F2: STA $1131,X ;And save 

66F5: TYA ;The result 

66F6: STA $1132,X 

66F9: LDX #$03 ;Move the X and Y 

66FB: LDA $1154,X ;Radius from locations $1154 - $1157 
66FE: STA $1158,X ;To $1158 - $115B 

6701: DEX 


6702: BPL S66FB 
6704: LDA #$90 
6706: JSR S9AF3 


6709: LDX #$07 ; Index to the number of bytes to transfer 
670B: LDA $1154,X ;Move all the coordinates 

670E: STA $1160,X ;From locations $1154 - $115B 

6711: DEX ;To $1160 - $1167 


6712: BPL $670B 
6714: JSR $6750 
6717: JSR S9ODF2 


671A: LDX #$02 ;Set default number of degrees per segment to 2 

671C: JSR S9E1E ;Get the number of degrees per segment 

671F: TXA ;Move the value to the accumulator 

6720: BNE $6725 ;If the value is equal to zero, 

6722: JMP $7D28 ;Then generate an 'ILLEGAL QUANTITY' error 

6725: STX $1220 ;Save the number of degrees per segment 

6728: CLC ;Clear the carry for addition 

6729: LDA $1220 ;Add the number of 

672C: ADC $115c ;Degrees per segment to 

672F: STA $115¢ ;The starting arc angle 

6732: BCC $6737 ;If there was no overflow, then branch 

6734: INC $115D ;If there was overflow, increment MSB by 1 

6737: LDX #$52D ;Index to ending arc angle 

6739: LDY #$2B ;Index to starting arc angle plus 
;Number of degrees per segment 

673B: JSR $9D7C ;Compute difference between starting and 
;Ending arc angles 

673E: BCS $6748 ;If starting arc angle was greater, then branch 


6740: JSR $6750 
6743: JSR $9B30 
6746: BCC $6729 
6748: LDY #$2D 
674A: JSR $6752 
674D: JMP $9B30 
6750: LDY #52B 
6752: JSR $9A74 
6755: LDX #507 
6757: LDA $1160,X 
675A: STA $1154,xX 
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6782: PHA 
6783: TYA 
6784: PHA 
6785: LDY #521 
6787: INX 
6788: INX 


6789: CPX #527 
678B: BEOQ $676E 
678D: LDX #$03 


678F: PLA 

6790: STA $1135,X 
6793: DEX 

6794: BPL $678F 
6796: RTS 


KAKKKKKKEKKEKKKKEKKKKKKKEKKKKEKKEKKKKKKKKKKKKKK KK KKK KKK KKK KK KKK 


BASIC DRAW COMMAND 


Command syntax: DRAW [color source], [X1,Y1 coords] 
[TO X2,Y2 coords]... 


WhO Fr © 


NOTE: color source (bit map background) 
(bit map foreground) 
(multicolor 1) 


(multicolor 2) 


X1,Y1 coords 


the starting coordinates 


X2,Y2 coords 


the ending coordinates 


+ + +  % F F F F F F F OF FF OF 
+ + +  F OF F OF F F F F OF HF F 
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67973 


679A: 
679C; 
679E; 
67A1: 
67A3: 
67A5: 
67A8: 
67AB: 
67AD: 
67B0;: 
67B3: 
67B5; 
67B7: 
67B9: 
67BB: 
67BC: 
67BD: 
67CO: 
67C2: 
67C5; 
67C6: 
67C8: 
67CB; 
67CE: 


67D1: 
67D4: 


* 


* 


* 


This command allows you to DRAW dots, 


lines, and * 


shapes at the positions specified by the coordinates.* 


* 


KKKKKKKKKKKKKKEKKKKEKKEKKKEKKKKEKKKEKEKKKEKEKKKKKKKKKKKKKKEK 


JSR 


LDX 
STX 
JSR 
CMP 
BEQ 
JSR 
JSR 
BNE 
JMP 
JSR 
CMP 
BEQ 
CMP 
BEQ 
RTS 
PHA 
JSR 
LDX 
JSR 
PLA 
BPL 
JSR 
JMP 
JSR 


JSR 
JMP 


$A074 


#1 
$83 
$0386 
#SA4 
$67B0 
$9E32 
$0386 
$67B0 
S9BFB 
$0386 
#$2C 
$67BC 
#S$A4 
$67BC 


$0380 
#504 
S9E70 


S67CE 
$9B30 
$67B0 
S9ODF2 


SOBFB 
$67B0 


;Check if Graphics screen is allocated. 
;Graphics screen was not allocated, then 
;Generate an error 

;Set the default color source 

eToO 1 

;Get the character after the DRAW command 
;Is it the token for 'TO'? 

;If it is, then branch 

;Get color source and store it at location $83 
;Get the next character 

;If there are more parameters, then branch 
;Else plot the pixel and exit 

;Check if the next character 

;Is a comma 

rit 
sis 


If the 


the character is a comma, 
it the token for 'TO!'? 
;If it is, then branch 

sIf it is not, then exit 
;Save the character temporarily onto the stack 
;Get the next character 

;Obtain the ending coordinates 

;And store them at locations $1135 - $1138 
;Get the character back 

;If it is not the token for 
;Draw the Line 

;Continue, and check next character 
;Move the coordinates from locations 
7$1135 - $1138 to $1131 - $1134 

;Plot the point 

;And jump to process the next character 


then branch 


'TO', then branch 


KKKKKKKEKKKEKKKKKEKKEKKKEKEKKEKKEKEKKKEKKEKKEKKKKKKKEKKKKKKKKEKEK 


+ + + + FF F F F F F 


Command syntax: 


NOTE: 


BASIC CHAR COMMAND 


CHAR [color source],C,R [,string] 
[,rev. flag] 


color source = 


0 (background color) 
1 (foreground color) 


+ + + + + € ££ FF F F 


Q 
lI 


column to start printing at 
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67D7: 


67DA: 


67DC: 


67DE: 
67E0; 
67E2: 
67E5: 
67E6: 
67E7: 
67EA: 
67ED: 
67F0: 
67F3: 


67F5: 
67F8: 
67FB: 
67FE: 
6800; 
6803: 
6806: 
6809: 
680B: 
680D; 
680F: 


JSR 


LDX 


LDY 


LDA 
BNE 
JSR 
INX 
INY 
STX 
STY 
JSR 
CPX 
BCS 


STX 
JSR 
CPX 
BCC 
JMP 
STX 
JSR 
BNE 
LDA 
BEQ 
JSR 


reverse field is enabled. 


R = row to start printing at * 

* 

string = string of characters to be * 

printed * 

rev. flag = reverse field flag * 

* 

where: 0 = off i 

1 = on * 

* 

This command allows you to display characters to the * 
screen at the point specified by the 'C' and 'R! * 
parameters. This command also has the option to * 
allow you to print the characters in the reverse * 
field. If the 'rev. flag' is a one, then the * 
* 

* 

* 


KKEKKKKKKKKKKEKKKKKKKKEKKKKKKKK KKK KKKKKKKKKKKKKKKKKKKKKK 


$9E32 


#529 


#S1A 


SD8 
S67E7 
SFFED 


$115E 
$115F 
$8809 
S115E 
$6800 


S115E 
$8809 
$115F 
$6803 
$7D28 
$115F 
$0386 
S680F 
#0 

$6815 
$795C 


7;Get the color source, 
;At location $83 
;Load the X register with the maximum number 
;Of columns plus one 

;Load the Y register with the maximum number 
;Of rows plus one 

;Check if we are in the text or graphics mode 
;If we are in the graphics mode, then branch 
;Get the size of the current window , 
;Add one to the column value 

;Add one to the row value 

;Save the maximum column value plus one 

;Save the maximum row value plus one 

;Get the column into the X register 

;If it is greater than 

;The maximum number of columns, 
7An ‘ILLEGAL QUANTITY' error 
;Save the column to start outputting at 
;Get the row value into the X register 
;If the row value specified 

;Is within the proper range, then branch 
;Generate an 'ILLEGAL QUANTITY' error 
;Save the row to start outputting at 
;See if there is anything after the 

;Row coordinate, and if so, then branch 
;If not, then set the length 

;Of the string to zero, and branch 
;Check for a comma, and generate a 
serror if not found 


if any, and save it 


then generate 


"SYNTAX' 
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6812; 
6815; 
6818; 
681B: 
681C: 
681D; 
681E: 
681F3 
6822; 
6823: 
6824: 
6827: 
6828: 
682A; 
682B: 
682D; 
682F: 
6831: 
6834: 
6837: 
6838; 
683B: 
683D: 
6840; 
6842; 
6844; 
68473 
684A; 
684C: 
684F; 
6852: 
6855; 
6856; 
6858: 
685B: 
685D: 
685F: 
6862: 
6863: 
6866: 
6869: 
686C: 
686E: 
686F: 
6870; 
6872: 
6873: 


JSR 
STA 
STA 
TYA 
PHA 
TXA 
PHA 
JSR 
TXA 
ROR 
ROR 
PLA 
STA 
PLA 
STA 
LDA 
BNE 
LDX 
LDY 
CLC 
JSR 
LDY 
BIT 
BPL 
LDA 
JSR 
CPY 
BEQ 
JSR 
JSR 
JSR 
INY 
BNE 
BIT 
BPL 
LDA 
JSR 
RTS 
JSR 
LDA 
STA 
LDA 
TAX 
PHA 
LDA 
PHA 
BIT 


$877B 
SFFO3 
$116E 


$9E1C 


$113D 


$24 


$25 
$D8 
$6863 
$115F 
$115E 


$928D 
#0 
$113D 
$6847 
#$12 
SCOOC 
$116E 
$6858 
$03B7 
SA845 
$c00c 


$6847 
$113D 
$6862 
#592 

$COOC 


$A074 
$11EC 
$1168 
$86 


$83 


$D8 


;Evaluate the string of characters to output 
;Enable BANK 14 

;Save the length of the string 

;Save the MSB of the 

;Address of the string onto the stack 

;Save the LSB of the 

;Address of the string onto the stack 

;Get REVERSE flag, if any, into the X register 
;Move the flag into the accumulator 

;If the flag = 1, then carry flag = l 

;Move the carry into bit 7 

;Get the LSB of the string's address 

;And save it 

;Get the MSB of the string's address 

;And save it 

;Check to see if we are in the graphics mode 
;If we are in the graphics mode, then branch 
;Get the column 

;And the row to start outputting at 

;Clear the carry for addition 

;PLOT - position the cursor 

;Value to check string length 

;Check the reverse flag 

s;If it is to be non-reversed text, then branch 
;Value for reverse mode 

;Turn on the reverse mode 

;Have we outputted the whole string yet? 

;If so, then exit 

;Get a character of the string 

;Enable BANK 15 

,;Output the character to the screen 

;Move to the next character 

;Branch to continue 

;Check the reverse flag 

;if the reverse mode is not on, then exit 
;Value to turn off reverse mode 

;Output it 

PEXLEt 

;Ensure the graphics screen has been allocated 
;Get page number for the Uppercase characters 
;And save it 

;Get the current foreground color 

;And save it 

;Onto the stack 

;Get the current color source 

;And save it onto the stack 

;Check which graphics mode we are in 
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6875: 
6877: 
6878: 
687A: 
687B: 
687D: 
687F: 
6881: 
6883: 
6885: 
6887: 
6888; 
688A: 
688D: 
6890: 
6892; 
6895: 
6897; 
689A: 
689D: 
68A0;: 
68A3: 
68A6: 
68A9: 
6SAB: 
68AD: 
68AF: 
68B2: 
68B4; 
68B6:;: 
68B8: 
68BB: 
68BE: 
68C0: 
68C3: 
68C6: 
68C9; 
68CB: 
68CD: 
68CF: 
68D2: 
68D3: 
68D5: 
68D7: 
68D8: 
68DA;: 


BPL 
PLA 
BEQ 
LSR 
BEQ 
LDX 
BCC 
LDX 
BCS 
LDX 
PLA 
BNE 
JSR 
LDX 
STX 
LDX 
LDY 
STY 
LDY 
INC 
JSR 
STA 
DEC 
BMI 
CMP 
BNE 
LDA 
BNE 
CMP 
BNE 
LDA 
STA 
BNE 
LDY 
JSR 
INC 
Cry. 
BCC 
LDY 
STY 
INX 
CPX 
BCC 
PLA 
STA 
RTS 


$6885 


$6890 


$6890 
$84 
$6890 
$85 
$6890 
$86 


$6890 
SA845 
$D021 
S86 
$115F 
#0 
$1160 
$1160 
$1160 
$03B7 
SFFO3 
$116E 
$68D7 
#SOE 
$68B4 
$11EB 
$68BB 
#S8E 
$68CO 
$11EC 
$1168 
$68C9 
$115E 
$68DB 
$115E 
#$27 
$689A 
#0 
$115E 


#$18 
S689A 


$86 


;If it is not multicolor mode, then branch 
;Get the color source back 

;If color source was background, then branch 
;Shift bit O of the color source into the carry 
;If the color source was 1, then branch 
;Get the multicolor 1 value 

;If the color source was 2, then branch 
;Get the multicolor 2 value 

;If the color source was 3, then branch 
;Get the current foreground color 

;Get the color source back 

;If it was not zero, then branch 

;Enable BANK 15 

;Get the current background color 

;Save it as the current foreground color 
;Get the selected row 

;Clear the character 

Counter 

;Get the counter as an index 

;Increment the counter by one 

;Get a character of the string 

;Enable BANK 14 

;Subtract one from the string length 

;If we are done, then exit 

;Is the character CHR$(14) for lowercase? 
s;If not, then branch 

;Get the page number of the Lowercase 
;Character set and branch 

;Is it the value for the Uppercase characters? 
sIf not, then branch 

;Get page number of Uppercase character set 
;And save it 

;Branch to output 

;Get the current column for output 

;Output the character to the HIRES screen 
;Move to the next column 

;Was the last column 39? 

;If not, then continue 

s;If it was column 39, 

;Set the column to zero 

;And increment the row by 1 

;Have we passed the maximum number of rows? 
;If not, then continue 

;Get the foreground color back 

;And save it 

s;Exit the routine 
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68DB: 
68DC; 
68DF: 
68E0: 
68E1: 
68E4:; 
68E6: 
68E9:; 
68EB: 
68ED: 
68EE: 
68F0; 
68F1: 
68F3: 
68F4; 
68F 6: 
68F 9: 
68FB: 
68FD: 
68FE; 
68FF: 
6900: 
6902; 
6903: 
6904: 
6906: 


6908: 
690A: 
690D: 


KKKKKKKKEKKKKKKKKKKKKEKKEKKEKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


PHA 
JSR 
TYA 
CLC 
ADC 
STA 
LDA 
ADC 
ASL 
ROL 
ASL 
ROL 
ASL 
ROL 
STA 
STA 
LDA 
STA 
PLA 
PHA 
ASL 
ROL 
ASL 
ASL 
ROL 
STA 


LDA 
ADC 
STA 


This routine is used to output a character to the 


HIRES screen. 


On entry to this routine, the 


accumulator must hold the character to be outputted. 
The Y and X registers must hold the row and column 
respectively, of where you wish the character to be 


stored. 


Location $113D must have bit 7 set if a 


$1168 must hold the page number (MSB) of the address 


of the character set you wish to use. 


On exit from 


this routine, the A, X, and Y registers are 
preserved and the system is configured to BANK 14. 


$9C70 


$C033,X 


$8C 


$CO4C,X 


#0 
$8C 


S8C 
$8C 
$8D 
SFFO3 


#0 
S77 


$77 


$77 
$26 


$77 
$1168 
$27 


* 
* 

* 

* 

* 

* 

reversed character is to be outputted and location 
* 

* 

* 

* 

* 

* 


KKKEKKKKKEKKKKKKKKEKKKEKKKKEKKKEKKKKKKKEKKKKKKKKKKKKKKKKKEKKKK 


;Save the character to output 

;Fill specified color cell with selected color 
;Move the column value to the accumulator 
;Clear the carry for addition 

;Add column to LSB of appropriate screen address 
;Save the result 

;Get the MSB of the screen address 

;Add the carry to it 

s;Multiply the 16 bit 

;Value by 8 

;To calculate the appropriate 

*;HIRES screen address 


;Save the MSB of the address 

;Enable BANK14 

;Clear a temporary 

;storage area 

;Get the character to output 

;Save it back onto the stack 

;Multiply the character value 

;By 8 

;Saving any overflow 

;As the MSB 

;In location $77 

;Save the result as the LSB of the character set 
;Address 

;Get the MSB 

;Add to page of character set to get the MSB 
;Of the proper address in the character ROM of 
sthat character and save it 
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690F: 
6910: 
6911: 


6913: 
6916: 
6917: 
6919; 
691B: 
691D: 
691F: 
6921; 
6923; 
6925; 
6927; 
6929; 
692B;: 
692D: 
692E: 
6930; 
6932: 
6934; 
6936: 
6938; 
693A: 
693C; 
693E; 
6940: 
6942; 
6944; 
6945: 
6947: 
6949; 
694B: 
694C;: 
694E: 
694F: 
6951: 
6952: 
6953; 
6954: 


TYA 
PHA 
LDY 


LDA 
ASL 
LDA 
BCC 
EOR 
BIT 
BPL 
AND 
STA 
LDA 
BNE 
LDA 
BCS 
LSR 
EOR 
EOR 
BNE 
ORA 
BNE 
CMP 
BNE 
LDA 
BCS 
BCC 
LDA 
LSR 
EOR 
BCC 
LDA 
LSR 
STA 
DEY 
BPL 
PLA 
TAY 
PLA 
RTS 


#507 


$113D 


($26) ,¥Y 


$691D 
#SFF 
$D8 
$694C 
#SAA 
$77 
$83 
$6938 
$77 
$6934 


$77 
#SAA 
$694C 
#$55 
$694C 
#502 
$6940 
$77 
$694C 
$6949 
$77 


$77 
$694C 
$77 


($8C),Y 


$6913 


;Move the column to the accumulator 

;And save it onto the stack 

;Index - 1 to the number of bytes in the 
;character definition 

;Get the reverse flag 

;And move reverse bit, if any, into the carry 
;Get a byte of the character defintion 

;If not reverse, then branch 

;Invert the character definition 

;Check which type of graphics mode we are in 
;If it is not the multicolor mode, then branch 
;Mask the bits for multicolor 2 

;And save the result 

;Get the current color source 

sIf it is not background (0), then branch 
;Get the modified bit pattern 

;If the reverse flag is set, then branch 
s;Shift the bit pattern right one bit 
s;Invert the bits 

;TO generate the reverse value 

;Branch to store it in the bit map 

;Set the even bits for multicolor 1 

;And branch to store it in the bit map 

;Is the color source 2? 

s;If not, then branch 

;Get the modified bit pattern 

;If the reverse is specified, then branch 
;If the color source is less than 2, then branch 
;Get the modified bit pattern 

;Move it one bit to the right 

s;Invert the odd bits for multicolor 2 
;Branch to output it to the bit map 

;Get the modified bit pattern 

;Move it one bit to the right 

;Store character byte to the HIRES screen 
;Move to next byte of character definition 
;Continue until eight bytes have been done 
;Get the column value back 

;And save it in the Y register 

;Get the character that was outputted 

;And exit 
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KEKKKKKKKKKKEKKKK KKK KKK KEKE KKKKKKKKKKKKKKEKKKKKKKKKKEK 


* 
BASIC LOCATE COMMAND * 
* 

Command syntax: LOCATE X,Y coordinates * 
* 

NOTE: X,Y coordinates = the position to move the * 
bit map pixel cursor to * 
* 

* 

* 

* 

* 

* 

* 


This command allows you to place the bit map pixel 
cursor to a specified position on the screen. The 
values of the X, Y coordinates may range from 0, 0 
to 320, 200. 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KAR KKKKKKKKKK KKK KKK KEKE KKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKK 


6955: JSR S$A074 sEnsure GRAPHICS area has been allocated, if not 
;then generate a ‘NO GRAPHICS AREA' error 

6958: LDX #504 ;Obtain the coordinates 

695A: JSR $9E70 ;And store them in locations $1135 - $1138 

695D: JMP SODF2 ;Move X and Y destination coordinates 


s;Into locations $1131 - $1134 


KAEKKKKKEKKKEKKKKKK KEKE KKKKKKKEKKKKKKKEKKKEKKKKKKKKKKKKKKKKKEK 


* * 
* BASIC SCALE COMMAND * 
* * 
* Command syntax: SCALE n [,X max,Y max] “ 
* * 
* NOTE: n= 0 (turn the scaling off) * 
- 1 (turn the scaling on) = 
* * 
* X max = the X coordinate may be scaled * 
* from 0 - 32767 * 
x * 
ig Y max = the Y coordinate may be scaled * 
= from 0 - 32767 * 
* * 
* This command allows you to scale the X and Y . 
* coordinates in the graphics mode. * 
* * 
KHKKKKKKEKKKKKKKKKKKEKKK KKK KEKE KIKKKKKKKKKKKKKKKKKE KK KKK KKK 


6960: JSR S87F4 ;Convert first parameter into Hex in X register 
6963: CPX #2 ;Is the value less than two? 

6965: BCC S696A ;Yes, then branch 

6967: JMP $7D28 ;If it is greater than two, then generate an 
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696A: 


696D: 
6970: 


6972: 


6974; 
6976: 
6978: 
697A: 
697C; 
697D; 
697F; 
6981: 
6983: 
6985: 


6986: 


STX 


JSR 
BNE 


LDX 


LDA 
LDY 
BIT 
BPL 
LSR 
STX 
STA 
STX 
STY 
RTS 


JSR 


; "ILLEGAL QUANTITY' error 


S116A ;Save the flag to indicate if scaling is to be 
j;used in SCALEM 

$0386 ;Get the second parameter (X scaling factor) 

$6986 ;If the second parameter is specified, then 
sboranch 

#0 ;If the first parameter is zero or the second 
;parameter is not specified, 

#$50 ;Then set the X and Y scaling 

#$32 ;Factor to 

SD8 ;To 1023 x 1023 if the multicolor 

$697D ;Mode is not enabled 
;If the multicolor mode is enabled, 

$87 ;Then set the 

$88 ;X and Y scaling factors to 

$89 ;The default value of 

S8A 32047 x 1023 


;Exit this routine 


KK KKK KKK KKK KKK KKK KKKKK KKK KKK KK KK KKKKEKKKEKKKEKKKK KKK KKK KKK 


* * 
* This routine is used to obtain the X and Y scaling * 
* factors the programmer has requested by using the re 
* following formulas; i 
* * 
* SCALE - X = 20971200/X MAX * 
* * 
* and x 
* * 
* SCALE - Y = 13107000/Y MAX * 
* * 
* Upon entry to this routine, TXTPTR is pointing to * 
* the comma before the X-MAX parameter in the BASIC * 
* SCALE command and the result of the aforementioned * 
* formulas are stored as follows: * 
* * 
* SCALE - X = $87, $88 * 
* * 
i and . 
* * 
* SCALE - Y = $89, $8A * 
* * 
KK KK KK KK KK KKK IK KK KKK KK KKK KKK KKK KKK KIKI KK KEKKEKKKKKEKKKKKEK 


$69C4 ;Get the value of the X - scaling factor and 
;Place it into FAC] 
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6989: 
698B: 
698D; 
6990: 
6993: 


6996: 
6998: 
699A: 
699C: 
699F: 
699F; 
69A0: 
69Al: 


69A4: 
69A6; 
69A8: 
69AB: 
69AE;: 


69Bl1: 
69B3: 
69B5: 
69B7: 
69B9:; 
69BB: 
69BD; 
69BE:3 
69C0; 
69C1: 
69C3: 


69C4: 


LDA 
LDY 
JSR 
JSR 
JSR 


CMP 
BNE 
CPY 
BEQ 
PHA 
TYA 
PHA 
JSR 


LDA 
LDY 
JSR 
JSR 
JSR 


CMP 
BNE 
CPY 
BEQ 
STY 
STA 
PLA 
STA 
PLA 
SOTA 
RTS 


JSR 


#$D8 
#569 
$8A89 
$8B4C 
$8815 


#0 
S699F 
#0 
$69D5 


$69C4 


#SDD 
#569 
S8A89 
$8B4C 
$8815 


#0 
$69B9 
#0 
$69D5 
$89 
S8A 


$87 


$88 


;Move the value 

320971200 into 

;FAC2 

;FAC1 = 20971200/ the X - scaling factor 
;Convert the result into a two byte integer in 
;The Y register and the accumulator (LSB, MSB) 
;Check to see if the value 

;Is equal to zero 

;And if it is, then 

;Branch to generate an ‘ILLEGAL QUANTITY' 
;Save the MSB of the value onto the stack 
;Move the LSB into the accumulator 

;sSave the LSB onto the stack 

;Get the value of the Y - scaling factor and 
;place it into FAC1 

;Move the value 

713107000 into 

;FAC2 

;FAC1l = 13107000/ the Y - scaling factor 
;Convert the result into a two byte integer in 
;The Y register and the accumulator (LSB, MSB) 
;Check to see if the value 

;Is equal to zero 

;And if it is, then branch to 
;generate an ‘ILLEGAL QUANTITY' 
;Save the Y - scaling factor 
s;Into SCALE - Y 

;Get the X - scaling 

;Factor off of the stack 

;And save it 

;Into SCALE - X 

;Exit the routine 


error 


error 


KKEKKKKEKKKKEKK KKK KKK KEKE KK KKKKEKKKKKKKKKKKKKKEKKKKKKKKKRKKKKKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


This routine first checks to ensure that the 
character that TXTPTR is pointing to is a comma. 

If the character is a comma, then the routine skips 
it and converts the ASCII value of the 
that follows the comma into its equivalent Floating 
Point Number in FAC1. 
the number is positive and less than 32767. 


$795C 


character 


The routine then ensures that 


+ + + + £ € F HF F 


KEK K KKK KK KKK KKK KKK KKK KKK KKK KKKKKKKKKKEKKEKKKKKKKKKKKKEKKKKK 


;Check to ensure that there is a comma 
;Between the parameters 
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69C7: JSR $77D7 ;Evaluate the expression 
69CA: LDA $68 ;If the value is not positive, then 
69CC: BMI $69D5 ;branch to generate an 'ILLEGAL QUANTITY' error 
69CE: LDA $63 ;Get the exponent of the Floating Point Number 
; (First parameter) 
69D0: CMP #$90 ;And ensure that the value is less than +32767 
69D2: BCS $69D5 ;If not, generate an "ILLEGAL QUANTITY' error 
69D4: RTS sExit the routine 
69D5: JMP $7D28 ;Generate an ‘ILLEGAL QUANTITY’ error 
KkkkkkkkkkkkKkKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
* * 
* X - SCALE * 
* * 
* The following value is used to obtain the scaling * 
* factor for the X coordinate. This value is stored * 
* in Floating Point format. as 
* * 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 


EX Ml M2 M3 M4 


69D8: .BYTE $99,S$1F,SFF,$60,$00 ; 20971200 


KKEKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKEKKKKKKKKKKK 


* * 
* Y - SCALE * 
* * 
* The following value is used to obtain the scaling * 
* factor for the Y coordinate. This value is stored * 
* in Floating Point format. x 
* * 
KRKKKKKKKKEKEKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKEK 


EX Ml M2 M3 M4 


69DD: .BYTE $98,$47,SFF,$38,$00 ; 13107000 


KEKKKKKKKEKKEKKKKKKEKKKKKEKKKKKKEKKKKKKKKKKKKRKKKKKKKKKKKKKKK 
BASIC COLOR COMMAND 

Command syntax: COLOR source, color 

NOTE: source = O (40 column background color) 


1 (40 column foreground color) 
2 (multicolor 1) 


+ + + + + + + 
+ + + + € &€ F 
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69F2: 
69E5; 
69E7: 
69E9: 
69EB: 
69EE: 
69EF: 
69F1; 
69F3:;: 
69F6;3 
69F73 
69F9; 
69FB: 
69FD;: 
69OFF: 
6A02: 
6A04; 
6A06; 
6A08: 
6A0A: 
6A0C: 
6A0E: 
6A10; 
6Al2: 
6A14: 
6A16: 
6A18; 
6A1A: 
6A1C;: 
6A1F: 
6A21: 
6A23: 
6A25:; 
6A26: 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


This command lets you set colors for the 
various screen modes. 


S87F4 
#7 
$6A49 
$77 
$8809 


#16 
S$6A49 
SA845 


Ce Ar 
#1 
S6A04 
S6A08 
$DO021 
$6A43 
$86 
S6A43 
#3 
$6A12 
S6A16 
$84 
S$6A43 
$85 
$6A43 
#5 
S6A21 
$6A32 
$D020 
$6A43 
$D7 
S$6A2D 


SF1 


color = the value of the color to be used 
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(multicolor 2) 

(40 column border color) 

(character color - 40 or 80 column) 
(80 column background color) 


OO & W 


(1 = white, 2 = black, etc...) 


+ + + €* € € FF F F 


KKK KKK KKK KKK KKK KKK KKK KK KKKK KEKE KKKKEKEKKKKKKKKKKKKK KEK 


;Convert ASCII to numeric 

;Is the source number greater than 6? 

;If so, generate an ‘ILLEGAL QUANTITY’ error 
;Save the source number 

;Get the color number 

;Subtract one 

;Is the color number greater than 16? 

;If so, generate an 'ILLEGAL QUANTITY’ error 
;BANK 15 COMMAND 

;Transfer the color number into the accumulator 
;Get the source number 

;Is it for the 40 column foreground? 

;If it is, then branch 

;If it is greater than one, then branch 

;Set the background color 

;If color number is not for black, then branch 
;Save the color number 

;If it is for black (0), then branch 

;Source color = multicolor 2? 

;If so, then branch 

;Greater than three, then branch 

;Save multicolor 1 color number 

;l£f color number is not for black, then branch 
;Save the color number 

;If color number is for black, then branch 

;Is it the character color? 

;If it is, then branch 

;It is the 80 column background color 

;Set the border color 

;If color number is not for black, then branch 
;Check to see if we are in the 40 column mode 

;If we are, then branch 

;Transfer the color code into the accumulator 

;Get the current character color code 
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6A28: AND #SFO ;Drop bits 4 - 7 
6A2A: ORA S6A4C,X ;Add the new character color from the table 
6A2D: STA SFi ;Save the new character color code 


6A2F: JMP $6A43 


This section of code handles the 80 column screen. * 
9 a a a ag a a a ee a a ee * 
6A32: TAX 
6A33: LDA #26 ;Address VDC register 26 to set 
6A35: STA $D600 ;The new Foreground/Background color 
6A38: LDA SD601 ;Get the register's current contents 
6A3B: AND #SFO ;Drop bits 4 - 7 (foreground) 
6A3D: ORA S6A4C, X ;Add the new character color from the table 
6A40: STA S$D601 ;Save the new character color code 


6A43: JSR $6A5C 
6A46: JMP S9E1E 


6A49:; JMP $7D28 ;Generate an 'ILLEGAL QUANTITY' error 
Kee ee a a a a a a a a a a a = a a a a a a ee ee * 
* * 
ij 80 COLUMN COLOR CODES FOR THE RGB MONITOR x 
* * 
* NOTE: R = Red, B = Blue, G = Green, I = Intensity * 
* * 
Ke eee ee ee a * 


6A4C; ~-BYTE #%00000000 ; O01 BLACK 

6A4D: -BYTE #%00001111 ; O2 WHITE 

6A4E: -BYTE #%00001000 ; O03 Dark Red 
6A4F; ~-BYTE #%00000111 ; 04 Light Cyan 
6A50: .BYTE #%00001011 ; O5 Light Purple 
6A51: -BYTE #%00000100 ; 06 Dark Green 
6A52: .BYTE #%00000010 ; O7 Dark Blue 
6A53: .BYTE #%00001101 ; 08 Light Yellow 
6A54: .BYTE #%00001010 ; O09 Dark Purple 
6A55: .BYTE #%00001100 ; 10 Brown 

6A56: .BYTE #%00001001 ; 11 Light Red 
6A57: .BYTE #%00000110 ; 12 Dark Cyan 
6A58: .BYTE #%00000001 ; 13 Medium Gray 
6A59: -BYTE #%00000101 ; 14 Light Green 
6A5A: .BYTE #%00000011 ; 15 Light Blue 
6A5B: .BYTE #%00001110 ; 16 Light Gray 
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6A5C: 
6A5E: 
6A5F; 
6A60: 
6A61: 
6A62: 
6A64: 
6A67: 
6A6A; 
6A6C: 
6A6E; 
6A71: 
6A73: 
6A75:;3 
6A78:; 


6A79: 
6A7B: 
6A7E: 
6A80: 
6A82:;: 
6A84; 
6A86; 
6A87; 
6A8A: 


LDA 
ASL 
ASL 
ASL 
ASL 
STA 
JSR 
LDA 
AND 
ORA 
STA 
LDA 
ORA 
STA 
RTS 


BNE 
JSR 
CMP 
BCC 
SBC 
BEO 
PHA 
JSR 
PLA 


$86 


$77 
SA845 
$D021 
#50F 
$77 
$03E2 
$84 
$77 
$03E3 
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;Get the current foreground color 

;Shift the lower nybble into the upper nybble 
s;As the foreground is at $D021 

In the LSB format 


;Enable BANK 15 

;Get the current foreground color 

;Drop off bits 0 - 3 (background) 

;Add the new foreground color 

;Save as packed foreground/background colors 
;Get Multicolor 1's color 

;Add the new foreground color 

;Save as packed foreground/multicolor 1's nybble 
;Exit routine 


KAKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KEKE KKEKKKKKKKKKKKKKKEKKEKEK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


Command syntax; 


NOTE: 


This command lets you clear the screen specified in 


BASIC SCNCLR COMMAND 
SCNCLR screen mode 
screen mode = (40 column text) 

(bit map) 

(split screen bit map) 
(multicolor bit map) 
(split screen multicolor 
bit map) 

5 (80 column text) 


&m WHY F SO 


+ + © F F + FF FF FF FF FF HF HF F 


the ‘screen mode' parameter. If no screen mode number* 
is specified, the GRAPHICS screen is cleared. * 
However, if there is not a GRAPHICS screen present, * 


then the current text screen is 


S$ 6A8F 
$818C 
#5 
$6A8B 
#5 
S6ADE 


S6ADE 


cleared. * 
* 


KKK KKK KKK KKK KKK IKK KKK KKK KKK KKK IKKE KK KKKKEKKKKKKKK KKK KKKK 


;If there is a mode number, then branch 
;Find out which mode we are in 

;Mode 5 (80 COLUMN TEXT) ? 

;If it is less than 5, then branch 
;Subtract 5 from the mode number 

;If the mode number was 5, then branch 
;Save the mode number onto the stack 
;Clear the 80 column text screen 

;Get the mode value back off of the stack 
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6A8B: 
6A8C: 
6A8F: 
6A92: 
6A94; 


6A96: 
6A98; 
GA9QB: 
6A9C; 


6A9E: 
6AA1: 
6AA2: 
6AA3: 
6AA5: 
6AA7: 
6AAA: 
6AAC: 
6AAD: 
6AAF: 
6AB2:; 
6AB5: 
6AB6: 
6AB8;: 
6AB9: 
6ABA; 
6ABB: 
6ABC: 
6ABE: 
6ABF: 
6AC2: 
6AC3; 
6AC5:; 
6AC8; 
6AC9;3 
6ACB: 
6ACD;: 


6ADO: 
6AD3: 
6AD5: 


6AD7: 
6ADA: 
6ADB: 
6ADD: 


TAX 
JMP 
JSR 
CPX 
BEQ 


BCC 
JMP 
TXA 
BEQ 


JSR 
TXA 
PHA 
AND 
BNE 
JSR 
LDA 
PHA 
BPL 
JSR 
LDA 
SEC 
SBC 
LSR 
LSR 
LSR 
TAX 
LDY 
CLC 
JSR 
PLA 
BPL 
JSR 
PLA 
AND 
BEQ 
JSR 


JSR 
LDA 
LDX 


STA 
DEX 
BPL 
RTS 


S6A9B 
S87F4 
#5 

S6ADE 


$6A9B 
$7D28 


S6AF2 


SA074 


#1 
$6AC8 
S6AF2 
$D7 


$6AB2 
SFFSF 
$0A34 


#$30 


#0 


$928D 


S6AC8 
SFF5F 


#502 
$6AD0 
$6B17 


$6B30 
#0 
#503 


$1131,X 


$6AD7 
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;Move the value to the X register 
;Clear the proper screen 

;Get the mode number into the X register 
;Is it the 80 column mode? 

;If it is, then branch to clear the 80 
;Column text screen 

;If it is less than 5, then branch 
;Generate an 'ILLEGAL QUANTITY' error 
;Move the mode value to the accumulator 
;If the mode is zero, then branch to 
;Clear the 40 column text screen 


;Ensure that GRAPHICS screen has been allocated 


;Save the mode value 

;Onto the stack 

;Mask bit 0 to check for mode 1 and mode 3 
;If it is mode 1 or 3, then branch 

;Clear the 40 column text screen 

;Get screen mode (40/80 column) 

;Save it onto the stack 

;If we are in the 40 column mode, then branch 
;Switch to 40 column mode 

;Get the split screen raster line value 
;Set the carry for subtraction 

;Subtract 48 from it 

;And divide the 

;Result 

;By 8 to acquire the new value 

;Move that value to the X register 

;Set cursor column to 0 

;Clear the carry to set the cursor position 
;Set the cursor position 

;Get the screen mode back 

;If we are in the 40 column mode, then branch 
;Switch to 40 column mode 

7;Get the mode value off of the stack 

;Mask bit 1 to check for mode 3 

;If it is not mode 3, then branch 

;Fill color memory at $D800 with the 

;Color value from location $85 

;Clear the bit map screen 


;Load the X register with the number of bytes 
;Minus one to clear 

;Clear the current 

7X and Y 

;Coordinates 

;And exit 
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CADE: 
6AE0:; 
6AE1: 
6AE3: 
6AE6;: 
6AE8: 
6AEB: 
6AEC: 
6AEE: 
6AF 1: 


6AF2: 
6AF 4: 
6AFS5: 
6AF7: 
6AFA: 
6AFC: 
OAFF: 
6B00: 
6B02: 
6B05; 


LDA 
PHA 
BMI 
JSR 
LDA 
JSR 
PLA 
BMI 
JSR 
RTS 


LDA 
PHA 
BPL 
JSR 
LDA 
JSR 
PLA 
BPL 
JSR 
RTS 


KKEKK KKK KKK KKK KKK KK KKK KKK KKK EKKKKKKKKEKKKKKKKKKKKKKKKKKKKK 


* 
* This routine is used to clear the 80 column text * 
* screen. It first checks if the current screen mode * 
* is 80 column and if it is not, the routine SWAPPER * 
* at SFFSF is called to switch into the 80 column * 
* screen. Then a CHRS$(147) is printed to clear the * 
* screen. On exiting, the routine calls SWAPPER to * 
* return the screen to the 40 column mode screen = 
* if it was enabled on entry to this routine. x 
* * 
* * 


KKEKKKKKKKKKKKEKKKKKKKKEKKKKKKKKKKK KKK KKKKKKKRKKKKKKKKKKK 


SD7 ;Get the current screen mode (40/80 column) 
;Save it onto the stack 
S6AE6 ;If we are in the 80 column mode, then branch 
SFF5F ;Switch to the 80 column mode 
#147 ;CHRS value for Clear Screen 
$9269 ;Clear the text screen 
;Get the previous screen mode off the stack 
S6AF1 sIf it is 80 column mode, then branch to exit 
SFF5SF ;Switch to the 40 column mode 


s;Exit the routine 


KKK KKKK KKK KK KK KKKKK KKK KK KK KKK KKK KKK KKKEKKKKKKKKKKKKKKKKKK 


* * 
* This routine operates the same as the routine at - 
* $6ADE only this routine clears the 40 column screen. * 
* * 


KKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKKKKKEKKKKKKKKKKKKK 


$D7 ;Get the current screen mode (40/80 column) 
;Save it onto the stack 
S6AFA ;lf we are in the 40 column mode, then branch 
SFFSF ;Switch to the 40 column mode 
#147 ;Character for clearing the screen 
$9269 ;Print it to the screen 
;Get the old screen mode back 
S6B05 ;If it is the 40 mode, then branch to exit 
SFF5SF ;Switch to the 80 column mode 


sExit routine 


KKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KK KKKKKKK KK KKK KKK KEK 


* * 


= FILL - 
* * 
* * 


Fill from Y*256 to (Y+X*256)-1 
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On entry into this routine, the accumulator holds * 
the fill value, the Y register holds the MSB of the * 
starting address to be filled, and the X register 
holds the number of pages to be filled. 


This combination of the registers would fill from 


* 
* 
* 
* 
* 
* EXAMPLE: A = $00, Y = $20, X = $20 
* 
* 
* $2000 to $3FFF with $00. 

* 

* 


* 
* 
* 
* 
* 
* 
* 
* 
* 


KEKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KK KKK KKK KKK KKK kkk KK KK 


6B06: STY $8D ;Save the MSB of the starting address 

6B08: LDY #0 ; Index 

6BOA: STY $8C ;Zero the LSB of the starting address 

6B0C: STA ($8C),Y ;Fill from $XxX00 to SXXFF 

6BOE: DEY ;Decrement the index pointer 

6BOF: BNE S6BOC ;If 256 bytes have not been filled, then branch 
6B11: INC $8D ;Add one to the MSB of the starting address 
6B13: DEX ;Decrement the number of pages to be filled 
6B14: BNE $6BOC ;Continue until X = 0 

6B16;: RTS ;Exit 


KK KKK KKK KKK KK KKK KKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKK KK KKK KK KK 


* 


FILCLR 
FIL1 CoLoR memory 


* 
* 
* 
* 
* This routine is used to fill color memoy from $D800 
* to SDBFF with the color value specified in Location 
* $85. Note: This routine clears location $01 to 
* ensure that COLOR RAM O is always used. If you 

* want to fill COLOR RAM 1, you must alter the DDR 

* register at Location $00. 

* 
* 


* + + + € &€ £ FF & F FF 


KKK KK KKK KKK KKK KKK KK KKK KKK KKKKKKKKKKKKKKKKKKKKKKK KKK KK KKK 


6B17: JSR SA845 ;Enable BANK 15 

6B1lA: SEI ;Stop the background jobs 

6B1B: LDA $01 ;Get the data register value 

6B1D: PHA ;Save it onto the stack 

6B1E: AND #SFE ;Drop bit 0 to ensure that COLOR RAM 0 is used 
6B20: STA $01 ;Save the value 

6B22: LDA $85 ;Get the color value 

6B24: LDY #SD8 ;Page number to start at 

6B26: LDX #4 ;Number of pages to fill 
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6B28; 
6B2B: 
6B2C: 
6B2E: 
6B2F: 


6B30: 
6B32: 
6B34: 
6B36: 
6B39: 
6B3C: 
6B3E: 


6B40: 


6B43:; 
6B46:; 
6B48; 
6B4A: 
6B4D: 
6B4F:; 
6B51: 
6B52:; 
6B55; 
6B56;: 
6B57: 
6B59: 


JSR 
PLA 
STA 
CLI 
RTS 


$6B06 


$01 


;Fill from $D800 to S$DBFF with color 
;Restore the data register 

;To its original value 

;Restore the background jobs 

;And exit the routine 


KKK KKEKKKEKKKKKKEKKKKKKKEKEKKEEKKKKKKKEKKKEKKKEKKKKKKKKKKKKKKKKKK 


+ + + + &€ + & F F F 


* 


CLEAR THE BIT MAP SCREEN FROM $2000 - S3FFF a 


* 


This routine is used to clear the bit map screen from* 
$2000 to $3FFF and to initialize the color for the 

bit map by storing the value that is in $03E2 for a 
normal bit map or from $03E3 for the multicolor bit 


map into $1C00 to S$1FFF. 


initializes the sprite ID values at S$1FF8 to SI1FFF. 


* 
* 
* 
On exit, the routine re- * 
* 
* 


KEKKKKEKKKKKEKKKKKKKKKKKKKKKEKKKKEKKEKKKKKKKKKEKKKKKEKKKKKKKKK 


LDA 
LDY 
LDX 
JSR 
LDA 
BIT 
BPL 


LDA 


JSR 
LDY 
LDX 
JSR 
LDX 
LDY 
TXA 
STA 
DEX 
DEY 
BPL 
RTS 


#0 
#$20 
#$20 
$6B06 
$03E2 
SD8 
$6B43 


$03E3 


S$A845 
#51¢C 
#4 
S6B06 
#$3F 
#$07 


S1FF8,Y 


$6B51 


;Fill character 

;Fill from $2000 to $4000 

;With zeros (clear bit map screen) 

;NOTE: See comments at S6BO06 

;Get the Foregroung/Background color from FGBG 
;Check for the screen mode 

s;If multicolor mode is not being used, then 
sbranch 

;Get the Foreground/Background fill 
;Character from FGMC1 

s;Enable BANK 15 

;Fill from $1C00 to $2000 

s;With color 

;Fill the specified area 


;Reintialize 
;The 

;Sprite 

;1ID 

;Table 


;And exit the routine 
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KK KKK KKK KKK KK KKK KKKKKKEKKKKKEKKKKKKKKKKKKKKKKKKKKKK KKK KKK KK 


BASIC GRAPHIC COMMAND 


Command syntax: GRAPHIC graphic mode [,clr][,s1] 
GRAPHIC CLR 

NOTE: graphic mode = (40 column text) 

(bit map) 

(split screen bit map) 

(multicolor bit map) 

(split screen multicolor 

bit map) 

5 (80 column text) 


&m WH F OO 


clr = 0 (do not clear the bit map 
screen) 
1 (clear the bit map screen) 


sl 


the starting line number of 
the split screen 


This command allows you to enter one of the six 
GRAPHICS modes that are in the 128. When the 
GRAPHIC CLR format is used, the bit map screen 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* is cleared and then deallocated. 
* 

* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KKK KK KKK KK KKK KK KKK KKKKKKKKKKKKKKEKKKKEKKKK KKK KKK KKKKEKKK 


6B5A: CMP #$9C ;Token for CLR? 

6B5C: BNE £S6B69 ;If not, then branch 
Fe ce cr a cee cee wee ee ee ee ee ee ee a a ee me oe ee me oe a ee we we * 
* * 
* GRAPHIC CLR COMMAND ENTRY POINT * 
* * 
* The routine is entered here if the GRAPHIC CLR * 
* command was issued. The routine first moves BASIC * 
* START back to $1C00 and resets all of the various * 
* BASIC pointers that were altered. The routine exits * 
* by returning the system to the text mode. * 
* * 
1 en ae ee we ee ee ee eee ee ee ee ee ew we ee ew = * 

6B5E: JSR  $A022 ;Move BASIC and update the pointers if needed 

6B61: JSR $0380 ;Get the next character after the CLR token 
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6B64: LDA #0 ;Return the system 

6B66: STA $D8 ;To the text mode 

6B68: RTS ;Exit the routine 
KKH KIKI KKK KKK KKK KKK KKH KKK KKK KKKKKKEKEKKKKKKKKKKKKEKKKRKKK 
* * 
* SELECT GRAPHICS MODE * 
* * 
* This routine is entered here by the GRAPHIC command. * 
* * 
KIKKK KKK KAKKKKHKKHKK KK KKK KHKKKKKKKEKKKKEKKEKHKKEKKKKKKEKKKKKKKKKEK 

6B69: JSR S87F4 ;Get the GRAPHICS mode into the X register 

6B6éC: TXA ;Move the value to the accumulator 

6B6D: PHA ;Save it onto the stack 

6B6E: CPX #505 ;If the value is for the 80 column screen, 

6B70: BEQ S$ 6BB4 ;Then branch 

6B72: BCS S6BC1 ;If it is greater than 5, then generate 

;An ‘ILLEGAL QUANTITY' error 

6B74: LDA S6BC4,X ;Get proper graphics mode flag from the table 

6B77: STA $D8 ;Enable that graphics mode 

6B79: BEQ $6B82 ;If the mode was the text mode, then branch 

6B7B: JSR SOF4F ;Move BASIC and update the pointers if needed 


6B7E: BIT SD8 
6B80 BVC $S6B89 
6B82: BIT $D7 


;Check the current Graphics mode 
;If it is not Graphic 2, then branch 
;Check the screen mode (40/80) 


6B84: BPL S6B89 ;If we are in the 40 column mode, then branch 

6B86: JSR SFF5F ;Switch to 80 column mode 

6B89: JSR S9E1C ;Get screen clear flag, if any, into X register 

6B8C: CPX #2 sIf it is greater than 1, 

6B8E: BCS $6BC1 ;Then generate an ‘ILLEGAL QUANTITY' error 

6B90: TXA ;Save the flag 

6B91: PHA ;Onto the stack 

6B92: LDX #514 ;Default split screen row of 20 

6B94: JSR S9E1LE ;Get the split screen row, if any 

6B97: CPX #S1A ;If the value is greater than 24, 

6B99: BCS S6BC1 ;Then generate an 'ILLEGAL QUANTITY' error 

6B9B: TXA ;Move the value to the accumulator 

6B9C: ASL s;Multiply the row 

6B9D: ASL ;By 8 

6B9E: ASL ;And 

6B9F: ADC #$30 ;Add 48 to calculate the raster line to stop bit 
;map and start text 

6BA1: STA SOA34 ;Save as split screen raster Line 

6BA4;: PLA ;Get the clear screen flag 

6BA5: TAY ;And move it to the Y register 

6BA6: PLA ;Get the Graphics mode value 
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6BA7: 
6BA8: 
6BA9: 
6BAB: 
6BAE: 
6BBO: 
6BB3: 
6BB4: 
6BB6; 
6BB8:; 
6BBA: 
6BBC: 
6BBE: 
6BC1; 


6BC4; 
6BC5:; 
6BC6: 
6BC7: 
6BC8 3: 


6BC9: 
6BCC: 


TAX 
TYA 
BEQ 
JSR 
LDA 
STA 
RTS 
BIT 
BMI 
LDA 
AND 
STA 
JMP 
JMP 


. BY 
. BY 
. BY 


-BYTE #%10100000 ;GRAPHIC 


meh 4 


JSR 
CPX 


;And move it to the X register 
*;Move the clear screen flag to the accumulator 
S6BAE ;If the screen is not to be cleared, then branch 
$S6A92 ;Clear the screen 
#0 ;Clear the SCALE 
$116A ;Mode flag 
;Exit the routine 
$D7 740 or 80 column screen? 
$6B89 ;If it is the 80 column mode, then branch 
SD8 ;Get the current screen mode 
#SBF ;Switch from GRAPHIC 2 to GRAPHIC 1 
SD8 ;Save it 
$6B86 ;Continue 
$7D28 ;Generate an 'ILLEGAL QUANTITY' error 


KKK KKK KKK KKK KKK KKK KKKKKHKKKKKKKKKKKKKKKKKK KKK KKK KKK KK 


TABLE FOR GRAPHICS MODE 


This is a table of values which are stored in 
Location $D8 to enable the specified GRAPHICS mode. 


+ + + + HF 


+ + + + F 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KHKKKKKKKKKKKKKKKKKKKKK KKK 


IT - 76543210 GRAPHIC MODE 


TE #%00000000 ;GRAPHIC 0 
TE #%00100000 ;GRAPHIC 1 
TE #%01100000 ;GRAPHIC 2 

3 and GRAPHIC 5 
TE #%00110000 ;GRAPHIC 4 


KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKEKKKKKKKKKKKKK KKK 


BASIC BANK COMMAND 


Command syntax: BANK n 


This command allows you to select one of the 


* * 
* * 
* * 
* * 
* * 
* NOTE: n = the bank number value (0 - 15) * 
* * 
* * 
* sixteen banks that are in the 128. * 
* * 
* * 


KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


S87F4 s;Get the BANK number into the X register 
#16 s;If the BANK number specified is greater than 
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6BCE: 
6BDO: 
6BD3: 
6BD4:; 


6BD7: 


6BDA: 
6BDC: 
6BDD: 
6BEO: 
6BE3: 
6BE6: 
6BE9:; 
6BEC: 
6BEF: 
6BF2: 
6BF5: 
6BF8: 
6BFB: 


6BFE; 
6BFF: 
6C02; 
6C05: 
6C06: 
6CO8: 


BCS 
STX 
RTS 
JMP 


JSR 


LDX 
SEI 
STY 
STA 
STX 
JSR 
JSR 
JSR 
LDY 
LDA 
LDX 
JSR 
JSR 


CLI 
JSR 
LDX 
INX 
BNE 
RTS 


$6BD4 


;15, then generate an ‘ILLEGAL QUANTITY' 
$03D5 ;Set the new BANK NUMBER 

;And exit 
$7D28 ;Generate an ‘ILLEGAL QUANTITY' error 


C-128 BASIC 7.0 Internals 





error 


KKKKKKK KKK KKKKKKKKKK KKK KKK KK KKK KKEKKKKKKKKKKKKKK KK KKK K KKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


BASIC SLEEP COMMAND 


Command syntax: SLEEP n 


NOTE: n = the delay time in seconds (1 - 65535) 
This command allows you to create a delay in the 
BASIC program's execution. 


This routine sets up the countdown timer at SOA1D- 
SOA1F to the sleeper value specified multiplied by 
60. The routine then loops, checking the STOP key, 
until the timer has counted down to 0. 


KKK KKK KKKKKKKKKKEKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKEK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


$8812 ;Get the SLEEP value into the Y register 
;And the accumulator 

#0 ;Set the initial SLEEP timer MSB to 0 
;Stop the SLEEP timer 

SOA1D ;Set timer low 

SOA1LE ;Set timer mid 

SOA1F ;Set timer hi 

$6COC ;Multiply the timer value by 2 

$6C16 ;Add original timer value and multiply by 3 

$6C09 ;Multiply the SLEEP value and counter by 4 

SOA1D ;Get the timer low 

SOA1E ;Get the timer mid 

SOAI1LF ;Get the timer hi 

$6C09 ;Multiply the timer by 4 

$6C16 ;Add the timer values in the A, X, and Y 
;registers to the timer 
;Start timer countdown 

S4BB5 ;Check the STOP key 

SOA1F ;Get the timer hi 
;And add one to it 

S6BFF ;Loop until the timer has counted down to 0 


s;Exit the routine 
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6C09:; 


6CO0C: 
6COF: 
6C12; 
6C15: 


6C16: 
6C17; 
6C18: 
6C1B: 
6C1E: 
6C1F: 
6C22; 
6C25: 
6C26: 
6C29: 
6C2C: 


+ + + + FF 


* 


JSR 


ASL 
ROL 
ROL 
RTS 


PHA 
TYA 
ADC 
STA 
PLA 
ADC 
STA 
TXA 
ADC 
STA 
RTS 


* 


+ + + 


* 


* 


+ + 


* 
MULTIPLY SLEEP TIME 7: 
* 
If entered here the routine will multiply the timer * 
at S$OA1D - SOA1F by 4. * 
x 
es a es ss a ee a i a a a ie es er a a a or oe ae oe or ae Se ae er ae a * 
$6COC ;Multiply the SLEEP timer by 2 
a ce a eS jc ce ee mt ce ce ce ee ce ce ce es Sa es ss aes (ee cee * 
If entered here the timer will be multiplied by 2. 
Se ee ee * 
SOA1D ;Multiply the countdown timer 
SOA1E ;By 2 
SOA1F 
;Exit the routine 
a a a a a ee es SS es ee a a a se i Se * 
* 
This routine adds the values in the Y, A and X reg- * 
isters to the SLEEP timer at $OA1D, SOA1E and SOAI1F. * 
* 


;Save the timer mid value onto the stack 
;Move the timer low value to the Y register 


SOA1D ;Add it to the present timer value 
SOA1D ;Save it back 

;Get the timer mid value off of the stack 
SOA1E ;Add it to the present timer value 
SOA1E ;Save it back 

;Move the timer hi value to the accumulator 
SOA1F ;Add it to the present timer value 
SOA1F ;Save it back 


;And exit the routine 


KKKKKKEKKKKKKKEKKKK KKK KKK KKK KKKKKEKKKEKKKKEKKKKKKKKKKKKKKKKEK 


* 


BASIC WAIT STATEMENT 


Command syntax: WAIT location,mask 1[,mask 2] 


+ + + F 
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6C2D;: 
6C30; 
6C32: 
6C34: 
6C37: 
6C39; 
6C3C: 
6C3E: 
6C40: 
6C43: 
6C45: 
6C48; 
6C4A; 
6C4C; 
6C4E: 


The WAIT statement takes the value in the address * 
that is specified after the WAIT command and * 
performs a LOGICAL AND operation with the value in * 
MASK 1. The result from the LOGICAL AND is then * 
EXCLUSIVE ORed with MASK 2. The value in MASK 1 * 
filters out the unwanted bits you do not want to x 
test and then the value in MASK 2 makes a mirror * 
image of the result from the MASK 1. is 

* 

* 


KKK KKK KKK KK KKK KKK KKKKKKKKEKKEKKEKKEKKKEKKKKKKKKKKKKKKKKKEK 


$8803 ;Get the address and value to wait on 

$4B ;Save MASK 1 value 

#0 ;Zero the index pointer 

$0386 ;Get the last character again 

$6C3C ;If there is not a MASK 2 parameter, then branch 
$8809 ;Check for comma and get the value for MASK 2 
$4C ;Save the MASK 2 parameter 

#0 ;Zero the index pointer 

$03D5 ;Get the BANK number for this WAIT STATEMENT 
#516 ;Get LSB of the ADDRESS 

SFF74 ;LDA (ADDRESS),Y from any BANK lo/hi mode 

S4C ;EOR the value from the address with MASK 2 
S4B ;AND the result with MASK 1 

S6C3E ;Continue to scan ADDRESS until a1 is found 


,;Exit the routine 
KKKKKKKK KKK KKKKKKKKKKKKKKKK KKK KKK KKK KKKKKK KKK KKK KKK KK KKK 
BASIC SPRITE COMMAND 


Command syntax: SPRITE number[,on/off] [(fclr] [,p] 
[,X-expand] [, Y-expand] [, smode] 


NOTE: number the sprite number (1-8) 


on/off = 0 (sprite off) 
1 (sprite on) 


fclr = the sprite's foreground color (1-16) 


p = 0 (sprites appear in front of objects) 
1 (sprites appear in back of objects) 


li 
© 


X-expand (X expansion off) 


1 (X expansion on) 


+ + + + + + + + € F FF F FF FF F FF FF HF F 
+ + + + + € + HH HF FF FF FF F FF FF F HF F 
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6C4F: 
6C52: 


6C55; 
6C57: 
6C59; 
6C5C: 


6C5F: 
6C61:; 
6C 62; 
6C 64: 
6C66: 
6C67: 
6C69; 
6CEC ; 
6C6F 3: 


6C72: 
6C74:3: 
6C763 
60793 


6C7C; 
6C7E: 
6C80: 
6C83: 


6C86: 
6C88:; 
6C8A: 
6C8D: 
6C90; 


JSR 
JSR 


BCC 
LDY 
JSR 
JSR 


BCC 
DEX 
CPX 
BCS 
TXA 
LDX 
JSR 
STA 
JSR 


BCC 
LDY 
JSR 
JSR 


BCC 
LDY 
JSR 
JSR 


BCC 
LDY 
JSR 
JSR 
BCC 


Y-expand 


set the sprite's color, 
the sprite, 


smode 


C-128 BASIC 7.0 Internals 


I 
ro 


(Y expansion off) 
1 (Y expansion on) 


i 
ro 


(standard sprite) 
1 (multicolor sprite) 


set the screen priority for 
and expand the X and Y dimensions of 


the sprite, as well as determine whether the sprite 
is to be a standard or multicolor sprite. 


$6CBB 
S9E1E 


$6C5C 
#$15 

$6C9B 
S9E1E 


S6C6F 


#510 
$6C98 


$77 
SA845 


S$D027,X 


S9E1E 


$6C79 
#S1B 

S6C9B 
S9E1E 


$6C83 
#$1D 

S6C9B 
S9E1E 


$6C8D 
#$17 

S$6C9B 
SOE1E 
$6C97 


* 
* 
* 
* 
* 
* 
This command allows you to turn the sprite on or off,* 
* 
* 
* 
* 
* 
* 


KKEKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKEKKKKKKKKK KKK KKK K 


;Get sprite number and store at location $77 
;Get sprite enable flag, if any, into the X 
;Register 

;If none was specified, then branch 

;Pointer to $DO15 (sprite enable register) 
;Enable or disable the sprite 
;Get the sprite foreground color, 
;Into the X register 

;If none was specified, then branch 

;If the foreground color 

;Specified was greater than 15, 

;Then generate an ‘ILLEGAL QUANTITY' error 
;Move the color value to the accumulator 
;Get the sprite number to use as an index 
*;Enable BANK 15 

;Set the foreground color of the sprite 
;Get the sprite priority flag, if any, 
;Into the X register 

;If none was specified, then branch 

;Index to $D01B (sprite priority register) 
;Set the sprite's priority 
;Get the X expansion flag, 
;register 

;If none was specified, then branch 

;Pointer to $DO01D (sprite X expansion register) 
;Set or clear the sprite's X expansion register 
;Get the Y expansion flag, if any, into the X 
;register 

;If none was specified, then branch 

;Pointer to $D017 (sprite Y expansion register) 
;Set or clear the sprite's Y expansion register 
;Get sprite mode, if any, into the X register 
;If none was specified, then exit 


if any, 


if any, into the X 
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6C92: LDY #51C ;Pointer to $D01C (sprite mode register) 
6C94;: JSR $6C9B ;Set the sprite to standard or multicolor 
6C97: RTS ;Exit the routine 

6C98: JMP $7D28 ;Generate an 'ILLEGAL QUANTITY’ error 


KKEKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKK 


* * 
* This routine is used to set or clear the proper bit * 
* in each sprite's register as indexed by the Y * 
* register. On entry, the X register must hold a one * 
* to set the proper bit or zero to clear it. Location * 
* $77 must hold the sprite number whose values you x 
* wish to change. The Y register must hold the LSB * 
* of the sprite register. Ex: To change location * 
* $DO1B, store a $1B in the Y register. * 
* * 
* * 


KKKKKKEKKKKKEKKKEKKKKEKKKKKEKKEKKKKKEKKKEKKKKKKKKKKKKKKKKKKKKK 


6C9B: TXA s;Move the flag to the accumulator 

6C9C: LSR ;Divide by 2, and if the flag was greater than 
6C9D;: BNE $6C98 ;1, then generate an 'ILLEGAL QUANTITY' error 
6C9F: LDX $77 ;Get the sprite number and use it as an index 
6CA1: LDA $6CB3,X ;Get the proper sprite bit value 

6CA4: JSR SA845 ;Enable BANK 15 | 

6CA7: ORA $D000,Y ;Set the proper bit in the sprite register 
6CAA: BCS S$ 6CAF ;If the bit was to be set, then branch 

6CAC: EOR $6CB3,X ;Else reset (clear) the bit 

6CAF: STA $D000,Y ;Save the result as the new value 

6CB2: RTS ;And exit 


Kkkkkkkkkkkkkkkkkkkkkkk kkk KKKKKKKKKKKKKKKKKKKKKRKKKKKKKKKKEK 


* * 
* This is the table used for the COLLISION interrupts * 
* and by the PLAY command. * 
* * 


kkkkkkkkkkkkkkkkkkkkKekKKkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkKeknk 


HEX BIT - 76543210 DECIMAL VALUE 
6CB3: .BYTE $01 ; 00000001 1 
6CB4: .BYTE $02 : 00000010 2 
6CB5: .BYTE $04 : 00000100 4 
6CB6: .BYTE $08 ; 00001000 8 
6CB7: .BYTE $10 i 00010000 16 
6CB8: .BYTE $20 ; 00100000 32 
6CB9: .BYTE $40 ; 01000000 64 
6CBA: .BYTE $80 ; 10000000 128 
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6CBB: 
6CBE: 
6CBF;: 
6CC1:; 
6CC3: 
6CC5: 


6CC6: 
6CC9: 


6CCC: 


JSR 
DEX 
CPX 
BCS 
STX 
RTS 


JSR 
JSR 


BIT 





KHKKKKKKKKKKKKKKKEKKKEKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKRKKK 


CHKSETSPRN 


* 

* 

* 

* This routine converts the ASCII digit into a numeric 
* value and if the numeric value does not exceed 7, 

* then the value is set as the current sprite number 

* for the BASIC SPRITE commands. If the value exceeds 
* 7, then an ‘ILLEGAL QUANTITY' error is generated. 

* 
* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KKEKKKKKKKKKEKKEKKKKHKKKKKEKEKKKKKKKKKKKKKKKKKKKKKKK KK KKK KKK 


S87F4 ;Convert ASCII to numeric 
;Make the sprite number 0 - 7 
#8 ;If it is greater than 7, 
$6C98 ;Then generate an ‘ILLEGAL QUANTITY' error 
$77 ;Get the sprite number 


sExit the routine 


KIKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKEKKKKKEKKKKKKKKKKKKKKKKK 


* * 
* BASIC MOVSPR COMMAND * 
* * 
* Command syntax: MOVSPR number, X, Y * 
* * 
* Place a sprite at a specific * 
* location on the screen, ii 
* * 
* MOVSPR number, X angle #Y speed * 
* * 
x Move a sprite at an angle (X) * 
* clockwise at the speed (Y). * 
* * 
* MOVSPR number, X; Y s 
* * 
* Move a sprite the distance X * 
* at the angle Y in relation to * 
x the cursor. * 
* * 
* This command allows you to move or position a sprite. * 
* * 
KKKKHKKK KKK KK KKK KKK KKK KKK KKK KKK EKKKEKKKEKKKKKEKKKKKKKKKKKEKK 


$6CBB ;Get sprite number and place it in location $77 
S6D9E ;Get the first parameter and set the 

;Flags in location $116E (NUMCNT) 
$116E ;Check to see if a comma was found 
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6CCF: 
6CD1: 


6CD4: 
6CD7: 
6CDA: 
6CDD: 
6CEO: 


6CE3; 
6CE6: 
6CE8: 
6CEA: 
6CEB: 
6CEC: 
6CEE;: 
6CF1: 
6CF3: 
6CF6: 
6CF8: 
6CFB: 
6CFC: 
6CFE: 
6D01: 
6D02: 
6D05: 
6D06: 
6D08: 
6D09: 
6DO0C;: 
6DOD: 
6D10: 
6D12: 
6D14:; 
6D16: 
6D17: 
6D1A: 
6D1B: 
6D1D: 
6D1E: 
6D20: 
6D23: 
6D24: 
6D27: 
6D28: 
6D29: 
6D2C: 


BVC 
JMP 


STY 
STY 
STA 
STA 
JSR 


BIT 
BVC 
BMI 
TYA 
PHA 
LDY 
JSR 
LDX 
LDY 
LDA 
STA 
INY 
LDX 
LSR 
DEX 
ROR 
DEX 
BPL 
INX 
LDA 
INY 
STA 
CPX 
BNE 
LDA 
INY 
STA 
DEX 
BNE 
PLA 
AND 
STA 
RTS 
JSR 
TAY 
TXA 
JSR 
LDX 


$6CD4 
$796C 


$1135 
$1137 
$1136 
$1138 
S6D9E 


$116E 
$6D49 
$6D24 


#504 
$9A74 
$77 


$6DD9,X 


#0 


$117E,Y 


#503 


$114A,X 


$114A,X 


S6CFE 


$1149,xX 


$117E,Y 


#504 
$6D08 
#0 


$117E,Y 


$6D16 


#SOF 


$1174,Y 


$8139 


$9A77 
#504 


;And if so, then branch 

;lf a comma was not found, then generate 
;A 'SYNTAX' error message 

;save the X 

;Destination value 

sin X-DEST and 

jin Y-DEST 

;Get the second parameter and set the 
;Flags in location $116E (NUMCNT) 

;Check to see if a comma was found 

;And if it was, then branch 

;If a semicolon (;) was found, then branch 


;Save it onto the stack 
;Calculate the angle from locations $1135, $1136 
;Get the sprite number 


;Get its index value into the descriptor table 


;Zero the first byte 
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6D2E: 
6D31: 
6D33: 
6D34: 
6D37; 
6D3A;: 
6D3B: 
6D3E: 
6D3F: 
6D40;: 
6D42; 
6D44; 
6D47: 
6D49: 
6D4C: 
6D4F; 
6D51: 
6D54: 
6D56: 
6D57; 
6D58: 
6D59: 
6D5C: 
6D5F: 
6D61: 
6D62; 
6D64: 
6D66: 
6D67: 
6D6A3 
6D6B: 
6D6E: 
6D71; 
6D74: 
6D76: 
6D77: 
6D7A; 
6D7D: 
6D7F: 
6D82; 
6D85: 
6D88: 
6D8B: 
6D8E: 
6D91: 
6D94; 
6D96; 


S9OD4A 
#504 


S9ACE 


$1131,X 


$1132,X 


#506 
$6D34 
$116E 
$6D54 
$1137 
$1138 
#504 
SOD4A 
$77 


$1137 
$116E 
S6D6A 


S6D67 
#SFF 


$11D7,Y 


$11D7,Y 


$1135 
$116E 
$6D88 


$11D6,Y 
$11D6,Y 


$6D82 
$1136 
S11E6 
$6D91 


$11D6,Y 


$11E6 


$6CB3,X 


$1136 
$6D99 


$6CB3,X 
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6D99: 
6D9C: 
6D9D: 


6D9E: 
6DA1: 


STA 
CLI 
RTS 


JSR 
ROR 


$11E6 


KKK KKE KKK KK KEKE KK KEK KKK KKK KKK KKKEKEKKK KKK KKK KKKKKKKEKKKEKKKKKKKEKEK 


EVLPAR 
EVaLuate PARameter 


This routine checks the parameter to see if the 
first character is a comma and if it is, then bit 6 
in location $116E (NUMCNT) is cleared. If a comma is 
not found, bit 6 in location $116E (NUMCNT) is set. 


If a comma is found, then the routine checks to see 
if the next character is a + or - which are the 
flags to move the sprite right or left. Bit 7 is 
then moved into bit 6 and bit 7 is cleared if one of 
the characters is (+ or -). If the character is 
neither a + or -, then bit 7 is set. 


The routine then obtains the numeric value in the Y 
register and accumulator in LSB/MSB format on exit. 


Location $116E (NUMCNT) reflects the following: 


Bit 7 set -- + or - was not found 
cleared -- + or - was found 

Bit 6 set -- comma was not found 

Bits 5 thru 0 -- not used 


+ * + + F F HF HF HF HF HF F HF F F F F HF F F F F F F KF + + 


If a comma is not found, then this routine will check* 
to see if the character is a ';' or '#' and if it is * 
a ';', then bit 7 is cleared. If the character is a * 
i'#', then bit 7 is set. If the character is neither * 
a ';' of a '#', then a 'SYNTAX' error message is * 
generated. Also if these characters are found, then * 
the same holds true after the flags for the setting * 
of bit 7 above. e 

* 

* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KKEKKKKKKKK KK KKK KKKKEKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKK 


S6DC6 ;Check to see if the character is a comma 
S$116E ;If no comma was found, then set bit 7 in NUMCNT 
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6DA4: 
6DA6:; 
6DA8: 
6DAA: 
6DAC: 
6DAE: 


6DB1: 
6DB4: 
6DB6: 
6DB8: 
6DBA: 
6DBC: 


6DBD: 
6DCO: 
6DC3: 


BPL 
CMP 
BEQ 
CMP 
BEQ 
JMP 


JSR 
CMP 
BEQ 
CMP 
BEQ 
CLC 
ROR 
JSR 
JMP 


S$6DB1 s;If a comma was found, then branch 

#1! s;Is it a semicolon representing angle? 

S6DBD ;If so, branch to set bit 7 in NUMCNT ($116E) 
#1! ;Is it the pound sign (speed) ? 

S6DBC s;If so, branch to clear bit 7 in NUMCNT($116E) 
$796C ;Generate a 'SYNTAX' error 


KKK KKK KI KKK KK KKK KK KK IKK KKK KKK HK KKKKKKKKKKKKKKKKKKKKKK KKK 


CHKPAR 
CHecK PARameters 


* 

* 

* 

* 

* 

* This routine will check the expression after the 

* comma to see if the + or - flags exist and if they 
* do, then bit 7 of NUMCNT ($116E) is set. If neither 
* of these two flags exist, then bit 7 is cleared. 

* 

* 

* 

* 

* 

* 

* 


The routine then converts the numeric value to LSB/ 
MSB hex format and returns the value in the Y regis- 
ter and accumulator. If the expression is not numeri-* 


cal, an 'ILLEGAL QUANTITY' error message is produced.* 
* 


+ + €* €* © © ££ £€ £ HF HF F 


KKK KKK KI KK KKK KK KKK KKK KKK KKK KKK KKKKKKKKKKKKHKKKKKKKKKKKKKK 


$0386 ;Get the character after the comma and check to 

#SAA ;See if it is the '+' token to move sprite right 

$6DBD s;If it is, then branch to set bit 7 in NUMCNT 

#SAB ;Is it the token for '-', to move sprite left 

S6éDBD sIf it is, then branch to set bit 7 in NUMCNT 
;If neither are found, then clear bit 7 

$116E ;Place the flag in NUMCNT 

$77D7 ;Place the value in FAC1 

$8819 ;Get the value in the Y register and the 


sAccumulator in LSB/MSB format 


KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKKKKKEKKKKKK KK KKK 


* * 
. CHKCOMA * 
* * 
* CHecK COMmA * 
* * 
* This routine will check the current character that * 
* TXTPTR is pointing at to see if it is a comma. If the* 
* character is a comma, the routine will clear the car-* 
* ry flag, then move TXTPTR over to the next charac- x 
* ter. If the character is not a comma, the routine * 
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6DC6: JSR 
6DC9: BEQ 
6DCB: CMP 
6DCD:; CLC 
6DCE: BEQ 
6DD0; SEC 
6DD1: PHP 
6DD2;: PHA 
6DD3: JSR 
6DD6: PLA 
6DD7: PLP 
6DD8: RTS 


* will set the carry flag. The character is returner in* 
* the accumulator for which the test was performed. ba 
* * 


KKK KKKKKKKKKKKK KK KKK KKK KKKKEKKKKEKEKKKKKKKKKKKKKKKKKKEKKEK 


$0386 ;Get the character TXTPTR is pointing at 
S6DD8 ;If there is none, then branch to exit 
#',' ;Is it a comma? 

s;Set the flag for comma found 
S6DD1 s;If it is a comma, then branch 


;Set the flag for a comma not found 
;Save the flag onto the stack 
;Save the character onto the stack 
$0380 ;Move TXTPTR over to the next character 
;Get the character off of the stack 
;Get flag for comma found/not found off stack 
;And exit this routine 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKK KKK KKKKKKKKKEKK 


SPRITE DATA TABLE 


* 
* * 
* * 
* This table contains the pointers to the 11 byte ; 
* sprite descriptors that are set up whenever a * 
* MOVSPR command with a speed rate is used. The x 
* descriptors are stored starting at location $117E. x 
* * 
* * 


KHKEKKKEKKEKKKKKKKKKKEKKEKKKKKKEKEKKKKKEKKKKKKKKKKKKKKKKKKKKKKK 


6DD9: .BYTE $00,S0B,$16 
6DDC: .BYTE $21,$2C,$37 
6DDF: .BYTE $42,$4D 


KKKKKKKKKKKKKKKK KKK KKK KKK KKK KKKKKKKKKKKK KK KK KKKKK KKK KKKKK 


BASIC PLAY COMMAND 

Command syntax: PLAY "Vn,On,Tn,Un,Xn,syms" 
NOTE: Vn = 'V' + the voice number 
On = 'O' + the octave number 
Tn = 'T' + the instrument 
Un = 'U' + the volume value 
Xn = 'X' + 1 (filter on) 

™' + 0 (filter off) 
syms = the symbols and notes of the music to be 

played 


+ + ££ € € F FF HF HF HF FF HF 


+ + + + + 4 + FF F F F F 
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6DE1: 


6DE4: 
6DE7: 
6DE9; 
6DEC:; 
6DEE: 
6DFO: 


6DF2: 
6DF 4: 
6DF7: 
6DFA: 
6DFD: 
6DFF: 
6E01: 


6E02: 
6E04: 
6E06: 


JSR 


STA 
STA 
JSR 
STA 
LDY 
CPY 


BEQ 
JSR 
STA 
JSR 
INC 
BNE 
RTS 


CMP 
BNE 
RTS 


+ + + + + 


This command makes it easier for you to PLAY a 
musical arrangement by allowing you to set the 


voice, 


octave, 


instrument, volume, 


parameters necessary in developing a musical score. 


* 
* 
and other * 
* 
* 
* 


KEKKKKKEKKKKKKEKKKKKEKKEKEKKKKKEKEKKKEKKEKKKKKKKKKKKK KKK KKKK 


$877B ;Get the length of the string in the accumulator 
;And place its address in locations $24, $25 

SFFO3 ;Enable BANK 14 

$77 ;Save the length of the string 

S6FCE ;Clear the SHARP and PITCH flags 

$78 ;Zero the number of characters 

$78 ;Get the number of characters already 'played' 

$77 ;Compare it to the total number of characters 
;To be 'played' 

S6E01 ;If finished, then exit 

$03B7 7;Get the character to be 'played' 

SFFO3 s;Enable BANK 14 

$6E02 sEvaluate the play character 

$78 ;Add one to the number of characters 'played' 

$6DEE And branch to continue 'playing' 


;Exit the routine 


KKKKKK KK KKK KE KKKEKKEKEKKKKKEKEKKEEKEKKKKEKKEKKEKKEKKKKKKKKK KKK 


* 


This is the main entry point of the PLAY command by * 


* 

* 

* BASIC or MACHINE language, If the character in the * 
* ACCUMULATOR is a space this subroutine will return, if* 
* it's not then it will fall through to the following * 
* 
* 
* 


routines to further evaluate the character. igi 


* 


KKK KKH KKH KKH KKHKKKKHKKKKKHKKKKKHKKKKKKKKKKKKKKKKKKKKKKK KKK 


#3 J 
$6E07 


;If the character 
s;Is not a space, 
s;Exit the routine 


then branch 


KK KK KKK KKH KKK KKK HK KKK KK KKK KK KKK KK HKK KK KKKKKKKKKKKKKKKKKKKEK 
* * 
* This routine checks the character to see if it is one* 
* of the notes A - G, and if the character is a note, * 
* then a JuMP to S6FIE is done to process that note. * 
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6E07: 
6E09: 
6EOB: 
6E0D:;: 
6EOF: 


6E12: 
6E14; 
6E17: 
6E19:; 
6E1C: 
6E1D: 


CMP 
BCC 
CMP 
BCS 
JMP 


LDX 
CMP 
BNE 
JMP 
DEX 
BPL 


+ + + % FF OF 


C-128 BASIC 7.0 Internals 


On entry to this routine, the accumulator contains 


the ASCII letter which represents the note. 


If the 


will fall through to S$6EF12. 


* 

* 

character is not a valid note, then this routine * 
* 

* 


#tqai 
$6E12 
#'g'! 
$6E12 
S6F1E 


KkKakkkkk kkk kK KKK KKKKKKK KKK KKK KKKKKKKKKKK KKK KKK KK KKKKK KKK 


;If the character is less than'a', 
;Then check for control characters 

;If the character is greater than 'g', 
;Then check for control characters 
;Process the note 


KkKkkkkkkkkkkkKeKkKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KK KKK K KKK 


+ + + +  F F OF 


* 


This routine checks the accumulator for time duration* 


characters; 
accumulator is one of the time duration characters, 
this routine does a JuMP S6F07 to process the dura- 
If the character is not one of the duration 
characters, the routine will fall through to S6El1F. 


tion. 


w, h, q, i, s. If the character in the 


t+ + + + % 


kkk kk kkk KK KKK KKK KKK KKK KKK KKKK KKK KKK KKK KKKKKKKK KKK KKK KKKKK 


#4 


S6FE7,X 


S6E1C 
S6F0O7 


$6E14 


;Index to the table of duration characters 

;Is character one of the duration characters? 
;If not, then fall through to S$6E1F 

;Process the duration character 

;Move index to next control character in table 
;Continue until 5 control characters tested 


KKKkKKKKKKKK KK KKKKKKKKKKKKKKKKKKKKKKK KK KKK KKKKKKKKKKKKKKKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


This routine checks the accumulator to see if it 


contains the character 'R! 
is to be performed. 
accumulator is an 
to $6F78 to process the rest. 
does not contain an 


indicates. a dotted note. 


which indicates a Rest 
If the character in the 

"'R', then the routine will JuMP 
If the accumulator 
"R', then the routine will check 


If the character is a',.', 


then the routine will JuMP to $6F03 to process the 


dotted note. 


If the accumulator contains neither 


character, then the routine will fall through to 


S6E2D. 


* 
* 

x 

* 

* 

* 

* 

check to see if the character is a '.', which * 
* 

* 

* 

* 

* 

* 

* 


KAKKKEKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK K 
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6E1F; 
6E21; 
6E23; 
6E26; 
6E28: 
6E2A: 


6E2D: 
6E2F: 
6E32: 


6E34: 
6E37: 
6E38: 


6E3A: 
6E3C: 
6E3E: 


6E41: 
6E43: 
6E45: 


CMP 
BNE 
JMP 
CMP 
BNE 
JMP 


LDX 
CMP 
BNE 


JMP 
DEX 
BPL 


CMP 
BNE 
JMP 


CMP 
BNE 
JMP 


#ty 
$6E26 
S6F78 
#'.! 
$6E2D 
S6F03 


sjIs it the character for REST? 

;If not, then branch 

,;Process a 'REST' 

;Is it the character for a 'dotted' note? 
;If not, then branch 

;Process a ‘dotted’ note 


Ecce CeCeCCSOSSSSSSLSSL CS SSS SCLC SL SSCS LCL SSS SL SSS ee ee ee ee 


This routine checks the accumulator to see if it 
contains play options: V, O, T, X, U, or M. If the 
accumulator contains one of the play options, this 


cumulator does not contain any of the play options, 
then the routine will fall through to $6E3A. 


* * 
* * 
* * 
* * 
* routine will JuMP to S6F52 to process it. If the ac- * 
* * 
* * 
* * 
* * 


KkKKKKEKKKKKKK KK KKK KKK KKK KKK KK KKKKK KKK KK KKKKKKK KKK KKK KKK 


#505 
S6FEC,X 
$6E37 
S6F52 


S6E2F 


;Index to the table of control characters 

;Check to see if character is in the accumulator 
;jIs the same as one of the control characters? 
;If it is not, then branch 

;If it is one of the characters, then branch 

;If it is not one of the characters, 

;Then fall through to S$6E3A 


KAEKKKKKKKKKKKKKKKKEKEKKKKKRKKKKKKKKK KK KKK KKK KKK KKK KKK KKK KEK 


This routine checks the accumulator to see if it 
contains the flag for a SHARP (#) or a Flat (S$). 
If the accumulator contains either of these charac- 


+ &€ + & 


or to $6F6C for a FLAT. If neither of the characters* 
is found, then the routine will branch to S6E48. * 


* 
* 
* 
* 
* ters, this routine will JuMP to S$6F69 for a SHARP, 
* 
* 
* 
* 


* 


KHKKKKKKKKEKKKKKKKKKEKKKKKKKEKKKKKKKKKKK KKK KKK KKK KKKKKKK KKK 


#'#! 
S6E41 
S6F69 


#'S! 
S6E48 
S6F6C 


jIs it the flag for SHARP? 

;If it is not, then branch 

;If it is the flag for a SHARP, then jump to 
;Set the flag for SHARP 

;Is it the flag for FLAT? 

;If it is not, then branch 

;If it is the flag for a FLAT, then set 

;The flag for FLAT 
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KK KKK KK KKK IKK KK KKK KK KKK KKK KKK KKK KEKE KEKE KKKEKKKK KKK KKK KKKEK 


* 

* This routine checks to see if the character in the 

* accumulator is an ASCII digit 0 - 9, and if not, it 

* will terminate the Play Routine with an 'ILLEGAL 

* QUANTITY' error message. If the character in the 

* accumulator is an ASCII digit, then this routine 

* will check FLAG to see if the previous character 

* was the character for the VOICE, OCTAVE, TONE (TUNE), 
* FILTER ON/OFF (X), or VOLUME options. If the previous* 
* 
* 
* 
* 
* 
* 
* 


* + € + € £ F 


character was for one of these options, this routine * 
passes the numeric value onto the proper routine * 
below that handles the options.If the previous char- * 
acter was not for one of these options, then an x 
'ILLEGAL QUANTITY' error message will be generated. * 

* 


KkkK kkk KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KEKE KKKKKKKKKKKKKKKK 


6E48:; SEC ;Subtract 48 from the ASCII 
6E49: SBC #'0O! ;Character to turn it into a hex digit 
6E4B: CMP #10 ;Is it greater than 9? 
6E4D: BCC S6E52 ;No, then branch 
6E4F: JMP S6EFD ;If it is greater than 9, then generate 
;An ‘ILLEGAL QUANTITY' error 
6E52: ASL $0126 ;Rotate bit 7 into the carry flag to 
6E55: BCS S6E9D ;Test for the VOICE parameter in this value 
6E57: ASL $0126 ;If not, then check to see if it is 
6E5A: BCS S6EA8 ;For OCTAVE 
6E5C: ASL $0126 ;If not, then check to see if this value is 
6E5F: BCS S6EB1 ;For TONE 
6E61: ASL $0126 s;If not, then check for 'X' (FILTER) 
6E64: BCC S$ 6EDD ;If it is not for FILTER, then branch 


KKK KKK KKK KKKKKKKKK KKK KKKK KK KKK KKK Kk kk Kk kkk kk kkk kkk kkk 


* 
This routine is called when the 'X' option is used. * 
This routine will first check to ensure the value * 
after the 'X' is less than 2 and if it is not, then * 
an 'ILLEGAL QUANTITY' error message is generated. * 
* 
* 
* 
* 
* 


turn ON/OFF the filter for the current active VOICE 


* 

* 

* 

* 

* 

* If the value is less than 2, then this routine will 
* 

* (Xl turns the filter ON, Xl turns the filter OFF). 
* 
* 


kak kk kkk kkk kkk KKK KKK KKK KKK Kk KK KKK Kk kk KKK KK KKK KKK KKK KKK 


6E66: CMP #2 ;Is the value less than 2? 
6E68: BCC S6E6D ;If it is, then branch 
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6EGA: 


6E6D: 
6E6E: 
6E71: 


6E74: 
6E77: 
6E79; 
6E7C: 


6GETF: 


6E81: 
6E84: 
6E87: 


6E8A: 
6E8D; 
6E8F;: 
6E92: 
6E95;: 
6E98: 
6E99; 
CE9SB: 


6E9D: 
6EQE: 
6EQF: 
6EA1: 
6EA3: 
6EA6; 


JMP 


LSR 
LDY 
LDX 


LDA 
BPL 
LDA 
ORA 


BCS 


EOR 
STA 
LDA 


STA 
LDX 
LDA 
JSR 
STA 
DEX 
BPL 
BMI 


TAX 
DEX 
CPX 
BCS 
STX 
BCC 


S6EFD 


$122F 


S6FE4,Y 


$1224,X 


$6E74 


$6CB3,Y 


$1273 


S6E84 


$6CB3,Y 


$1273 
$1274 


$1275 
#3 


$1271,X 


SA845 


$D415,X 


S6E8F 
S6EF7 


;If the value is not less than 2, 

;Then generate an ‘ILLEGAL QUANTITY' error 

;Ilf the value was ON, then set the carry flag 
;Get the current VOICE number being used - 1 
;Get the index pointer to that VOICE's MSB for 
sIts countdown timer (N -TIME) 

;Wait until that VOICE (N-TIME) has counted 
;Down and the Basic IRQ sets it back to SFO 
;Get bit value to turn on this VOICE's filter 
;And set that bit in the shadow register 

;For $D417 (SIDREG23) 

;Ilf the carry is set from above, then 

;Turn on the filter 

;If it is not set, then turn the filter off 
;And save the new filter configuration 

;Copy MODE/VOLUME shadow register for $D418 in 
; SIDREG2 4 

;And save it 

;Copy the 4 

;Shadow registers 

;Enable BANK 15 

;Into the SID chip registers 
;To set up the filter values, 
;And Mode/Volume 
sUnconditional branch to exit 


Resonance/Filter 


KI K KKH KIKI KKK KKK KKK KKK KKK KK KEK KEKE KEKE KKKKEKKKKKEKKEKKKKKKKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 


If the value after the 'V' 
"ILLEGAL QUANTITY' error message is generated. 


* 


VOICE1 * 

* 
is greater than 3, then an* 
If the* 


value after the 'V' is less than or equal to 3, then * 
this value - 1 is placed into location $122F (VOICE) .* 


#03 

S6EFD 
$122F 
S6EF7 


* 


KKK KKKKKKKKKKKKKKKKKKKKEKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKK KKK 


;Move the numeric number into the X register 
;VOICE number = (VOICE number - 1) 

;Has programmer requested a VOICE number greater 
;Than 2?If so, generate 'ILLEGAL QUANTITY' error 
;Save value as current OCTAVE number in OCTAVE 
;Unconditional branch to exit 
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6EA8;: 
6EAA: 
6EAC: 
6EAF: 


6EB1: 


6EB2: 
6EB5: 


6EB8: 
6EBB: 
6EBE: 
6EC1: 
6EC2: 
6EC5: 
6EC8; 
6ECB: 
6ECE; 
6ED1: 
6ED4: 
6ED7: 
6EDA: 
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KKEKKKKEKKEKKKKKKKKKKKKKKKKKKKKKKEKEKKKKKEKKKKKKKR KKK KKK KKK 


CMP 
BCS 
STA 
BCC 


TAX 


JSR 
LDY 


LDA 
STA 
LDA 
TAY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JMP 


* 
* 
* 
* 
* 
* 
* 
* 
* 


If the value after the 


* 


OCTAVE1 * 


* 


'O' is greater than 6, then an* 


'ILLEGAL QUANTITY' error message is generated. If the* 


value after the 


'O' is less than or equal to 6, then * 


this value is saved into location $122B (OCTAVE). * 


#7 

S6EFD 
$122B 
S6EF7 


* 


KKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK 


;Programmer requested an OCTAVE greater than 6? 
PLE so, 
;Save value as current OCTAVE number in OCTAVE 
;Unconditional branch to exit 


generate an ‘ILLEGAL QUNATITY' error 


KAKKK KKK KKKKKKKKKKAa KKK KKK KKEKKKKKK KK KKKKKRKKRKKKKKKKKKKKKKK 


+ + + € FF HF F 


This routine takes the value after the 
this value to point to the proper ENVELOPE. If 


TONE1 


'T' and uses 


is not used, the system defaults to ENVELOPE zero. 


* 
* 
* 
* 
Ts * 
* 
* 
* 


KEKKKKKKKEKKKKKKKKKAEKKKKEKKKKKKEKKKKKKKKKKKKKK KKK KKK KKKKKE 


SA845 
$122F 


$1253,X 
$1230,Y 
$7039,Y 


$123F,X 
$D405,Y 
$1249,X 
$D406,Y 
$125D,X 
$D402,Y 
$1267,X 
$D403,Y 
S6EF7 


;Move TONE (TUNE) value into the X register to 
;Be used as index value to the proper ENVELOPE 
;Enable BANK 15 

7;Get the VOICE number 
;Index value 

;Get waveform value for this TONE from WAVTAB 
;And save it in WAVE 0 

;Get the index value into the ATtacK TABle 
;Move the index value into the Y register 
;Get this tone's attack rate 

;And pass it onto the SID chip 

;Give the sustain/release value 

sTo: the: SID chip 

;Give the pulse width low 

;To the SID chip 

;And the pulse width high 

;To the SID chip 

;Then exit this routine 


O - 2 to be used as an 
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KKK KK KI KKK KKK KKK KKK KKK KE KKKKKKKKKKKKa KKK KK KKK KKK KKK KKK KKK 


VOLUME1 


This routine takes the value after the 'U' and uses 

that value to set the NEW VOLUME in locations $1274, 
$1275 which contain the MODE/VOLUME values with vol- 
ume being the least significant Nybble (Bits 3-0). 


'U' value Volume 


0 0 
1 1 
2 S 
3 S 
4 7 
5 8 
6 12 
7 i 
8 14 
9 15 


* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 


KKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKEKKEKKEKKKKKK 


6EDD: TAX ;Move the volume value into the X register 


6EDE: LDA $1274 ;Get the MODE/VOLUME 

6EE1: AND #SFO ;Drop off the current volume level 
6EE3: ORA $703C,X ;Add in the requested volume level 
6EE6: STA $1274 ;And save it as the NEW MODE/VOLUME 
6EE9: LDA $1275 ;Repeat it 

6EEC: AND #SFO ;Again for its 

6EEE: ORA $703C,X ;Duplicate Register 

6EF1: JSR SA845 ;Enable BANK 15 

6EF4: STA $D418 ;Give it to the SID chip as the NEW 


;MODE/VOLUME LEVEL 


CLRFLG 
CLeaR FLaG 


This routine is to clear the flags for VOICE, 
OCTAVE, TONE, FILTER, and VOLUME to prepare the PLAY 
routines for the next note. The routine then 
returns to the calling routine (S6DFA or S6EFD). 


t + + F FF F F HF F 


+ + * F F F HF OF 
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6EF7: LDA #0 ;Set FLAG 
6EF9: STA $0126 ;To zero 
6EFC: RTS sAnd exit 


KKKKKKKK KKK KKK KK KKK KKK KKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


PLYERR 
PLaY ERroR 
This routine is used by the PLAY Command to generate 


an ‘ILLEGAL QUANTITY' error message and to clear 


* 
* 
* 
* 
* 
* 
* 
* FLAG to clear out any previous FLAGs. 
* 

* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKEKKKKKKKKKKKKKKKKKKEKKKKKK 


6EFD: JSR S6EF7 ;Prepare FLAG for the next play character 
6FO0O0: IMP $7D28 ;Generate an 'ILLEGAL QUANTITY' error 


FO IOI II III IO IO IO III III I IO II RI Rk dk 
SETDN 


SET Dotted Note 


played. This value will, in effect, increase the 


* 
* 
* 
* 
* 
This routine will store the value ($2E) to location * 
* 
* 
length the note is to be played by 50%. i 

* 

* 


* 

* 

* 

* 

* 

* $1233 to indicate that a dotted note is to be 
* 

* 

* 

* 


KEKE KK KKK KKKKKKKKKKKKKKKKKKKEKKEKEKKKKEKKKKKKKKKKKKKKKKKKK 


6F03: STA $1233 ;Save the value for a dotted note ($2E) 
6FO6: RTS ;Exit the routine 


KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKK KKK KK KK KKK 
SNTIME 
set Note TIME 
This routine sets up the length of the time each 


note is to be played by using the index register (X) 
to indicate which value is to be defined. 


+ € + + + € € FF HF F 
+ + &€ ££ £ + € HF HF 
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6FO7: 
6F09; 
6FOC; 
6FOE: 
6F11: 
6F12: 
6F14:; 
6F17; 
6F1A;3 
6F1D: 


6F1E: 
6F1F: 
6F21; 
6F22;3 
6F25: 
6F26: 
6F28: 
6F29: 


6F2C: 


6F2D: 
6F2E: 
6F2F 3: 


6F32: 
6F34:3 
6F36: 
6F37: 
6F393 


* N-Time Length * 
* INDEX VALUE {31229,S5122A) in 4/4 Time * 
* 0 W (whole) $0480 4/4 * 
* 1 H (half) $0240 2 * 
. 2 Q(quarter) $0120 1 * 
* 3 I (eighth) $0090 1/2 * 
* 4 S (sixteenth) $0048 1/4 * 
* * 
KKKK KKK KKK KKK KKK KK KK KKK KK KKK KKK KKK KKK KRKKKKKKKKKKKKKKKKKKK 


LDY #580 ;Set up N-Time 

STY $1229 ;To the Maximum 

LDY #$04 ;Time allowed 

STY $122A ;Which is for a whole note 

DEX ;Index = (Index - 1) 

BMI S6F1D ;If the index equals a whole note, then branch 
LSR $122A ;Calculate the new 

ROR $1229 ;N-Time value per index value 

JMP S6F11 Continue until X = SFF 

RTS ;Exit this routine 


* 


* 


* 


KK KKK KKK KKKKKEKEKKKKKKKEKKKE KKK KKKKKKKKEKKKEKEKKEKKKKKKEKKKKKEKK 


* 


Play NOTES A - G * 


* 


KKKK KKK KKK KK KKK KKK KKK KKKK KK KKK KKKKKKKKKKKKKKK KK KK KKK KKKK 


SEC ;Set the carry for subtraction 
SBC #'a' ;Subtract value for 'a' to create index value 
TAX ;Move the index value into the X register 
LDA S6FF2,X ;Get the value for the note 
TAX ;Save it into the X register 
LDA #6 ;Get the maximum number of octaves 
SEC ;Set the carry for subtraction 
SBC $122B ;Subtract number of octaves requested (Default 
;=4) from the maximum allowable octaves 
TAY ;Save into the Y register as the 
;Actual octave to be played 
TXA ;Move the note value back into the accumulator 
CLC ;Clear the carry for addition 
ADC $122C ;Add SHARP flag to the note value 
; ($01 = SHARP, SFF = Flat, $00 = Natural) 
BPL $6F37 ;If note is SHARP or natural, then branch 
LDA #11 
INY ;Add one to the octave 
CMP #12 
BCC S6F3E 
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6F3B: LDA #0 
6F3D: DEY ;Subtract one from the octave 


6F3E: TAX ;Move note value into X register 
6F3F: LDA S6FF9,X 


6F42: STA $122D 
6F45: LDA $7005,X 


6F48: DEY 
6F49: BMI S6F72 
6F4B: LSR 


6F4C: ROR $122D 
6F4F: IMP S6F48 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KHKAKKEKIKKKKKK KK KKKKK 
SETF LAG 
SET command bit in FLAG 


* 

* 

* 

* 

* 

* This routine will check to see if the value in the 
* ACCUMULATOR is the value for 'm' which indicates to 
* 
* 
* 
* 
* 
* 
* 


+ + + + £ FF F F 


wait for the end of this measure, and if it is then 
it will branch to the routine below. If it is not then* 
it uses the value in the X - register to set a BIT in * 
FLAG ($0126) to indicate what command character(s) are* 
in use. This routine is called by S6E2D. * 
* 
Fe IT FFI I FE ITI IIR I III IK RIKI I I IE I I I RR RII KO ee tee te te te te eee 


6F52: CMP #'m' s;Is it the control character 'M'? 

6F54: BEQ S6F5D s;If it is, then branch 

6F56: LDA $9D1C,X ;Get the proper bit value as a flag (SEE $9D1C) 
6F59: STA $0126 ;And place it in FLAG 

6F5C: RTS sExit this routine 


KKEKKKEKKKKKKKKKKKK KK KKK KKKKKKKKKKKKKKEKKKKKEKKKKEKKEKKKKKKKKKEK 


M 


Measure 


ensure they have completed playing their note, and if 
they have not it will wait for them finish. 


+ + + ££ + F FF HF F 


* 
* 
* 
* 
* 
* This routine will check each of the three voices to 
* 
* 
* 
* 


KHEKKKKKKKKKKKKKKKKKKKKKKEKKEKKKKKKKEKKEKKKKKKKKKKKKKKKKKKKK 
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6F5D: LDY #5 Pointer to voice 3 

6F5F: LDA $1223,Y ;Wait until the 

6F62: BPL S6F5F ;Current measure is finished 

6F64: DEY s;Move to the 

6F65: DEY ;Next voice 

6F66;: BPL S6F5F ;Continue until all 3 voices have finished 
6F68: RTS ;And exit the routine 


KKK KKK KKK KK KKK KKK KKK KKK KKK KK KK KKK KKKKEKKKEKKKKKKKK KKK KK KKK 


* * 
* SHARP = 
* * 
* This routine sets the sharp flag in SHARP ($122C). * 
* * 
* * 


KHKKKKKKHKKEKKKKKKKKKKKEKKKKKKKKKKEKKKKRKKRKKKKKKKKKKKK KKK 


6F69: LDA #1 ;Flag for SHARP 
6F 6B: -BYTE $2C ;MASK to fall through to S6F6E 


KKKK KKK KKK KKK KKK KKK KKK KHEKKKKEKEKKKKKKKKKKKKKKKKKKKKKKK KEK 


* 
* FLAT x 
* * 
* This routine sets the flag to PLAY a flat in SHARP. * 
* * 
* * 


KKK KKH KKH KI KKK KKK KKK KH KKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKK 


6F6C: LDA #SFF ;Flag for a FLAT 

6F6E: STA $122C ;Save it 

6F71: RTS ;And exit the routine 

6F72: STA $122E ;Save the MSB for the frequency of this note 
6F75: LDA #0 ;Set the flag to play the note 

6F77: .BYTE $2C ;Then fall through to S6F7A 


KK KK KKK KKK KKK KK KKKKKKKKKEKKKKKKKKKKKKKEKKKKKKKK KKK KK KKKKK 


* * 
* REST * 
* * 
* This routine will set the flag to perform a REST. x 
* * 
KKK HK HK HK HK KKK HHH KKK KKK KKKKKKKKKKKKEKKKKKKK KKK KKK KKK KKKKKKK 


6F78: LDA #SFF ;Set the flag to perform a REST 
6F7A: PHA ;Save the flag onto the stack 

6F7B: LDX $122F ;Get the voice number for this note 
6F7E: LDY S6FE4,X ;And get its Index value 

6F81: LDA $1224,Y s;And wait for the previous 
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6F84: 
6F 86; 
6F89; 
6F8C:; 
6F8F; 
6F92: 
6F95:;3 
6F97; 
6F 9A: 
6F 9B: 
6F9C; 
6F OF ; 
6FA0: 
6FA1: 
6FA4: 
6FA7; 
6FA8:;: 
6FAB: 
6FAE;: 
6FAF; 


6FB1; 
6FB4: 
6FB?: 
6FBA: 
6FBD: 
6FCO: 
6FC33 
6FC5: 
6FC8: 
6FCB: 
6FCE: 
6FDO:;: 
6FD3; 
6FD6: 


BPL 
LDA 
STA 
LDA 
STA 
LDA 
BEQ 
LDA 
LSR 
PHA 
LDA 
ROR 
CLC 
ADC 
STA 
PLA 
ADC 
STA 
PLA 
BMI 


JSR 
LDY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
RTS 


S6F81 
$1229 


$1223,Y 


$122A 


91224, 


$1233 
S6FAE 
$122A 


$1229 


$1223,Y 
$1223,Y 


$1224,Y 
$1224,Y 


S6FCE 


SA845 


$7039,X 


$122D 


$D400,Y 


$122E 


$D401,Y 


#508 


$D404,Y 
$1230,X 
$D404,Y 


#0 
$122C 
$1233 


;Note to be played 

;Get the duration the note is 

;To be played out of 

;Note TIME and place it 

;Into the proper VOICE address 

s;If a dotted note is not to 

;Be played, then branch 

;Get the current 

;Duration this note 

;Is to be played 

; (System default is $0120 which 

s;Is the length of 

;A quarter note in 4/4 time) 

;Divide that number by two 

;And add that value to 

;VOICE which is used as 

;The length this voice is to play 

;This note VOICE = N-TIME/2 + N-TIME 

;Get flag to play or perform a REST. If the 
;flag to a REST, then branch to clear SHARP/ 
;FLAT & DOTTED flags--~prepare for the next note 
;Enable BANK 15 

;Get the index value 

;Get the frequency for 

;This note and give it 

;To the SID chip for the 

;VOICE indicated by the index register 
;Turn off the voice that is specified 
;By the index value ($00 = 1, S$O7 = 2, 
;Then pass the waveform for this 

;Note onto the SID chip 

;sSet the flag to 

;Play a natural note. 

;And that there is no dotted note to be played 
;Exit this routine 


SOE = 3) 


KKK IKK KK KKK KKK KKK KKK KK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKK 


* 
* 
* 
* 
x 
* 
* 
* 
* 
* 


Command syntax; 


BASIC TEMPO COMMAND 


+ + + F 


TEMPO x 


* 


This command lets you determine the speed at which a * 
song will be played. The value of the TEMPO speed de-* 


fined by 'x' can be between 0O and 255 


(default=8). * 


* 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KE KKKKKKKKKKKKKKKKKKK KKK 
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6FD7: 
6FDA: 
6FDB: 


6FDD: 
6FEO: 
6FE1: 


6FE4: 
6FES5: 
6FE6: 


6FE7: 
6FE8: 
6FE9; 
6FEA: 
6FEB: 


6FEC: 
6FED: 
6FEE: 
6FEF: 


S87F4 


S6FE1 


$1222 


$7D28 


;Get the tempo rate into the X register 
;Move the tempo rate to the accumulator 
;If the tempo rate is zero, then generate 
s,An ‘ILLEGAL QUANTITY' error 

;Save it as the new tempo rate 

;And exit the routine 

;Generate an ‘ILLEGAL QUANTITY' error 


KK KK KK KKK KKK KK KKK KKK KK KKK KKK KEKKKKEKKEKKKEKEKKKKKKKEKK KKK KKK 


* 


* 


* 


* 


* 


The following table is used as index values to each * 


voice, 


and is used by the BASIC PLAY command. * 


* 


KEK KK KK KKK KKK KEKE KEKE KK KKK KKK KKEKEKKEKKEKKKKKKEKKKK KEK 


~-BYTE $00 
~BYTE $02 
~-BYTE $04 


TXT 
TXT 
TXT 
TXT 
TXT 


TXT 
TXT 
LAT 
TAT 


VALUE VOICE VOTCES 


; 0 1 $1223, $1224 
; 2 2 $1225, $1226 
, 64 3 $1227, $1228 


KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKK KKK KKK 


* 


* 


* 


* 


* 


The following table is used to indicate the duration * 
of a note to be played according to the note's type. * 


* 


KK KKK KKK KKK KK KKK KKK IKK KKK KKK KKK KKKKKKKEKKKKKKKKKKKKKK KKK 


Twi 
th! 
ae Cag 
a 
tUgt 


DESCRIPTION BEAT IN 4:4 TIME 
;Whole note 4/4 

;Half note 2 
;Quarter note 1 

;Eigth note 1/2 
;Sixteenth note 1/4 


KK KK AK KK KKK KKK K HK KKK KKK KEK KKKKKKKKKKKKKKKKKKKKKKK KKK KKKEKK 


* 


* 


* 


* 


* 


These are the control characters that can be used in * 
a PLAY statement to select various parameters. > 


* 


KK KKK KK KKK KKK KKK KKK KKK KEKEKKEKKKKKKKEKKKKKKKKKKK KKK KKKEEK 


iyi 
to! 
mt! 
x! 


DESCRIPTION 

;Voice 

;Octave 

;Tone (tune) envelope defaults 
;Filter ON/OFF 


305 


Abacus Software C-128 BASIC 7.0 Internals 





6FFO: TXT ‘u! ; Volume 
6FF1: TXT 'm! ;M - wait for the end of this measure 


KKEKK KKK KKKKKKKKK KKK KKK KK KKKEKKKKKKEKKEKKEKKKKKKKKKKKKKKKKKKKK 


* * 
* This table contains the values for each of the * 
x Notes A - G and is used by the routine at S6FI1E. * 
* * 


KAKA KKK KKK KKKKKHKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


VALUE NOTE 
6FF2: .BYTE $09 , A 
6FF3: .BYTE $OB ; B 
6FF4: .BYTE $00 ; C 
6FFS* «BYTE-S02 , D 
6FF6: .BYTE $04 re 
6FF7: .BYTE $05 oe 
6FF8: .BYTE SOD ; G 


6FF9: .BYTE $07 

6FFA: .BYTE $2F,S$B6,$83 
6FFD: .BYTE $99,SFC,$Bl1 
7000: .BYTE $25,S5EF,$20 
7003: .BYTE $BE,$D1,$4C 
7006: .BYTE $50,$55 
7008: .BYTE $5A,$5F,$65 
7OOB: .BYTE $6B,$72,$78 
7OOE: .BYTE $80,$87,58F 


KKKK KKK KKKKHKKKKK KKK KKK KKKKEAKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKK 


* * 
* The following values are the default Attack/Decay * 
* rates for the ten instrument sounds. The Attack and * 
* Decay rates are two four bit values that are packed * 
* together into one byte. The Attack rate occupies x 
* bits 7 - 4 and the Decay rate bits 3 - 0. For = 
* example, the first value in the table is 9 which is * 
* 0000 - Attack rate of O and 1001 - Decay rate of 9. * 
* * 
* * 


KAKKKKKKKKKK KK KKK KKK KKK KKK KEKE KKKKKK KK KKK KKKKKEK 


7011:  .BYTE $09,$C0,S$00 
7014: BYTE $05,$94,$09 
7017: BYTE $09,$09,$89 
7O1A: .BYTE $09 
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KKKKKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK KKKKKEKAKKKK KKK KKK KK 


* * 
* The following values are the default Sustain/Release * 
* rates for the ten instrument sounds. The values are * 
* stored in the same format as the Attack/Decay = 
* rates listed above. bg 
* 


* 
KKK KK KK KKK KKK KKK KR KKK KKK KKK KKK KEK KKK KKK KKKKKKK KK KKK K KKK 


701B: .BYTE $00,5C0,5F0 
701E: .BYTE $50,$40,$21 
7021: BYTE $00,$90,$41 
7024: .BYTE $00 


KKK KKK KKK KHKKKEKKKEKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KK KKK 


* * 
* The following values are the default waveforms for * 
* the ten instrument sounds ( $10 = Triangle, * 
* $20 = Sawtooth, $40 = Pulse, $80 = Noise ). The * 
* '1' that is added to each of these values is the * 
* GATE bit. When this bit is stored along with the * 
* waveform value, the combined value turns the * 
* selected sound on. For instance, to turn the a 
* Sawtooth waveform on, the value of $21 is stored * 
* in the proper memory location ($20 for the Sawtooth * 
* waveform plus one for the GATE bit = $21). x 
* * 
* * 


KKK KKK KKK KKK KKK KKH KKK KKK KKK KKK KKK KKKKKKKKKKEKKKEKK 


7025: «BYTE 541,521,511 
7028: .BYTE $81,$11,$21 
702B: .BYTE $41,$41,$41 
7O2E: .BYTE $11 


KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KKKK KKK KKKKKKKKKKK 


* 
The following values are the MSBs of the default = 
pulse width values for the ten instrument sounds. , 
The LSB of each of these values is $00. - 
* 
* 


+ ££ € + 


KKK KK KK KKK KKK KKK KKK KKK KKK IK KKK KKK KKK KKK KKK KKK KKKKKKKKEKK 


702F: .BYTE $06,500,500 
7032: .BYTE $00,$00,$00 
7035: .BYTE $02,508,502 
7038: .BYTE $00 
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KKKKKKKEKKKKKKKKKKEKKKKEKEKKEEKEKEKKKEKKEKKKKKKEKKKKKKKKKKKKKEK 


* * 
* The following values are used as the index to the = 
* voices in the Sound Interface Device (SID). * 
* * 


KKKKKKKK KKK KKKEKEKKEKKKEKKKEKEKKEKKKKKKEKKKKKKKEKKKKEKKKKEKKK 


7039: .BYTE $00,$07,S0E 


KK KKK KK KAKKHK KKK KKKKKKEKKKKEKKEKEKKKKKKKKEKKKKKKKKK KKK KKKKKKK 


* 
* The following values are the volume values that are * 
* used when the control character 'U' is used in the * 
*  ‘'PLAY' command. For example, the statement * 
* PLAY 'U7 A' plays the note 'A' with a volume of 12. * 
* * 
* 


KHKKKKKKKKKKKHKKKKKKKKEKKKEKKKKKEKKKKEKKKKKKKKKKKKKKKKKKKKKK 


703C: .BYTE $00,$01,503 
703F: .BYTE $05,$07,508 
7042: .BYTE $0OA,$0C,S0E 
7045: .BYTE SOF 


KKKKKKKKKKKKKKKKKKKKKEKKKKKEKKEKKKKEKKKKKKKKKKKKKKKKKKKKKKKK 


BASIC FILTER COMMAND Sei 


Command syntax: FILTER [frq][,lwp][,bdp][,hip][,res] * 


res = the resonance value (0 - 15) 


* 

NOTE: frq = the filter cutoff frequency (0 - 2047) * 
lwp = the low-pass filter (1 = on, 0O = off) * 

bdp = the band-pass filter (1 = on, 0 = off) * 

hip = the high-pass filter (1 = on, 0 = off) * 

* 

* 

* 


This command allows you to set the filter 
characteristics of the SID chip. A filter allows some* 
frequencies to pass while others are suppressed. 


The low-pass filter allows frequencies below the 


cuttoff frequency to pass, while suppressing those 
above the cutoff frequency. 


The band-pass filter allows frequencies within a 
specified range to pass while suppressing those 
above and below the specified range. 


+ + € € + FF F F FF F F F F HF F F F F HF 


+ + + + + € € F 
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71046: 


7047; 
7049: 
104C; 
T04F: 
7050: 
7052: 
7053: 
7055: 
7057: 


TOSSA: 
T05C; 
TO5E: 
7061: 
1064: 
1065: 
1068: 
1069: 
T06C: 
TO06D: 
7070: 
7072: 
710753 
7078: 
TOTA: 
tO71C?3 
JOTE: 
7080; 
1083; 
7086: 
7089: 
708B: 


TO8E; 
7091; 
1094; 
7096: 
1099; 
7O9B: 


PHA 


LDY 
LDA 
STA 
DEY 
BPL 
PLA 
CMP 
BEQ 
JSR 


CMP 
BCS 
STY 
STY 
LSR 
ROR 
LSR 
ROR 
LSR 
ROR 
LDA 
STA 
JSR 
BCC 
CPX 
BCC 
BEQ 
JMP 
LDA 
ORA 
BCS 
EOR 


STA 
ASL 
BPL 
JSR 
BCC 
CPX 


t+ + + 
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The high-pass filter allows frequencies above the * 
cutoff frequency to pass while suppressing those - 
below the cutoff frequency. . 
* 
* 


KKEKKKKEKKKKKKKHE KKK KK KKKKKKKKEKKKKKKEKEKKKKKKKKKKKKKKKKKKEK 


#503 


$1271,Y 
$1234,Y 


$7049 


#S$2C 
$7070 
$8812 


#508 

$70BE 
$1234 
$1235 


$1235 


$1235 


$1235 
#510 

$1238 
S9E1E 
$7091 
#S501 

$7083 
$7083 
$7D28 
$1237 
$1238 
$708E 
$1238 


$1237 
$1238 
$7075 
S9E1E 
$70B2 
#$10 


;Save the first character after the command 
,;Onto the stack 

;Set index to number of bytes to transfer - 1 
;Save the current 

;Filter values 

;Temporarily 


;Restore the accumulator 

s;If no cutoff frequency is specified, 

;Then branch to get the second parameter 

;Get the cutoff frequency in the Y register and 
;The accumulator 

;If the cutoff frequency is greater than 2047, 
;Then generate an ‘ILLEGAL QUANTITY' 
;Save the LSB 

,;Of the Filter cutoff frequency 
;Adjust the range 

;So the LSB and MSB of 

;Filter 2047 equals SFFFF 

;And Filter 1 

;Equals $0001 


error 


;Starting bit location 
;For the Filter switches 
;Get the value for the low-pass Filter on or off 
;If no value was specified, then branch 

;If the value specified 

s;Is not zero, then branch 

;If the value is not one, then branch 
;Generate an 'ILLEGAL QUANTITY' error 

;Get the packed Filter values 

;Set the proper bit for Filter type '‘'on' 

;If the Filter was selected, then branch 

s;If it was not, then clear the bit to turn 
;The Filter ‘'off' 

;Save the value back 

;Shift the counter to the next Filter type 
;Continue 

;Get the resonance value, if any, into X reg. 
;If no value was specified, then branch 

;If the resonance value is 
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709D: BCS $70BE ;Greater than 15, then generate 
;An ‘ILLEGAL QUANTITY' error 
TO9F: TXA s;Move the value to the accumulator 
7OA0O: ASL ;Move the resonance value 
7OA1: ASL ;To the upper nybble (bits 0-3) to (bits 7-4) 
7OA2: ASL 
70A3: ASL 
70A4: STA $1239 ;Save it 
7OA7: LDA $1236 ;Get the packed Resonance/Voice input register 
TOAA: AND #SOF ;Drop the old resonance value 
7JOAC: ORA $1239 ;Replace it with the new value 
TJOAF: STA $1236 ;Save it back 
7OB2: LDY #$03 ;Set index to number of bytes to transfer - 1 


70B4: LDA $1234,Y s;Move the 
70B7: STA $1271,Y sNew filter 


JOBA: DEY ;Values 

7OBB: BPL $70B4 ; Back 

7OBD: RTS ;Then exit this routine 

JOBE: JMP $7D28 ;Generate an ‘ILLEGAL QUANTITY' error 


KaKKKKKKKKKKKKKKKKKEKKKKEKKKKKEKKKKKKEKEKKKKKKEKKEKKKKKKEKKKKKKEKEK 


* * 
* BASIC ENVELOPE COMMAND * 
* * 
* Command syntax: ENVELOPE x[,atk][,dec][,sus][,rel] * 
. [,wve] [, psw] " 
* * 
* NOTE: x = envelope number * 
ial atk = attack rate (0 - 15) - 
* dec = decay rate (0 - 15) bs 
* sus = sustain value (0 - 15) * 
* rel = release rate (0 - 15) = 
= wve = waveform value * 
* * 
* where: 0O = triangle . 
i 1 = sawtooth be 
* 2 = variable pulse width (square) * 
* 3 = noise * 
* 4 = ring modulation * 
* * 
* psw = pulse width (0 - 4095) = 
* * 
* This command allows you to set up the waveform * 
* characteristics of a sound that is to be produced. in 
* There are ten predefined instrument sounds in the * 
* 128. They are; piano, accordian, calliope, drum, * 
* flute, guitar, harpsichord, organ, trumpet, and * 
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xylophone. These instruments correspond to envelope * 
numbers 0 - 9 respectively. If you wish to use one * 
of the predefined instruments, just use the envelope * 
number without specifying any other parameters. * 
* 
* 


+ + + + 


KKKKKKKKKKKKKK KK KKK KKKKKKKKKKKKKKEKKKKKEKKEKKKKKKKKKKKKKKKEK 





70C1: JSR S87F4 ;Get the envelope number into the X register 
70C4: CPX #10 ;If the value is between 
70C6: BCC $70CB ;0 and 9, then continue 
70C8: JMP $7D28 ;if not, generate an 'ILLEGAL QUANTITY' error 
7OCB: STX $123A ;Save the envelope number 
JOCE: LDA $123F,X ;Using envelope number as an index, get the old 
;Attack/Decay rate 
70D1: STA $123B ;Save it as a default value 
70D4: LDA $1249,X ;Get the old Sustain/Release rate 
70D7: STA $123C ;Save it as a default value 
7ODA: LDA $1253,X ;Get the old waveform value 
70DD: STA $123D ;Save it 
7OEO: LDX #$00 ;Set the initial index to zero 
70E2: STX $123E ;For Attack/Decay values 
7OE5: JSR S9E1E ;Get the Attack or Sustain value into the X reg. 
7OE8: BCC $7100 ;If no value was specified, then branch 
TJOEA: TXA s;Move the value into the accumulator 
7JOEB: ASL ;Shift the value 
TOEC: ASL 74 times 
7JOED: ASL ;To place the Attack or Sustain rate 
JOEE: ASL ;Into the high nybble of the byte 
JOEF: STA $1239 ;Save it 
7OF2: LDX $123E ;Get the index to the appropriate register 
7OF5: LDA $123B,X ;Get old Attack/Decay or Sustain/Release value 
7JOF8: AND #SOF ;Drop the old Attack or Sustain value 
7JOFA: ORA $1239 ;Replace it with the new value 
TOFD: STA $123B,X ;Save it back 
7100: JSR S9E1E ;Get the Decay or Release rate, if any, 
;Into the X register 
7103: BCC $7119 ;If no value was specified, then branch 
7105: TXA ;Move the value into the Accumulator 
7106: AND #S0F ;Drop bits 7 - 4 
7108: STA $1239 ;Save it temporarily 
710B: LDX $123E ;Get the index to the proper storage area 
710E: LDA $123B,X ;Get old Attack/Decay or Sustain/Release value 
7111: AND #SFO ;Drop the old Decay or Release value 
7113: ORA $1239 ;Replace it with the new value and 
7116: STA $123B,X ;Save the new Attack/Decay or 
;Sustain/Release value 
7119: LDX $123E ;Get the current index 
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TALC: 
711D:3: 
J11F: 
y swe. 
71243 
7126: 
7128; 
712A: 
712C3 


712E: 
ples gle 
fi Ihe es 
7136: 


7139; 
T1I3B3 
13C% 
TLSEs 
7141: 
7143: 
7144; 
71473 
714A; 
714B: 
714E: 
7151: 
7154: 
113573 
715A; 
715D:; 
7160: 
7163: 


INX 
CPX 
BEQ 
JSR 
BCC 
LDA 
CPX 
BEQ 
BCS 


LDA 
ORA 
STA 
JSR 


BCC 
TAX 
LDA 
AND 
BEO 
TXA 
LDX 
STA 
TYA 
STA 
LDX 
LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 


#$01 
$70E2 
S9EIE 
$7136 
#515 
#504 
$7133 
$70C8 


$6CB7,X 


#S01 
$123D 
S9EO6 


$714E 
$123D 
#540 


$714E 


$123A 


$1267,X 


$125D,xX 


$123A 
$123B 


$123F,X 


$123C 


$1249,X 


$123D 


$1253,X 


;Add one 

;If the index equals 1, 

;Then branch back to set Sustain/Release values 
;Get the waveform value, if any, into the X reg. 
;If no value was specified, then branch 

;Set the initial value to ring modulation 

;If the waveform specified is 4 

;For ring modulation, then branch 

;If the value is greater than 4, then generate 
;An ‘ILLEGAL QUANTITY' error 

;Get appropriate value for specified waveform 
;And add one to set the GATE bit 

;Save the waveform 

;Get the pulse width, if any, into the Y 
;Register and the accumulator 

;If no value was specified, then branch 

;Move the MSB of the pulse width into the X reg. 
;Get the waveform value 

;Check if the pulse waveform was selected 

;If not, then branch 

;Move the MSB back into the accumulator 

;Get the envelope number 

;Save the MSB of the pulse width 

;Move the LSB of the pulse width into the acc. 
;And save the LSB of the pulse width 

;Use the envelope number as an index 

;Get the packed Attack/Decay rate 

;And save it 

;Get the packed Sustain/Release rate 

;And save it 

;Get the waveform, 

;Save it, 

;And exit 


KEKE KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKKKKKEKKKKKK KKK KK KK KKK KKKK 


+ + £ + £ + FF FF F 


Command syntax: 


NOTE: 


coltyp = the collision type 


where; 1 = sprite to sprite 


BASIC COLLISION COMMAND 


COLLISION coltyp [,action] 


2 = sprite to display data 
3 light pen 


+ + F F F F F HF 
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7164: 
71673 
7168: 
716A; 
716C: 
T16F; 


TLd2Z: 


7173: 
7176: 
7179: 
T17A;3 
717D: 
7180: 
7183: 
7184: 
7186: 
7189; 
718C3 
718D;: 


JSR 
DEX 
CPX 
BCS 
STX 
JSR 


PHP 


LDX 
STA 
TYA 
STA 
LDA 
ORA 
PLP 
BCS 
EOR 
STA 
RTS 
JMP 


will be 
‘coltyp 


S87F4 


#$03 

$718D 
$1280 
$9E06 


$1280 
$127C,X 


$1279,X 
$127F 
$6CB3,X 


$7189 
$6CB3,X 
$127F 


$7D28 


action = the line number for the action to 
be taken when the collision type 
specified by ‘coltyp' occurs 


taken when the collision specified by 
' occurs. 


* 

* 

* 

* 

This command allows you to dictate what ‘action! . 
* 

* 

* 

* 


KKK KKK KK KK KKK KKKKEKKKKKKKKKKKEKKKKKKKKK KKK KKKK KKK KKK KKK 


;Get the collision type into the X register 
;If the collision type 

;Value is greater than 2, 

;Then generate an ‘ILLEGAL QUANTITY’ error 
;Save the colllision type 

;Get the Line number to GOSUB to, if any, 
;Into the Y register and the accumulator 

;Save the status register 

; (Carry set = a line number was specified) 
;Use the collision type as an index 

;Save the LSB of the line number 

;Move the MSB of the line number into the acc. 
;Save the MSB of the line number to GOSUB 

;Get the interrupt status 

;Set the proper bit for the specified interrupt 
;Restore the status register 

;If a line number was specified, then branch 
;If not, turn off the specified interrupt check 
;Save the interrupt value 

;And exit 

*Generate an ‘ILLEGAL QUANTITY’ error 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKEKEKKKKKKKKKKKKKKKK KKK KK 


+ + &€ + & + € FF FF HF F 


Command 


NOTE: 


BASIC SPRCOLOR COMMAND 


syntax: SPRCOLOR [smc-1][,smc-2] 


smc-2 the Multicolor 2 for all the sprites 


This command allows you to set the Multicolor 1 and 


Multico 


* 
* 
* 
* 
* 
smc-1 = the Multicolor 1 for all the sprites * 
* 
* 
* 
lor 2 colors for all of the sprites. * 

* 

* 


kkk KK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKEKKEKKKKKKKKKKKKKK KEK 
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7190: 
T1923 
7194; 
71973 
7198: 
719A: 
TLIC 
J19F; 
TA]; 
71A5: 
TIAT?: 
T1A8: 
71AA: 
T1AC: 
TIAF: 
71B2: 
7 gas 


71B6; 
T1B9;3 
PLBAS 
J1BC; 
T1IBE: 
TICE? 
TLC2% 


CMP 
BEQ 
JSR 
DEX 
CPX 
BCS 
JSR 
STX 
JSR 
BCC 
DEX 
CPX 
BCS 
JSR 
STX 
RTS 
JMP 


JSR 
DEX 
CPX 
BCS 
STX 
RTS 
JMP 


#$2C 
$71A2 
S87F4 


#510 

$71B3 
SA845 
$DO025 
S9E1E 
$71B2 


#510 

$71B3 
SA845 
$D026 


$7D28 


;If there is no first parameter, 

;Then branch to get the second parameter 
;Get the first parameter into the X register 
;If it is greater 
;Than 16, 

;Then generate an 
;Enable BANK 15 
;Set the Multicolor 1 value 

;Get the second parameter into the X register 
;If there is no second parameter, then exit 
;If the second parameter is 

;Greater than 16, 
;Then generate an 
;Enable BANK 15 
;And set the Multicolor 2 value 
;Exit 
;Generate an 


'TLLEGAL QUANTITY' error 


'TLLEGAL QUANTITY' error 


'TLLEGAL QUANTITY' error 


KKK KK KKK KKK KKK KI KK KI KK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKK KKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


S87F4 
#502 

$71C2 
$116B 


$7D28 


* 

BASIC WIDTH COMMAND Ls 

* 

Command syntax: WIDTH x * 
* 

NOTE: the line width value = 
* 

where: 1 = a single width line * 

2 = a double width line * 

* 

This command allows you to set the width of the * 
lines that are drawn by the BASIC graphics commands. * 
* 

KKK KKK KI KK KKK KKK KK KKK KKK KKK KK KI KHK KKK KKK KKKKK KK KKK KKK KK 


;Get the width value into the X register 
;If the value is 

;Greater than 2, 

;Then generate an 'ILLEGAL QUANTITY' error 
;Save the width value 

;And exit 


;Generate an ‘ILLEGAL QUANTITY’ error 
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TICS: 
71C8:; 
T1CA: 
T1CC3 
TICE: 
71D1; 
71D3: 
71D5:; 
71D8; 
71DB: 
71DD: 
TIDF: 
J1E2; 
LES: 
71E8; 
71E9:; 


JSR 
CPX 
BCS 
STX 
LDA 
AND 
ORA 
STA 
LDA 
AND 
ORA 
STA 
JSR 
STA 
RTS 
JMP 





KakKkKKKKKKKKKKKKKMKKKKKKKKKK KKK KKKKKKKKKK KKK KR KKK KK KKK KK KKK 


BASIC VOLume COMMAND 


Command syntax: VOL volval 


This command allows you to set the volume of the SID 
chip to minimum (0), maximum (15), or any level in 
between (0 - 15). 


* * 
* * 
* * 
* * 
* * 
* NOTE: volval = the sound volume value (0 - 15) ai 
* * 
* * 
* * 
* * 
* * 
* * 


KKKKKIK KKK KKK KKK KKK KKK KKK KKK KK KKK KKKEKKKKEKKKKKKKKKKKEKK 


S87F4 ;Get the Volume value into the X register 

#$10 ;If it is greater than 16, 

S71E9 ;Then generate an ‘ILLEGAL QUANTITY' error 

$77 ;Save the Volume value 

$1274 ;Get the old Volume value 

#SFO ;Clear the old Volume 

$77 ;Replace it with the new value 

$1274 ;Save it back 

$1275 ;Get the old Volume value 

#SFO ;Clear the old value 

$77 ;Replace it with the new Volume value 

$1275 ;Save it 

SA845 ;Enable BANK 15 

$D418 ;Set the SID chip to the specified Volume 
;And exit 

$7D28 ,;Generate an ‘ILLEGAL QUANTITY' error 


KKKKKKKKKK KKK KKK KKK KKK KK KK KKK KKK KE KKK KK KKKKKKKKKKKKKKK 


* * 
* BASIC SOUND COMMAND * 
* * 
* Command syntax: SOUND vce,frq,dur[,dir]][,mfq] - 
" [, stv] [,wve] [,psw] . 
* * 
* NOTE: vce = voice (1 - 3) . 
* frq = frequency (0 - 65535) * 
ss dur = duration (0 - 32767) x 
- dir = step direction * 
* * 
* where: O = up = 
* 1 = down al 
* 2 = oscillate * 
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TLEC: 
TI1EF: 
T1FO: 
T1F2:3 
T1F4;3 


T1EF7: 
T1FA: 


TLED 
1200: 
7203: 
12063 
7209; 


720C: 
T20E: 
71210: 
IZ13% 
71216: 


7219: 
721B: 
721D: 
T21E3 
WZ2i% 


12234 


mfq 


stv 
wve 


psw 


= minimum frequency if the sweep is 
used (0 - 65535) 

= step value for sweep 

= waveform 


(0 - 32767) 


where: = triangle 
= sawtooth 


variable pulse width (square) 


mW HM F OO 
H 


= ring modulation 


pulse width (0 - 4095) 


This command allows you to qenerate a SOUND whose 
characteristics are specified by the parameters that 
follow the SOUND command. 


S87F4 


#503 
S71F7 
$7D28 


$1281 
$880F 


$12A5 
$12A6 
$12AC 
$12AD 
$880F 


#$80 

S$71F4 
$12A3 
$12A4 
$9E1C 


#$03 
S71F4 


$12A9 
#501 


* 
* 

* 

* 

* 

* 

* 

* 

= noise * 
* 

* 

* 

* 

* 

* 

* 

* 

* 


kkkkkkkkkkkkk kkk kkk kk kkk KKK KKKKKKKKKKKKKKKEKKKEKKK KKK KKK 


;Get the voice number into the X register 
;If the voice number 

;Is the voice number greater than 3 

;If not, then branch 

;If the voice number is greater than 3, then 
;Generate an 'ILLEGAL QUANTITY' 
;Save the voice number 

;Check for a comma and get the frequency value 
;Into the Y register and the accumulator 

;Save the LSB 

;And the MSB of the frequency 

;Again 


error 


;Check for a comma and get the duration value 
;Into the Y register and the accumulator 

;If the duration value is greater than 32767, 
;Then generate an 'ILLEGAL QUANTITY' 
;Save the LSB and 

;The MSB of the duration value 
;Check for a comma and get the step direction, 
;If any, into the X register 

;If the direction value is greater than 2, 
;Then generate an 'ILLEGAL QUANTITY' error 
;Move the direction value to the accumulator 
;And save it 

;Drop all bits except bit 0O to check for a 
;Direction of down 

;Save the status register 


error 
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7224; 
72273 
722A: 
722D: 


7230; 
2313 
71233: 
7234: 
72353 
T2373 
71238: 
723A: 
723B: 
723C: 
723E: 
7240; 
71243: 
7244; 
7247: 
7249; 
724C; 
724E: 
72503 
1253 
7253: 
7258: 


725B: 
725D:3 
T25F: 
71261: 
7263: 
7265; 
7268: 
726B: 
726E: 
7271: 
7273: 
72763 
7277; 
7278: 
712793 
T27C3 
T2Z7E: 
71281: 
7283; 


JSR 
STY 
STA 
JSR 


PLP 
BEQ 
PHA 
TYA 
EOR 
CLC 
ADC 
TAY 
PLA 
EOR 
ADC 
STA 
TYA 
STA 
LDX 
JSR 
CPX 
BCS 
LDA 
ORA 
STA 
JSR 


BCS 
LDA 
LDY 
CMP 
BCS 
STY 
STA 
LDA 
ORA 
BEQ 
LDX 
TXA 
ASL 
TAY 
LDA 
BPL 
LDA 
BPL 
LDY 


S9F06 
$12A7 
$12A8 
S9F06 


$7240 


#SFF 


#501 


#SFF 
#$00 
$12AB 


S12AA 
#$02 
SOR1E 
#504 
$721B 


S6CB7,X 


#501 
$12BO0 
$9EO6 


$7261 
#$08 

#500 

#510 

S71F4 
S12AE 
S12AF 
$12A3 
$12A4 
$72B9 
$1281 


$1224,Y 


$7279 


$1285,X 


S727E 
#$00 


;Get the minimum sweep frequency, if any, 


;Save 


the LSB and 


;The MSB of the sweep frequency 

;Get the sweep step value into the Y register 
;And the accumulator 

;Restore the status register 

;If the sweep direction was not down, branch 


;Save 
;Save 


the MSB of the step value 
the LSB of the step value onto the stack 


;Generate the twos complement 
;Of the value 
;And move the result 


; Back 


into the Y register 


;Restore the accumulator 
;Generate the twos complement 
;Of the MSB of the step value 
;And save it 


;Save 


the LSB 


;Of the step value 

;Default waveform 

;Get the waveform, if any, into the X register 
;If the waveform specified is greater than 3, 


; Then 


generate an ‘ILLEGAL QUANTITY' error 


;Get the appropriate waveform value, 
;Set the GATE bit, 

;And save it 

;Get the pulse width, if any, into the Y 
;Register and the accumulator 


;if a 


value was specified, then branch 


;Set the default pulse width 
;Value to 2048 
;If the pulse width value is greater than 4095, 


;Then 
;Save 


generate an 'ILLEGAL QUANTITY' error 
the LSB and 


;The MSB of the pulse width 

;If both the MSB 

;And the LSB of the duration value 
;Are zero, then branch 

;Get the voice number 


;Move 


it into the accumulator 


;Multiply it by 2 
s;And use the result as an index 


;Wait 
;Both 
;Have 
;Down 
7;Zero 


until 
counters 
counted 
to SFF 
the index 
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7285; 
7288; 
728B; 
728C: 
728D: 
J28E; 
T28F: 
72913 
72933 
7296: 
72993 
729C;3 
T29E: 
T2A4i3 
T2A3: 
T2A63 
7T2A8; 
T2AB: 
T2AD3 
72B0: 
12B33 
12B4: 
72B5;3 
T2B73 
72B9: 
72BC: 
T2BF 3 
712C23 
12C3 3 
72C6;3 
T2C73 
T2CA: 
72CB: 


LDA 
STA 
INX 
INX 
INX 
INY 
CPY 
BNE 
LDX 
LDY 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
STA 
INY 
INX 
CPX 
BNE 
LDX 
LDY 
LDA 
SEI 
STA 
TYA 
STA 
CLI 
RTS 


$12A5,Y 
$1288,X 


#$09 
$7285 
$1281 


$7039,X 


SA845 
#508 


$D404,Y 


#$00 


$D405,Y 


#SFO 


$D406,Y 


#$00 


$12AC,X 
$D400,Y 


#$05 

$72AD 
$1281 
$12A3 
$12A4 


$1285,X 


$1282,X 


;Get the frequency value for the specified voice 
;Save it as the Sound Minimum and Maximum value 
;Move the index 

;To the next register 

;To update 

;Move the index to the next frequency value 
;Continue until all are | 
;Transferred 

;Use the voice number as an index 

;Get the appropriate index for that voice 
;Enable BANK 15 

;Turn off 

;The appropriate voice 

;Set the Attack/Decay 

;Rate to 0 

;Set the Sustain rate to MAXIMUM 

;And the Release rate to 0 

;Zero the index 

;Get the Sound values 

;And store them in the SID chip 

;Increment the SID index 

;Continue until 

;Five values have been 

; Transferred 

;Use the voice number as an index 

;Get the LSB and 

;The MSB of the duration value 

;Stop all background jobs 

;Save the MSB of the duration value 

;Move the LSB to the accumulator 

;Save the LSB of the duration value 
;Restart background jobs 

;And exit 


KKK KK KKK HK KKK KKK KH KK KK KKK KKK KKKKKKEKKKHKKKKKKKKKKKKKKKKKKK 


+ + + F FF H 


Command syntax: 


NOTE: 


tlic 
tlr 
on a @ 
brr 
clr 


BASIC WINDOW COMMAND 


WINDOW tlc,tlr,brc,brr[,clr] 


top left column value 

top left row value 

bottom right column value 
bottom right row value 

clear the window (1 = yes, 0 = 


+ + + € € € FF FF F F 


no) 
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7T2CC: 


T2CF3 
T1ZDLS 
72D3: 
72D5:3 
72D7: 


72D9; 
72DC3 
T2DF: 
T2E1;3 
72E3: 
12E63 
T2E9:3 
72EB: 
7T2ED: 
J2EF: 
T2F1: 


J2F3: 
T2F63 
T2F9:3 


T2FB:3 
T2FE:3 
7300: 
7302: 
7305; 
73083 


T30A3 
730D: 
730F: 
7311: 
7312: 
1313% 
7316; 
7319: 


JSR 


CPX 
BIT 
BPL 
CPX 
BCS 


STX 
JSR 
CPX 
BCS 
STX 
JSR 
CPX 
BIT 
BPL 
CPX 
BCS 


STX 
CPX 
BCC 


JSR 
CPX 
BCS 
STX 
CPX 
BCC 


JSR 
CPX 
BCS 
TXA 
PHA 
LDX 
LDA 
CLC 


This command allows you to define a window on the * 
screen to which the screen display will be output. i 


$87F4 


#528 
$D7 
$72D7 
#$50 
$7332 


$12B3 
$8809 
#$19 
$7332 
$12B4 
$8809 
#$28 
$D7 
$72F1 
#$50 
$7332 


$12B5 
$12B3 
$7332 


$8809 
#$19 

$7332 
$12B6 
$12B4 
$7332 


$S9E1C 
#502 
$7332 


$12B3 
$12B4 


* 


KKKKKK KKK KK KKK KKK KKKEKKKKKKKKKKKKKKKKKKK KKK KKK KKK KK KK KKK 


;Get the top left column of the window into the 
;X register 

;Check if it is greater than 39 

;Check if we are in the 40 or the 80 column mode 
;If we are in the 40 column mode, then branch 
;Check if the value is greater than 79 

;If it is greater than 39 in the 40 column mode 
;Or 79 in the 80 column. mode, then generate 

7An ‘ILLEGAL QUANTITY' error 

;Save the top left column value 

;Get the top left row value 

;If it is greater than 24 

;Then generate an ‘ILLEGAL QUANTITY' error 
;Save the top left row value of the window 

;Get the bottom right column value 

;Check if it is greater than 39 

;Check if we are in the 40 or the 80 column mode 
;If we are in the 40 column mode 

;Check if it is greater than 79 

;If the value is greater than 39 in the 40 
;Column mode, or greater than 79 in the 80 
;column mode, then generate an 

; "ILLEGAL QUANTITY' error 

;Save the bottom right column of the window 

s;If it is less than 

;The top left column value, then generate an 

, ‘ILLEGAL QUANTITY' error 

;Get the bottom right row value of the window 
;If it is greater than 24 

;Then generate an 'ILLEGAL QUANTITY' error 
;Save the bottom right row of the window 

;If it is less than 

;The top left row value, then generate an 

; ' ILLEGAL QUANTITY' error 

;Get the clear flag 

;If it is greater than 1 

;Then generate an 'ILLEGAL QUANTITY' error 
;Save the clear window flag 

;Onto the stack 

;Get the top left column of the window 

;Get the top left row of the window 

;Clear the carry to set the top left row column 
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731A: JSR $CO2D ;Set up the top left row column of window 

731D: LDX $12B5 ;Get the bottom right column of the window 

7320: LDA $12B6 ;Get the bottom right row of the window 

71323: SEC ;Set the carry to set bottom right row column 

7324: JSR $C02D ;Set up the bottom right row, column of window 

7327: LDX #$13 ;Value for 'HOME' 

7329: PLA ;Get the clear window flag 

732A: BEQ $732E ;If the window is not to be cleared, then 
;Just output 'HOME' 

7132C:. -LDX #$93 ;Value for 'CLR' clear screen 

732E: TXA ;Move the characters to the accumulator 

732F: IMP $9269 ;And output 

71332: IMP $7D28 ;Generate an 'ILLEGAL QUANTITY' error 


kkkkkk kk kkkkkkkkkkkkkkk kk kkk kkk kkk kkk Keke KKK KK Kk kkk kkk kk kkk 


BASIC BOOT COMMAND 
Command syntax: 
BOOT “filename"[,DR] [<ON,>DV] [,BN][,P] 


NOTE: DR = 'D' + the drive number 
DV = 'U' + the device number 
BN = 'B' + the bank number to load in 
P = 'P' + the alternate starting address 


Example: 10 AS="EXAMPLE":A=2816 
20 BOOT (AS) ,DO,U8,B15,P (A) 


When you RUN the example program listed above, the 
program named "EXAMPLE" will be BLOADED into memory 
starting at address 2816 and then SYSed to at that 
starting address to activate the program. 
The following examples achieve the same results: 
Example 1: 10 BOOT "EXAMPLE", P2816,U8,D0,B15 
OR 

Example 2: 10 BOOT "EXAMPLE", P(DEC"OBOO")),U8,D0,B15 
WARNING: This command only works with a 1571 disk 

drive that is in the 1571 mode. If this 


routine is used with something other than 
a 1571 disk drive in the 1571 mode, the 


+ + + € FF HE HF OF KF F F F F F F F OF F F HF F HF F F F F F F HF HF HF 
+ + * *  F F OF OF KF OF F F HF F F HF % F HF F F F F F F F F HF F HF 
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T335% 
7337: 
7339; 
733C: 
733E; 
733F: 
7341: 
7344: 
713463 
71349; 
734B: 
734C; 
7134E3 
1T391% 
7353; 
713959% 
739 7% 
7359: 
735B: 


T35E:3 
7361: 
71363: 


. 73663 


71369: 
736C: 
136E: 


LDA 
ORA 
LDX 
JSR 
JSR 
BCS 
RTS 


+ £ £ + FF F F 


NOTE: 


computer will crash with a probable 
"BREAK! 


If you know the address to SYS to, 
POKE this address into locations SAC, SAD 
as LSB, MSB format. 


into the MONITOR. 


* 
* 
* 
you can * 
* 
* 
* 
* 


kak KkKKKKKKKKEKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK 


+ + + F * F OF 


#SE6 
#SFC 
SA3C3 
$80 


$735E 
SA21F 
$736F 
$03D5 
$81 


$7351 
$011F 
$02 
SAC 
$04 
SAD 
$03 
SFF6E 


This routine will load Track 1, 
in an attempt to locate the required information. 


NOTE: 


For more information on this routine, 
to the owner's manual. 


;Ensure that the only parameters specified are 
;The Filename, Drive number, Device number 

;The Bank number, and the New starting address 
;Get the bit value of the parameters used 
;Shift the Filename bit into the carry 

;if there is no Filename, go to the boot sector 
;Perform a 'BLOAD' 

;Iif there is an error, then branch 

;BANK for SYS, POKE, PEEK set by BANK command 
;Check if a BANK 

;Number was specified in BOOT command statement 
;If not, then branch 

;Get the BASIC BANK number 

;Save it 

;Get the LSB of the starting address 

;Save it as the LSB of the address to JSR to 
;Get the MSB of the starting address 

;Save it as the MSB of the address to JSR to 
;Call JSRFAR to execute the program 


Sector O into SOBOO 


refer 


+ + + + + + F 


;Get the drive number 

;Create an ASCII digit 

s;Get the current device number 

;Enable BANK 15 

;Check for the Boot sector and the Boot File 
;If there is an error, 
sExit 


then branch 
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736F: JMP $90D0 


;Generate a BASIC error message for the KERNAL 


KAKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKEKKKKKKKKKKKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


Command syntax: | 


This command allows you to enter the sprite 
definition utility which is part of the 128's 
operating system. 
and edit a sprite on the screen that can be called 
and used later by the SPRITE commands. 


KK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKK KKK 


BASIC SPRDEF COMMAND 


SPRDEF 


* 
* 
* 
* 
* 
* 
* 
This utility allows you to create * 
* 
* 
* 
* 


7372: JSR SOF4F 

7375: JSR SA845 ;Enable BANK 15 

7378: LDA #SDO ;Set the page number 

737A: STA $1168 ;Of the character set to be used 

737D: LDA #520 ;Turn on the HIRES 

737F: STA SD8 ;Bit map 

7381: JSR $6B30 ;Clear the bit map 

7384; LDY #$80 ;Set bit 7 

7386: STY $113D ;So that reversed characters are printed 

7389: LDY #518 ;Starting column for the border 

738B: LDA #$20 ;Value to be outputted 

738D: LDX #500 ;Starting row 

738F: JSR $68DB ;Output a space 

7392: INX ;Move to the next row 

7393: CPX #515 ;Have we done twenty-one rows yet? 

7395: BCC $738F ;If not, then branch 

7397: $$$.JSR S68DB ;If we have done twenty-one rows, then 

739A: DEY ;Move to next column to form the bottom border 

739B: BPL $7397 ;Continue until the bottom border is completed 

739D: JSR SA845 ;Enable BANK 15 ; 

73A0: LDA SF1l ;Color code under cursor for the character 
,output 

73A2: PHA ;Save it onto the stack 

73A3: LDA $D021 ;Get the current background color 

73A6: STA SF1 ;Save it as the character color 
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73A8: 
73AA: 
7T3AC;3 
T3AF: 
73Bl1: 
73B43 
73B5: 
73B7: 
73B9; 
73BA: 
73BC: 
73BE: 
73BF; 
TaCls 


73C4:3 
13C6: 
73C8:; 
73CB: 
73CD: 
73D03 
73D1: 
73D3: 
73D6: 
73D9:;: 
73DB: 
73DD: 
73DF: 
7T3E2; 
73E4;3 
73E6: 


73E7: 
73E8: 
7T3EA3: 


LDA 
LDX 
STX 
LDY 
JSR 
INY 
CPY 
BCC 
INX 
CPX 
BCC 
PLA 
STA 
JSR 


#'+! 
#$00 
$113D 
#500 
$68DB 


#$18 
$73Bl 


#$15 
$73AF 


SF1 
$76D4 


;Value to output 

;Starting row of 0 

;Clear bit 7 to print normal characters 
;Starting column to 0 

;Print the value to the HIRES screen 
;Move to the next column 

;Continue until twenty-four columns 
;Are filled with '+' 

;Move to the next row 

Continue until 

;Twenty-one rows are filled with '‘'+' 
;Get the character color back 
;Restore the character color 


;Color the Sprite definition block to hide '+' 


KKK KI KKK KK KKK KKK KKK IKKE KKK KKK KK KKKKKKKKKKKKKKKKKKKKKKKKK 


* * 
* PRINT 'SPRITE NUMBER?' to the screen. x 
* * 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKEKKKKKKKKKKKKKKK 


LDY 
LDX 
LDA 
BEQ 
JSR 
INY 
BNE 
JSR 
JSR 
BEQ 
CMP 
BNE 
JSR 
LDA 
STA 
RTS 


#502 
#$17 


$766C,Y 


$73D3 
$68DB 


$73C8 
$A845 
SFFE4 
$73D6 
#13 
$73E7 
$6B30 
#0 
SD8 


;Index to the message and to the starting column 
;Row value to print to 

;Get a character of the message 

;If it is the delimiter, then branch 
;Output the character to the HIRES screen 
;Move to the next character 

;Continue output 

;Enable BANK 15 

,Get a character from the keyboard 
;Continue scanning until a key is depressed 
;<CR>? 

;If not, then branch 

;Clear the bit map screen 

;Return to the 

;Text mode 

PEKEC 


KKK KK KKK KK KKK KKK KKK KKK HK KKK KEKE KEKKKKKAKKKKKKEKKKK KKK KKK KKK 


* * 
x TEST FOR DIGITS 1 - 8 * 
* * 


KH KKK KKK IKK KK KKK KKK KKK KKK KKK KKK KKKKKEKKKKKKEKKEKKKKKKKKKKKKK 


SEC ;Set the carry for subtraction 
SBC #$31 ;Create the HEX value - 1 
STA $12FC ;Save the sprite number - 1 
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73ED: CMP #508 s;If the value entered was greater than 8, 

73EF: BCS $73D6 ;Then go back to the input loop 

73F1: TAX ;Move the sprite number into the accumulator 

73F2: ASL ;Multiply it by 2 to create an index 

73F3: TAY ;Save it in the Y regiter 

73F4: LDA $6CB3,X ;Get the sprite bit number 

73F7: STA $116D ;And save it 

73FA: AND $DO1C ;Check if the selected sprite is multicolor 

73FD: BEQ $7401 s;If not, then branch 

13FF: LDA #580 ;Value for multicolor sprite 

7401: STA $12FA ;For multicolor (128 = multicolor) 

7404: LDA #S$08 ;Set the sprite's 

7406: STA $11D6,Y ;X coordinate LSB to 8 

7409: LDA #S4A ;Set the sprite's 

740B: STA $11D7,Y ;Y coordinate to 74 

740E: LDA $116D ;Get the sprite's bit number 

7411: ORA $11E6 ;Set the MSB of that sprite's X coordinate to 1 

7414: #=STA $11E6 ;Store it back to set the sprite's X coordinate to 264 

7417: LDA $116D ;Get the sprite ON/OFF configuration 

741A; STA $D015 ;Enable the sprite 

741D: LDX $12FC ;Use the sprite number - 1 as an index 

7420: LDY S6DD9,X ;Get the offset to the speed value of the sprite 

7423: LDA #$00 ;Set the currently displayed 

7425; STA S117E,Y ;Sprite's speed to zero 

7428: TXA ;Move the sprite number - 1 into the accumulator 

7429: LDY #$11 ;Column to start printing at 

742B: LDX #$17 ;Row to print at 

742D: CLC ;Clear the carry flag for addition 

742E: ADC #$31 ;Convert the sprite number to ASCII 

7430: JSR $68DB ;Output the digit to the HIRES screen 

7433: JSR SA845 ;Enable BANK 15 

7436: LDA $12FC ;Get the sprite number - 1 

7439: LSR ;Using the sprite number 

743A: ROR ;AS a base 

743B: ROR ;Calculate the proper 

743C: STA $4B ;Address for the sprite 

743E: LDY #SOE ;Data 

7440; BCC $7443 ;And store the 

7442; INY ;Address 

7443: STY S4C s;In $4B,$4C 

7445; JSR $75D1 ;Adjust the sprite's color 

7448: LDY #$3F ;Load the Y register with the number of bytes 
;To transfer 

744A; LDA ($4B),Y ;Transfer the sprite data 

744C: STA $12B7,Y ;To be used by the SPRDEF routine 

T144F:; DEY ;Move to the next byte 

7450: BPL S744A ;Continue until 64 bytes have been transferred 
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7452: 
7454: 
7457; 
745A: 
745D3 
7460: 
7462: 
7463: 
14663 
714673 
71469; 
T46C: 
T46E; 
T46F; 
7470: 
74733 
74763 
74793 
T47B: 
7T47C3 
T47E:3 
7480: 
7483: 
7485: 


7486: 
7488; 
748A: 
748B; 
748C; 
748D; 
748E; 
7491; 
7492: 
74953 
1496; 


LDX 
STX 
STX 
JSR 
JSR 
BEQ 
PHA 
JSR 
PLA 
LDX 
CMP 
BNE 


DEX 


TXA 
LDX 
STA 
JSR 
BCS 
DEX 
BNE 
LDX 
CMP 
BEQ 
DEX 


BPL 
BMI 
TXA 
TAY 
ASL 
TAX 
LDA 
PHA 
LDA 
PHA 
RTS 


#$00 | ;Set the starting 
$115F ;Column to zero 
$115E ;And the starting row to zero 
$764A ;Turn on the cursor by toggling the RVS bit 
SFFE4 ;Get a key from the keyboard 
$745D ;Wait until a key is pressed 
;Save the key value on to the stack 
$764A ;Turn the cursor off by toggling the RVS bit 
;Get the key value off of the stack 
#510 ;Set up an index for the 16 colors 
$76B4,X ;Check the table for the proper color value 
$747B ;If it is not the same, then branch 


;Decrement the index by one 


;Move it into the accumulator 
$12FC ;Get the current sprite number - 1 
$D027,X ;Set the color of the proper sprite 
$75D1 ;Adjust the sprite's color 
S745A ;Return back to the waiting loop 
;Move to the next element in the table 
$7469 ;Continue checking 
#$11 ;Set up an index for 18 keys 
S767F,X% ;Compare the key that was pressed to the table 
S$748A ;If they are the same, then branch 


;Ilf they are not the same, then move the index 
;To the next table element 

$7480 ;Continue checking 

S745A ;If there was no match, then return to the wait loop 
;Move the index to the accumulator 
;And to the Y register also 
sMultiply the index by 2 
;And move it back into the X register 

$7691,X ;Get the MSB of the routine's address 

| ;And save it onto the stack 

$7691+1,X ;Get the LSB of the address - 1 
;And save it onto the stack 
;And RTS to execute the routine on the stack 


KKEKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KEK KKKKEKEKKEKKKKKKKKKKKKK 


This routine calculates the proper color value when 
the keys 1 - 4 are pressed. It then stores the 
proper value for that color into the sprite data. 


On entry to this routine, the Y register contains 
the key value - 1 (0 - 3). 


* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 


KKK KKK KKK KKK KK KKK KKK KKK KEKE KEK KKK KKK KKK KKK KKEKKKKEKKKKKK 
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7497; TYA ;Move the key index into the accumulator 

7498: STA S8F ;And save it 

749A: JSR $7610 ;Calculate the color value 

749D: PHA ;Save it onto the stack temporarily 

T49E: LDY $115E ;Get the current column 

74A1: LDX $115F ;And the current row values 

74A4: JSR $76C5 ;Calculate the color memory address 

T74A7;: PLA ;Get the color value back off of the stack 

74A8: JSR $763F ;Set the proper point 

T74AB: LDY $115E ;Get the current column value 

7T4AE; TYA ;Move it into the accumulator 

T4AF; AND #507 ;Calculate the bit offset in the byte 

74B1: TAX ;Move the result into the X register 

74B2; TYA ;Move the column value into the accumulator 

74B3: LSR ;And divide 

74B4: LSR ;The value 

74B5: LSR ;By 8 

74B6: CLC ;Clear the carry for addition 

74B7: ADC $115F ;And add the result 

7J4BA: ADC $115F ;To the current row value 

74BD: ADC $115F ;To generate an index 

74CO: TAY ;Move the index to the Y register 

74C1; LDA ($4B),Y ;Get the value of the specified byte 

74C3: BIT S12FA ;Check for the multicolor mode 

74C6: BPL $74E0 ;If not in the multicolor mode, then branch 

74C8: STA S8E ;Save the value temporarily 

74CA: LDA $9D1C,X ;Get the proper bit value 

74CD: ORA $9D1D,X sSet the bit next to it also 

74D0O: PHA ;Save the result onto the stack 

74D1: ORA S8E ;Combine it with the byte value 

74D3: STA S8E ;And save it 

74D5; PLA ;Get the bit value off of the stack 

74D6: LDX S8F ;Get the index to the color source 

74D8:; AND S9F25,X ;Drop the bits from the multicolor table 

74DB: EOR $8E ;Toggle the bits that were calculate above 

74DD: IMP S7T4EA ;Jump to store the result 

74EO; ORA $9D1C,X ;Set the proper bit 

74E3: ASL S8F ;Check to see if the bit was to be 

74E5:; BNE S7T4EA ;Set or cleared 

74E7: EOR $9D1C,X ;Clear the bit 

T4EA: STA ($4B),Y ;Store the result in the sprite data 

T4EC: BIT S12FA ;Check to see if the Auto Cursor movement is 
7;On or off 

T4EF; BVC $753F ;If the option is on, then move the cursor 

T4F1: JMP S745A ;Else, return to the waiting loop 
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T4F4: 
T4F63 
T4F93 
T4FB: 
T4FC; 
T4FE: 
7500: 
1503: 


7506; 
7509: 
7T50B: 
7T50E: 
7511: 
7514: 
7516; 
71519: 
751B: 


LDY 
LDA 
STA 
DEY 
BPL 
LDA 
STA 
JMP 


LDA 
EOR 
STA 
JSR 
LDA 
AND 
STA 
LDY 
<BY 


KHKKKK KEKE KKK KKK KKK KKK KKK KKK KKKKEKKKKKKKKKKKKK KK KKK KKKKK 


* 
This routine is used to transfer the sprite data * 
from the work area at $12B7 - $12F6 to the proper * 
sprite data area whose address is contained in * 
locations $4B, $4C. The routine then goes to $73C4 * 
which restarts the editor by prompting the user for * 
another sprite number. x 

* 

* 


+ + + + &€ + F 


KHKKKKKKKKKKKKEKKKKKHAKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK 


#$3F ; Index to the number of bytes to transfer (64) 
$12B7,Y ;Get the data from the work area 
($4B),Y ;And save it as the new sprite data 
;Continue until 
S7T4F6 © ;All 64 bytes have been transferred 
#500 ;Disable the sprite 
$D015 ;That is being displayed 
$73C4 ;And go to get the next sprite number 


KK KKK KKK KKK KKK KH KKK KKK KKK KKK KI KKK KKK KKK KKKKKKKKKKKKKKEKKEK 


* * 
* This routine is executed whenever the letter 'M’' is * 
* depressed to toggle the multicolor bit (bit 7) in * 
* location $12FA. The routine toggles the appropriate * 
* bit in location $D01C to select the * 
* Standard/Multicolor mode and then adjusts the * 
* display for the standard or multicolor sprite * 
* editing. = 
* * 
* * 


KKK KKKIKI KK KKK KKK KKK KKK KK KKK KK KKK KKKKKKKKKKEKKKKKKKKKKKKK 


$12FA ;Get the multicolor flag 

#580 ;Toggle the multicolor bit 

S$12FA ;And save it back 

$75D1 ;Adjust the sprite'’s color 

$115E ;Adjust the cursor 

#SFE ;Position 

$115E ;And save it back 

#$1C ;Index for the sprite multicolor mode register ($D01C) 
TE $2C ;MASK 


KKK AK HK KKH HK KH KKK KH HK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKK 

* 
* This routine is executed whenever the 'Y' key is * 
* depressed to toggle the 'Y' expansion of the sprite * 
* that is currently being displayed. The routine * 


327 


Abacus Software C-128 BASIC 7.0 Internals 





tole: 
T51E: 


IS1F*% 
To2L2 
75243 
T5273 
TS2A$ 
752D: 


7530: 
1oa2 
71534; 
7536: 
Joos 
75393 
753C3 


LDY 
2BY 


LDY 
LDA 
LDX 
EOR 
STA 
JMP 


LDY 
LDA 
STA 
DEY 
BPL 
JSR 
JMP 


* exits by returning to the input waiting loop at * 
* S$745A., ba 
* * 


KKK HK KKK KKK KKK KKKKKKKKKKKKKKKKK KKK KKK KKK KK KK KKKKKKKKKKKKK 


#$17 ;Index for the Sprite Y expand register ($D017) 
TE $2C ;MASK 


KKK KKK KKK KI KKK IKK KKK KKK KK KKK KKKKKKKKEKKKKKKKKKKKKKKKKKKKKEK 


* * 
* This routine is executed whenever the 'X' key is * 
* depressed to toggle the 'X' expansion of the sprite * 
* that is currently being displayed. The routine exits * 
* by returning to the input waiting loop at $745A. * 
* * 
* * 


KKK KKK KKK KKK I KKK KKK KKK KKK KKK KKEKKKEKEKKKKKKKKKKKKKKE KKK 


#$1D ;Index for the Sprite X expand register ($D0O1D) 
$DO000,Y ;Get the current value 

$12FC ;Get the current sprite number 

$6CB3,X ;Set/Clear the proper bit for this sprite 
$D000,Y ;And save the new value 

S745A ;Return to the waiting loop 


KKK KKK KIRK KKK KKK KE KKKKKK KEKE KKK KKKKKKKKKEKKKKKKKKKK KKK KKKEK 


* * 
* This routine clears the 64 bytes of sprite data = 
* which is addressed by locations $4B, $4C. The * 
* routine then sets the work area on the screen to * 
* the background color to hide the '+' and then exits * 
* by returning to the input waiting loop at $745A. * 
* * 
* * 


KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


#S3F ;Index to the number of bytes to clear (64) 
#500 ;Value to clear a byte 
(S4B),Y ;Clear the sprite data 
;Move to the next byte 
$7534 ;Continue until 64 bytes have been cleared 
$76D4 ;Set the definition screen to the Background color 
$7452 ;Set the cursor coordinates to 0,0 and then 


;Return to the waiting loop 


KK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KK KKK KKKKKEKKKKKKKKKKKKKKKK 


* This routine is executed whenever the Cursor Right = 
* or Cursor Left keys are depressed. The '‘cursor' is * 
* moved by erasing the Reverse bit of the current x 
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* 


* 


* 


location, moving to the next byte, and setting the * 
Reverse bit at that location. * 


* 


KKK KKKKKKKKK KKK KEKE KKK KKK KEK RK KKK KKKKKKKKKKKKKK KKK KKKKK 


753F: LDA #$01 #Flag for Cursor Right 

7541: ~.BYTE $2C ;MASK 

7542: LDA #SFF ;Flag for Cursor Left 

7544: BIT $12FA ;Check for the multicolor mode 

7547: BPL S754A ;If not in the multicolor mode, then branch 

7549: ASL Multiply the value by 2 

754A: CLC ;Clear the carry for addition 

754B: ADC $115E ;Add the result to the current column value 

T54E: BMI $7559 ;If the cursor is to 'wrap-around', then branch 

7550; CMP #$18 ;Compare the value to the maximum column + 1 

7552: BCS $7581 ;Ilf it is greater than 23, then branch 

7554: STA $115E ;Save the new column value 

75573; BCC S757E ;And branch 

7559: LDX #$17 ;Maximum column value for the non-multicolor mode 

755B: BIT S$12FA ;Check the multicolor mode flag 

755E:; BPL $7561 sIf not in the multicolor mode, then branch 

7560: DEX ;If in the multicolor mode, then decrement the maximum 

;Column value by one 

7561: STX $115E s;And save it as the new column value 
KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KEKE KKKKKKKKKK KKK 
* * 
* This routine is executed whenever the Cursor Up n 
* or Cursor Down keys are depressed. The ‘cursor’ is * 
* moved by erasing the Reverse bit of the current * 
* location, moving to the next byte, and setting the * 
* Reverse bit at that location. “ 
* * 
KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKRKEKK 

7564: LDA #SFF ;Flag for Cursor Up 

7566: .BYTE $2C ;MASK 

7567: LDA #$01 ;Flag for Cursor Down 

7569: CLC ;Clear the carry for addition 

756A: ADC $115F ;Add the flag to the current row value 

756D;: CMP #$15 ;And compare it to the maximum row value 

7156F: BCS S757E s;If the value is too large, then exit 

7571: #=STA $115F ;Save the new row value 

7574: BCC ST57E ;And branch to return to the waiting loop 
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75763 
75793 


TS7B: 
TSTE: 


7588: 
T58A: 
7158C;3 
158F; 
159175 
71594; 
7595; 
715973 
159A; 
759D; 


LDA 
EOR 


STA 
JMP 


LDA 
STA 
BEQ 


LDY 
LDX 
LDA 
BEQ 
JSR 
INY 
BNE 
JSR 
JSR 
BEQ 





KK KKK KKK KKK KKK KK KKK KE KKK KEK KKK KKK KEKE KKKKKKKKK KKK KK KK KEK 


* * 
* This routine is executed whenever the 'A' key is * 
* depressed. The routine toggles the Auto-Cursor = 
* movement bit (bit 6) in location $12FA. The * 
* routine exits by returning to the input waiting loop.* 
* * 
* * 


KKEKKKKKKKKK KK KKK KKKKKKKKEKKKKKKKKEKKKKEKKEKKKKEKKKKEKKKKKKEKK 


$12FA ;Get the Auto Cursor flag 

#$40 ;Toggle bit 6 to Enable/Disable the Auto 
,Cursor movement 

S$12FA ;And save the flag back 

S745A ;Return to the waiting loop 


KKEKKK KKK KEKE KKK KEK KKK KEK KK KEK KKK KKK KEK KKK KKK KKKKEKKKKKKKKKKKEK 


* * 
* This routine is executed whenever the RETURN key is * 
* pressed to move the 'cursor' down one line and all * 
* the way to the left of the screen. The routine * 
* exits by returning to the input waiting loop. * 
* * 
* * 


KKEKKKKKEKKKKKKKKKKKEKKEKKKKKKKKKKKKEKKKKKKKKKEKEKKKKKKKKKKK 


#S00 ;Set the column 
S115E ;Value to zero 
$7567 ;And move the cursor down one line 


KKEKKKKKKKKKKK KKK KK KKEKKKKKKKKKEKKKKKKKKKK KK KKK KKKKKKK KKK KK 


* * 
* This routine is called whenever the 'C' key is * 
* pressed. It outputs the message 'COPY FROM?! to * 
* the screen and then handles the copying of the data * 
* from another area to the current data area. * 
* * 
* * 


KKK KK KKK KKKKKK KKK KEKE KKK KKK KKK KKKKKKKKKEKKKEKKKKKK KKK KKK 


#502 ;Index to message 
#518 ;Row to start printing at 
$7661,Y ;Get a byte of the message 
$7597 ;If it is equal to zero, then branch 
$68DB ;Output the character 
;Move to the next byte in the message 
$758C ;Continue printing the message 
SA845 ;Enable BASIC BANK 15 
SFFE4 ;Get a key from the keyboard 
S$759A ;Wait until a key is pressed 
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159F: 
T5Al1: 
TSA3: 
T5A4: 
75A6;3 
75A8; 


7T5AA: 
T5AB: 
T5AC: 
T5AD: 
T5SAF: 
75B1: 
75B3: 
75B4: 
T5B6: 
75B8: 
75BA: 
7T5BC: 
T5BD: 
T5BF: 
15C23 
715C43 
75C5; 
715C8; 
15C93 
1SCB: 
T5CE: 
75D0; 


75D1; 
75D3: 
75D63 
75D9: 
T5DC: 
7T5DE3 
TSEO:: 
75E3: 
75E6: 
T5E83: 


CMP 
BEQ 
SEC 
SBC 
CMP 
BCS 


LSR 
ROR 
ROR 
STA 
LDY 
BCC 
INY 
STY 
LDY 
LDA 
STA 
DEY 
BPL 
JSR 
LDA 
TAY 
STA 
DEY 
BNE 
JMP 


~BYTE SFF,SFF 


#$0D 
$75C2 


Huy 
#$08 
$759A 


S8E 
#SO0E 
$75B4 


S8F 
#$3F 


(S8E),¥ 
($4B),Y 


$75B8 
$75D1 
#500 


S3E00,Y 


$75C5 
S745A 


.BYTE SFF 


;Is the key a carriage return? 

;If it is, then branch 

;Set the carry for subtraction 

;Check for 

;Digits 1 - 7 

;If the digit entered is not a digit between 1 and 7, 
;Then return to the waiting loop 

;Calculate 

;The LSB value of the 

;Sprite data address 

;And save the result 

;Store the starting MSB in the Y register 

;If the sprite number was 4 or greater, 

;Then increment the MSB by one 

;And save it 

;Set up an index to the number of bytes to transfer 
;Get the sprite data 

;And save it for the sprite editor 

;Move to the next byte of data 

;Continue until 64 bytes have been transferred 
;Adjust the sprite's color 

;Value to clear to 

;Set up an index 

;Clear the prompt from the 

;HIRES screen 

;Continue until 256 bytes have been cleared 
;Return to the waiting loop 

;Spare bytes 

;Spare byte 


KKKKKKKKEKKKK KKK KKK KKEKKKKKKEKKKKKEKKKKKEKKKKKKKKKKKKKKKKKKKEK 


* 


* 


* 


* 


* 


This routine is used to change the color of the = 
whole sprite on the screen work area. = 


* 


KKK KK KKK KKK KKK KKK KK KKK KK KK KKK KK KEKE KKEKKKKKKKKKKKKKKKKKEKKEK 


LDX 
STX 
STX 
JSR 
LDY 
LDX 
STY 
LDY 
LDA 
INC 


#500 
$1160 
$12FB 
$76C5 
#500 
#508 
$116E 
$1160 


($4B),Y 


$1160 


;Clear 

;An index 

;Set the starting row to zero 
;Calculate the color memory address 


;Bit counter 

;Set the starting column 

;Get the byte index 

;Get a byte of the sprite data 
;Increment to the next byte 
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7T5EB: LDY $116E ;Get the column index 
 75EE: ASL ;Shift bit 7 out 
T5EF: BIT $12FA ;Check for the multicolor mode 
75F2: BPL S7T5F6 ;If not in the multicolor mode, then branch 
T5F4: ROL s;If in the multicolor mode, then shift out one more bit 
T5F53; DEX ;Decrement the bit counter by one 
75F6: PHA ;And save the result 
T5F7: ROL ;Shift out another bit 
75F8:; JSR $7610 ;Calculate the proper color value 
75FB: JSR $763F ;Set the proper point 
TSFE: INY ;Index to the next column 
T5FF: PLA ;Get the shifted value back 
7600: DEX ;Decrement the bit counter by one 
7601: BNE S75EE ;Continue until all 8 bits are done 
7603: CPY #$18 ;Check to see if this row is done 
7605: BCC S75DE s;If it is not, then branch and continue 
7607; LDX $12FB ;Else, get the current row value 
760A: INX ;Move to the next row 
760B: CPX #$15 ;Have all of the rows been done yet? 
760D: BCC $75D6 ;If not, then branch and continue 
760F: RTS ;Exit the routine 
KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKEKE 
* * 
x This routine gets the proper color value from the * 
* color source number (0 - 3) which is in the * 
* accumulator. The result is saved to location $8E. * 
* * 
KEKKKKK KKK KKK KKK KKK KKK KK IKK KK KK KKK K KKK KKKKKKKKK KKK KK KK KKK 
7610: AND #$03 ;Drop all bits except, bits O and 1 
7612: LSR ;Shift bits O and 1 
7613: ROR ;Out to check for the color source 
7614: BEQ $7625 ;Unconditional branch 
7616: BIT S12FA ;Check for the multicolor mode 
7619: BPL $762A ;If not in the multicolor mode, then branch 
761B: LDA $D025 ;Get the Multicolor O value 
761E; BCC $7634 ;If the color source, Multicolor 0 was selected, 
;Then branch 
7620: LDA $D026 ;Get the Multicolor 1 value 
7623: BCS $7634 ;If the color source, Multicolor 1, was selected, 
;Then branch 
7625: LDA $D021 ;Get the Background color value 
7628: BCC $7634 ;If the color source, Background color, was selected, 
;Then branch 
762A: STX S8E ;Save the index temporarily 
762C: LDX $12FC ;Get the current sprite number 
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762F: LDA 
7632: #\LDX 
7634; AND 
7636; STA 
7638: ASL 
7639: ASL 
763A: ASL 
763B: ASL 
763C: ORA 
763E: RTS 


763F: STA 
7641: BIT 
7644: BPL 
7646: INY 
7647: STA 
7649: RTS 


764A: LDX 
764D: JSR 
7650: LDY 
7653: BIT 
7656: BPL 
7658: JSR 
765B: LDA 
765D: EOR 
765F: STA 
7661: £INY 
7662: RTS 


$D027,X ;Get the color of the specified sprite 
S8E ;Get the index back 
#SOF ;Drop the high nybble of the color value 
S8E ;And save the result 

;Shift the 

;Lower nybble 

;Into the 

;High nybble 
S8E ;Combine the two values 


;And exit 


KRKKKKKEKKKK KKK KK KKK KKK KKK KKK KKK KKK KK KKKKKKKKKKKKKKEKKKKKEK 


* * 
* This routine changes the color of a point in the * 
* work area according to the value that is in the * 
* accumulator. The address of the point is contained * 
* in locations $8C, S$8D. = 
* * 
* * 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKAKKKKKKKKKKKKKKKKKKKEKK 


($8C),Y ;Set the color at the proper point 

S12FA ;Check for the multicolor mode 

$7649 ;If not in the multicolor mode, then branch 
;If in the multicolor mode, then 

($8C),Y ;Set two points 


s;And exit the routine 


KKK KKK KKK KKK KKK IK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKK 


* 
* This routine is used to calculate the address of 

* the 'cursor' according to the row ($115F) and the 
* column ($115E) values. The routine then moves the 
* 'cursor' to the proper location. 

* 

* 


+ + + & + 


KEKE KKK KKKKKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKK 


$115F ;Get the current row value 

$76C5 ;Calculate the color memory address in $8C, $8D 
$115E ;Get the current column address 

S12FA ;Check for the multicolor mode 

$765B ;If not in the multicolor mode, then branch 
$765B ;If in the multicolor mode, then do two spaces 
($8C),Y ;Get the current color 

#$80 ;Toggle the ReVerSe bit of the cursor 

($8C),Y ;And save it back 


;Increment to the next byte 
;And exit the routine 
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1663: 
766D: 
T66E3 
T67E3 


T67F: 
7683: 
7685: 
71687: 
76893 
768B: 
768D: 
168F: 


7691: 
7693: 
7695: 
7697: 
7699; 
769B: 
769D: 
T69F: 
T6A13 
76A3:3 
76A5: 
7T6A7: 


TXT 
- BYTE 
TXT 
. BYTE 


‘copy from?' 


$00 
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;End of text flag 


'sprite number? ' 


$00 


;End of text flag 


KKEKKKKKKKKKEKKEKKEKKEKKKKKEKKEKEKKKKKEKKKKKKKK KKK KKK KKKKKKKKKKEK 


* 


* 


* 


* 


* 


The following table contains the key values that * 
are recognized by the SPRDEF routine. * 


* 


KKKKKKKKKKKKKEKKKKKKEKKKKEKEKKEKEKEKEKKKKKEKKKKKKKKKK KKK KKRKKKKK 


TAT 

‘BYTE 
- BYTE 
-BYTE 
»- BYTE 
- BYTE 
-BYTE 
- BYTE 


"1234: 

$03,58D 
$58,559 
$4D,$9D 
$1D,$91 
$11,$93 
$13,541 
$0D,$43 


Keys 1 - 4 
RUN/STOP key, Shifted RETURN 
X, Y 


M, Cursor Left 

Cursor Right, Cursor Up 
Cursor Down, Clear Screen 
Home, A 

Carriage RETURN, C 


KKEKKKKKKHKKEKKKKKKKKKKKKHKKKKKEKEKKKKKKKKKEKKKKKKKKKKKKKKKEKKK 


* 
* 
* 
* 
* 
* 


sBYTE 
. BYTE 
-BYTE 
. BYTE 
«BYTE 
.BYTE 
+BY TE 
. BYTE 
~- BYTE 
.BYTE 
.BYTE 
sBYTE 


* 


The following table contains the addresses - 1 of the* 
routines that are to be executed whenever the corres-* 
ponding key from the table at $767F is encountered. * 


$74,$96 
$74,$96 
$74,596 
$74,$96 
$74,5$F3 
$74, $FD 
$75,$1E 
$75,51B 
$75,505 
$75,$41 
$75,53E 
$75,$63 


™me =~ ™e YT) =e 


* 


KKKKKEKKKEKKKEKE KKK KKK KEKKKEKEKKKKKKKKKKKKKKKKK KKK KKK KKK KKKEKK 


& W NH F 


RUN/STOP 
Shifted RETURN 
X 

Y 

M 

Cursor Left 
Cursor Right 
Cursor Up 
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76A9: .BYTE $75,$66 ; Cursor Down 

76AB: .BYTE $75,$2F ; Clear the work area 
76AD: .BYTE $74,$51 ; Home 

T6AF: ~BYTE $75,$75 ; A 

76Bl: .BYTE $75,$80 ; Carriage RETURN 
76B3: ~BYTE $75,$87 ae 


met, 


KKEKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 


* * 
* The following table contains the color values that = 
* are recognized by the SPRDEF routine. * 
* * 


KKKKKEKKKKKKKEKKEKKKKEKRKKKKKKKKEKEKKKKKEKKEKKKKKKKKKKKKKKRKKRKK 


76B5: .BYTE $90,$05 ; Black, White 

76B7: .BYTE $1C,S9F ; Red, Cyan 

76B9: .BYTE $9C,S1E ; Purple, Green 

76BB: .BYTE $1F,5S9E ; Blue, Yellow 
76BD: .BYTE $81,$95 ; Orange, Brown 

76BF: .BYTE $96,$97 ; Light Red, Dark Gray 
76Cl: .BYTE $98,$99 ; Gray, Light Green 


76C3: .BYTE $9A,S$9B ; Light Blue, Light Gray 


KEKKKEKKKKKEKEKKKKKKKEKKKKE KKK KEKE KEKKKKKKKKKKKKKRKKKKRKKK 


This routine is used to calculate the color memory 
address by the row value in the X register. On 
entry, the X register should hold the row value 
(from 0 to 24). On exit, locations $8C, $8D will 
hold the LSB, MSB respectively of the corresponding 
color memory address which starts at $1C00 when a 
Graphic screen is allocated. 


+ + + € £€ € FF FF 
+ + € € € € € F 


KKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKRKKKKKKKKKKKKKK KKK 


76C5:; LDA $C033,X ;Get the LSB of the screen address 

76C8: STA $8C ;Save it to be used as the color memory address 
7T6CA: LDA $CO4C,X ;Get the MSB of the screen address 

76CD;: AND #503 ;Drop all bits but O and 1 

76CF: ORA #S1C ;Add $1C to point to the color memory, 

76D1: STA $8D ;Save it, 

76D3:; RTS ;And exit 
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KKEKK KKK KKK KKK KKK KKK KKK KKK KKK KKKEKEKKKKKKKKKKKKKKEKKKKKKKKKEK 


* * 
* This routine is used by the SPRDEF routine to color * 
* the 24 column by 21 row sprite definition block * 
* which is displayed on a HIRES screen. * 
* * 
* * 


KKKKK KK KKK KKK KK KKK KKK KKK KKK KKKEKKKKKKKKKKKKKKKKRKKKK KEK 


76D4: LDA S$DO21 ;Get the current background color 

76D7: JSR $7634 ;Put the color in both the high and low nybble 

76DA: LDX #$14 ;Value for 21 rows - 1 

76DC: PHA ;Save the color value 

76DD: JSR $76C5 ;Calculate the line start address for color 

76EO0: PLA ;Get the color value back 

76E1: LDY #$17 ;Load the Y register with the number of columns 
;To fill per line ~ 1 

76E3: STA ($8C),Y ;Save the color value 

76ES: DEY ;Move to the next column 

76E6: BPL $76E3 ;Continue until 24 columns are done 

T6E8: DEX ;Move to the next row 

76E9: BPL $76DC ;Continue until 21 rows are done 

76EB: RTS ;Exit 


KK KK KKKK KKK KK KKK KKK KKK KEK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


BASIC SPRSAV COMMAND 


Command syntax: SPRSAV source, destination 


* 
* 
* 
* 
* 
NOTE: source the origin of the sprite data * 
to be transferred x 
destination = where the sprite data is to be * 
transferred to 

* 

This command allows you to move sprite data from - 
a string into the sprite storage area or from the * 
sprite storage area into a string. You can also * 
transfer sprite data from one sprite to another. = 
* 

* 


KEKKKEKKKKKKEKKKKKKKKKKK KK KKKKKKK KKK KKK KK KK KK KKKKKKKKKKKK 


T6EC: JSR $777C ;Check the first character after the SPRSAV 
;command 

76EF: BCS $7720 ;If the carry is set, then it is a 
;String to sprite transfer 

76F1l: STA S4B ;If the carry is cleared, then it is either a 


;Sprite to string transfer or 
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;Sprite to sprite transfer 


76F3: STY S4C ;Save the address to SPDATA 

76F5: LDY #S3E ;Set the counter for 63 bytes 

76F7: LDA ($4B),Y ;Move the sprite data 

76F9: STA $12B7,Y ;To a temporary storage area 

76FC: DEY ;Continue until 

76FD: BPL S76F7 764 bytes are transferred 

J6FF: INY 

7700: STY $12F7 ;Clear the MSB of the Y coordinate 

7703: STY $12F9 ;And the X coordinate 

7706: LDA #$17 ;Load the accumulator with the value for the LSB 
;of the X coordinate 

7708: STA $12F6 ;Save it 

770B: LDA #$14 ;Load the accumulator with the value for the LSB 
;of the Y coordinate 

770D: STA $12F8 ;Save it 

7710: LDx #$B7 ;Load the X register with the value for the LSB 
;Of the address of the sprite data 

7712: LDY #$12 ;Load the Y register with the value for the MSB 
;Of the address of the sprite data 

7714: STX $70 ;Save the address of the string 

7716: STY $71 jIn STRING1 for the next JSR 

7718: LDA #$43 ;Number of bytes = 63 for the 
;Sprite + 4 for the coordinate 

771A: JSR $86CC ;Transfer the data from sprite to string 

771D: JSR $7799 ;Get the next string 

7720: STX $O3DB ;Get the length of the string 

7723: STA $O03DC ;Get the LSB and 

7726: STY $03DD ;The MSB of the string address 

7729: JSR $795C ;Check for a comma and if it is not found, then 
;Generate a 'SYNTAX' error 

772C3: LDA $3D ;Get the LSB of TXTPTR 

772E: STA $03E0 ;And save it 

7731: LDA’ £$3E ;Get the MSB of TXTPTR 

7733: STA SO3E1 ;And save it 

7736: JSR $777C ;Check the next character 

7739: BCS $7760 ;If the carry is set, then it is a string 

773B: STA $8C ;Save the address of the sprite data 

773D: STY $8D ;In GRAPNT 

773F: LDA $03DC ;Get the LSB of the address to the string 

7742: STA S4B ;And save it 

7744; LDA $03DD ;Get the MSB of the address to the string 

7747: STA $4Cc ;And save it 

7749; LDY #$00 

774B: CPY $03DB ;Compare the length of the string to zero 

774E: BEQ $775F ;If the length is equal to zero, then exit 

7750: LDA #54B ;Load the accumulator with the value of the LSB 
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717523 
T1592 
7758: 
TTSA: 
7T75B: 
775D: 
TT5F 3 
7760: 
71763: 
7765: 
77683 
T76A3 
776D: 
T16F: 
77713 
71773: 
7775: 
TLEGS 
T7793 


T177C3 
TITF: 
7781: 
7783: 
7786: 
77873 
7789: 
778B: 
778C: 
778D: 
778E3 
7718F: 


7791; 
7793: 


71794: 
7795: 
71796: 


JSR 
STA 
STA 
INY 
CPY 
BNE 
RTS 
LDA 
STA 
LDA 
STA 
JSR 
STA 
STY 
LDA 
STA 
LDA 
STA 
JMP 


JSR 
BIT 
BMI 
JSR 
DEX 
CPX 
BCS 
TXA 
LSR 
ROR 
ROR 
LDY 


BCC 
INY 


CLC 
RTS 
JMP 


$O3AB 
SFFO3 


($8C) ,Y 


#$3F 
$774B 


$O3E0 
$3D 
$O03E1 
$3E 
$7AAF 
$4B 
$4Cc 
#SDB 
$66 
#$03 
$67 
$5405 


;For the string's address 

;Get a byte of the string 

;Enable BANK 14 

;Save the data to the sprite 

;Increment to the next byte 

;Continue saving the data to the sprite 
;Until 63 bytes are done 

;And Exit 

;Get the LSB of TXTPTR back 

;And save it 

;Get the MSB of TXTPTR back 

;And save it 

;Get the variable pointed to by CHRGET 
;Save the LSB and 

;The MSB of the address of the variable 
;Place the address of the 

;String's descriptor 

;into 

;Locations $66, $67 

;Assign the value to the string 


KKKKEKKKKKKKKKKKKK KKK KKKKKKKEK KKK KKK KKKKKEKKKKEKKKKKKKKKKKKKK 


* 


* 


* 


* 


* 


This routine checks the first character after the * 
SPRSAV command and then acts on the sprite number. = 


* 


KEKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKEKKKKKKKK KK KK KKK 


S77EF 
SOF 

$7799 
S87F7 


#508 
$7796 


#SOE 


$7794 


$7D28 


;Evaluate the expression after the command 
;Check the DATA Flag 
;If the data type is a string, then branch 
;Get the sprite number into the X register 
;If the sprite number 
;is greater than - 1, 


;Then generate an ‘ILLEGAL QUANTITY' 


error 
;Divide by 2 

;Shift the carry 

s;Into bit 6 in the accumulator 

;Load the Y register with the value of the MSB 
;To the sprite definition area 

;If an overflow has not occurred, then branch 
;If an overflow has occurred, then increment the 
7;MSB 

;Clear the carry for numeric 

;And exit 
;Generate an 


‘ILLEGAL QUANTITY' error 
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17993 
779B: 
779D; 
T7AO: 
TIA23 
TITAS: 
T7TA63 
TIATS 
T7AA: 
7T7AB: 
TTAC: 
TTAF: 
77BO: 
77B13 
717B2: 


11 Bos 
77B6: 
77B9: 
77BB: 


LDA 
LDY 
JSR 
LDY 
JSR 
TAX 
INY 
JSR 
PHA 
INY 
JSR 
TAY 
PLA 
SEC 
RTS 


JSR 
LDA 
AND 
STA 


FOO IO IO I IO IO I III IO FO II IO IOI I IOI I IOI Kd dk tek 


This routine acts on the string that follows the 
SPRSAV command. 


X and Y registers the LSB and MSB of the 


* 
* 
* 
* 
* NOTE: When the routine exits, the accumulator will 
* 
* 
= string's address. 

* 

* 


* 
* 
* 
* 
* 
contain the length of the string and the * 
* 
* 
* 
* 


KEK K KKK KKK KKK KKK KKK KKKKKEKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 


$66 ;Get the address of 

$67 ;The string's descriptor 

$87E0 s;And delete it from the temporary string stack 
#500 ;Zero the index pointer 

S$42E7 ;Get the length of the string from its 


;Descriptor, and save it in the X register 

;Increment the index to the next byte 
S42E7 ;Get the LSB of the string's address 

;And save it onto the stack 

;Increment the index to the next byte 
$42E7 ;Get the MSB of the string's address 

;And place it in the Y register 

;Place the LSB in the accumulator 

;Set the carry to indicate a string 

;Exit the routine 


KKKKK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KEKE KEKKKKKEKKKEKKKKEKKKK 
BASIC FAST COMMAND 
Command syntax: FAST 


* * 
* * 
* * 
* * 
* * 
* This command allows you to speed up the operation * 
* of the 128 by increasing the clock speed to 2 MHz. = 
* * 
* * 
* * 
* * 
* * 
* * 


NOTE: When the FAST command is executed, the 40 
column screen is automatically turned off 


(blanked). 


KKK KKK KKK KKK KKK KKK KKK KKK KKKKEKKKKKKEKKKKKKEKKKKKKKKKEKKKKEK 


SA845 ;Enable BANK 15 

$D011 ;Get VIC register 17 configuration 
#S6F ;Turn the 40 column screen off 
$DO11 ;Reconfigure the register 
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T7BE: 
711CO% 
TICS: 


T7043 
1ICAs 
7T17C93 
7T7CC3 
TICE: 
7 i a Bie, 
717D3: 
T7D6° 


TID7: 


LDA 
STA 
RTS 


JSR 
LDA 
STA 
LDA 
AND 
ORA 
STA 
RTS 


JSR 


#1 ;Set the clock speed to 2MHz (FAST MODE) 
$D030 ;Set the speed to FAST MODE 
s;Exit the routine 


KKK K KKK KKK KK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKKREK 
BASIC SLOW COMMAND 
Command syntax: SLOW 


* 

* 

* 

* 

* 

* This command allows you to return to the slow mode 
* by decreasing the clock speed to 1 MHz. 
* 

* 

* 

* 

* 


+ + + + + £ FF F F 


NOTE: When the SLOW command is executed, the 40 


column screen is automatically turned back on.* 
* 


KAEKKEKKKEKKKKKKEK KKK KEKKKKKEKKKKKKKEKKKKKKKEKKKKKKKKEKKEKKKKKKK 


SA845 ;Enable BANK 15 

#0 ;Set the clock speed to 1MHz (SLOW MODE) 
$D030 ;Set the speed to SLOW MODE 

$D011 ;Get VIC register 17 configuration 

#S7F ;Clear the raster line MSB 

#$10 ;Set bit 4 to turn the 40 column screen on 
$D011 ;Reconfigure the register 


;Exit the routine 


KKKKKKKKKKKKKKEKEKKKRKKKEKKKEKEKKEKEKKEKEKKKEKEKEKKEKKKKEKKKKKKKKKKKKEK 


FRMNUM 


FoRMula evaluate with the result 
of NuMeric expression 


This routine will evaluate the numeric expression by 
calling FRMEVL and then ensure that the result is 
actually numeric and not string. If the expression 


resulted in a string, a 'TYPE MISMATCH' error is 
generated. 


+ + + + + + FF FF F HF 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KEK KKKKKEKKKKKKKEKEKKKEKEKKEKEKKEKEKKEEKKEKKKKKKEKEKKEKKEKKKKKKEKEK 


S77EF ;Evaluate expression 
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KRKEKKKEKKKKKKKKKKKK KKK KKK KKK KK KKK KKK kkk kkk kkk kkk kk kkk kkk kkk 


CHKNUM 
CHecK for NUMeric 
the current data type is numeric. If the data type 


is not numeric, then a 'TYPE MISMATCH' error is 


* * 
* * 
* * 
* * 
* * 
* This routine checks the VALTYP (SOF) to ensure that * 
* * 
* * 
* generated. i 
* * 
* * 


KKK KKKKKKKKKKEKKEKKKKKKKKKKEKKKK KKK KKKKKKK KKK KKK KK KK KKK KKK 


TIDA: CLC ;Flag for NUMERIC 
77DB: BCC $77DE ;Unconditional branch past the check for string 


Kakkkkkkkkkkkkkkkk kk kkk kkk kkk KKK kK KKK Kk KKK KKK KK KKK KKK KK KKK 
CHKSTR 
CHecK for STRing 
the current data type is a string. If the data type 


is not a string, then a 'TYPE MISMATCH’ error is 
generated. 


+ + + + F F OF HF OF 


* 
* 
* 
* 
* 
This routine checks the VALTYP (SOF) to ensure that * 
* 
* 
* 
* 
* 


KKKKKKKKKKKKKKKKKKKKKKKKKK KKK KK KKK KKK KKK KKK Kk kkk KKK KKK K 


T7DD: SEC ;Flag for STRING 

77DE: BIT SOF ;Is the value a string? 

77EO; BMI ST7TE5 ;If it is a string, then branch 
Kae ee ee a i wr ew we wr ww ee ww we i we ee ww we * 
* * 
* If the carry flag was set to indicate the value was a* 
* string but the VALTYP (SOF) indicates that the value * 
* is numeric, a 'TYPE MISMATCH' error is generated. * 
* * 
Fe ce eae ee ce me ee en we wee ee woe we wee ee ee en ee ee ee ee ee ee a we we ee ew ww ee ee * 

T7E2: BCS S77E7 ;Generate a 'TYPE MISMATCH' error 

77E4: RTS ;Exit the routine 

77E5: BCS S77E4 sIf the search is for a string, then branch 

TIE7: LDX #22 ;Error number for a 'TYPE MISMATCH' error 

77E9: .BYTE $2C ;Mask to fall thru to S$77EC to bypass the next 

serror 
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TIEAS: 
TTEC: 


TTEF 
TIF1: 
TIF3:3 
TIES: 
TIFT: 
TIFS9: 
T7FA: 


TITFB: 
TTFC: 
TTFD: 
TTFE: 
7800: 
7802: 


7805; 
71807; 
718093 
180C: 
780D: 
780F: 


7811: 
7813: 
7815; 
78173 


LDX 
JMP 


LDX 
BNE 
DEC 
DEC 
LDX 
. BY 
PHA 


TXA 
PHA 
TSX 
CPX 
BCC 
JSR 


LDA 
STA 
JSR 
SEC 
SBC 
BCC 


CMP 
BCS 
CMP 
ROL 


#$19 
S4D3C 


;Error number for a 'FORMULA TOO COMPLEX' error 
;Jump to the error message routine 


KKK KK KKK HK KKK KK KK KKH KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKRKRKK 


FRMEVL 


FoRMula EVaLuation 


This routine is used by many other routines that 
require the processing of an expression. This 


ASCII text of the expression and divide it into its 
individual parts, check those parts for errors, 
perform the individual operations, and combine the 
results to obtain a single value that can be used 
by the BASIC program. 


* * 
* * 
* * 
* * 
* * 
* * 
* * 
* routine's main purpose is to take the BASIC * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 


KKK KKK KKKKKKKKKKKKKEKEKKKKEKKKKKEKKKKEKKKKKKKKEKKKKKKKKKKK 


$3D 
STTF5 
$3E 
$3D 
#0 

TE $2C 


#$63 
ST7EA 
$78D7 


#$00 
S4F 
$0386 


#SB1 
$7828 


#503 
$7828 
#S$01 


;Get the LSB of the BASIC TXTPTR 

;If it is not equal to zero, then branch 
;Decrement the MSB of TXTPTR 

;Decrement the LSB of TXTPTR 

;Set the priority code to zero initially 
;MASK (bit) 

;If not masked, then save the MSB of 

;TXTPTR onto the stack 

;Get the LSB of TXTPTR into the accumulator 
;And save it onto the stack 

;Transfer the stack pointer into the X register 
;If the stack pointer is less than $63, 
;Then generate a 'FORMULA TOO COMPLEX' error 
;Get the next character and convert it to 
;Floating Point format 


;Get the character that was last accessed 

;Set the carry for subtraction 

;Subtract the token value for greater than '>' 
;If it is less than the value for '>', then 

; branch 

;If it is greater than the 

;Token value for less than '<', then branch 
;Is it the token value for equals '=' 
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7818: 


781A; 
781C; 
781E: 
7820: 
1822; 
7825: 
7828: 
782A: 
782C: 


182E: 
7830: 
71832: 
7834: 
1836: 
7839: 
783B: 
783D: 
783E: 
7840: 
7841; 
71842: 
71845: 


7847: 


184A: 
784B: 
784E: 
T84F: 
7851: 
7853: 
71854; 
7856: 
7858: 
185A; 
785B: 
185C: 
T85E: 
7860: 
7862; 
7864: 


7866: 
7868: 


EOR 


EOR 
CMP 
BCC 
STA 
JSR 
JMP 
LDX 
BNE 
BCS 


ADC 
BCC 
ADC 
BNE 
JMP 
ADC 
STA 
ASL 
ADC 
TAY 
PLA 
CMP 
BCS 


JSR 


PHA 
JSR 
PLA 
LDY 
BPL 
TAX 
BEQ 
BNE 
LSR 
TXA 
ROL 
LDX 
BNE 
DEC 
DEC 
LDY 


STA 
BNE 


#501 


S4F 
S4F 
$7881 
S4F 
$0380 
$780C 
S4F 
$7858 
$78AC 


#507 
$78AC 
SOF 
$7839 
$870D 
#SFF 
$24 


$24 


$4828,Y 


$78B1 


$77DA 


$7871 


$4D 
S786A 


S78AF 
S78BA 
SOF 


$3D 
$7862 
$3E 
$3D 
#S51B 


S4F 
$7841 


;Make the bits equal (0 = '>', 1 = '=', and 
pe ESN) 

;Add it to the existing comparison flag 
;If the comparison is used more than once, 
;Then generate a 'SYNTAX' error 

;Save the comparison flag (MASK) 

;Get the next character 

;And restart the loop 

;Get the comparison MASK 

;If it is not equal to zero, then branch 
;If the character is a letter and not 

;A digit, then branch 

;Add the index 

;And move FAC1 to FAC2 

;Add the string flag 


;Add the two strings together 

;Add the index 

;Save it 

s;Multiply by 2 

;And add once to make a total of * 3 

;Use the value as an index 

;Get the accumulator back off of the stack 
;And compare it to the priority code 

;If the value is higher than the priority 
;Code, then branch 

;Check to see if it is numeric and if it is not, 
;Then generate a 'TYPE MISMATCH' error 
;Place the priority code onto the stack 
;Place the operator address onto the stack 
;Restore the priority code 

;Get the index to the operator 

;Exit if done 

s;Exit if the 

;Priority code equals zero 

;If it does not equal zero, then process it 
;Set the pointer for process 

;Move the priority code back to the accumulator 
;And multiply by two to obtain an index 
;Subtract 

;One from 

;TXTPTR 


;Load the Y register with the offset priorty 
;code flag 

;Save the operator code 

;Restart the loop 
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786A; CMP 
786D: BCS 
T86F:; BCC 
7871: LDA 
7874: PHA 
71875: LDA 
7878: PHA 
7879; JSR 
787C: LDA 
T87E3: IMP 
7881: IMP 
7884; LDA 
7886: LDX 
7889; TAY 
788A: CLC 
788B: PLA 
788C: ADC 
788E: STA 
7890; PLA 
7891; ADC 
7893; STA 
7895; TYA 
7896; PHA 
71897: JSR 
789A: LDA 
789C; PHA 
789D: LDA 
789F:; PHA 
78A0: LDA 
78A2: PHA 
78A3: LDA 
78A5: PHA 
718A6: LDA 
78A8: PHA 
78A9: JMP 
7T8AC: LDY 
T8AE: PLA 
T8AF: BEQ 
78B1l: CMP 
78B3: BEQ 
78B5: JSR 
78B8; STY 
78BA: PLA 
78BB: LSR 


$4828,Y 


$78BA 
$784A 
$482A,Y 


$4829,Y 
$7884 
S4F 
ST7FA 
$796C 


$68 
$4828,Y 


#$01 
$24 


#500 
$25 
$8C47 
$67 
$66 
$65 
$64 
$63 
($0024) 
#SFF 
$78D4 
#564 
$78B8 


S77DA 
$4D 


;Compare the value in the accumulator with 
;The priority code 

;If it is equal to or greater than, then exit 
;Continue to loop 

;Save the address 

;Of the operator 

;Onto the 

;Stack 

;Round off the left operand 

;Get the comparison code ( <, =, > ) 

;And evaluate the expression 

;Generate a 'SYNTAX' error 

;Get the sign of FAC1 

;Get the priority code of the operand 
;Save the sign of FAC] in the Y register 
s;Clear the carry flag 

;Save the return 

;Address of the calling 

;Routine into locations 

7$24, $25 

;The values are pulled 

;Off the stack 

;Move the sign of FAC1 into the accumulator 
;And save the sign onto the stack 

;Round off FAC1 

;sSave M4 

;Onto the stack 

;Save M3 

;Onto the stack 

;Save M2 

;Onto the stack 

;Save Ml 

;Onto the stack 

;Save the exponent 

;Onto the stack 

;And JUMP to the calling routine 

;Load the Y register with the flag for negative 
; (minus) 

;Get the priority code from the stack 

;If it is equal to zero, then exit 
;Compare it with the priority code for 
s;less than ‘'<' 

;If it is the priority code for '<', then branch 
;Check to see if the value is numeric 


;Get the string flag from the stack 
;Shift it to the left 
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78BC; 
T8BE: 
T8BF: 
78C1: 
78C2; 
18C4: 
78C5: 
T8C7: 
718C8; 
T8CA:3: 
T8CB: 
78CD: 
T18CE3: 
78D0: 
78D2:; 
78D43: 
78D6; 


78D7: 
78DA: 
78DC3 
78DE: 
78E1: 
78E33 


78E5: 


7T8E8; 
T8EB: 
T8ED:; 
T8FO: 
18F23 


STA 
PLA 
STA 
PLA 
STA 
PLA 
STA 
PLA 
STA 
PLA 
STA 
PLA 
STA 
EOR 
STA 
LDA 
RTS 


JMP 
LDA 
STA 
JSR 
BCS 
LDX 


JMP 


JSR 
BCC 
JMP 
CMP 
BNE 


$14 
;Transfer the values 

S6A ;For FAC1 
;That are on 

$6B ;The stack 
jInto FAC2 

$S6C 

$6D 

S6E 

S6F 

$68 

$70 

$63 
;Exit 


KkKKKKK KKK KKK KKK KKK KKK KKKKKKKEKKKKKKKKEKKKKKKKKKKKKKKKKKKEKK 


EVAL 


This routine is used to convert a single arithmetic 
term from ASCII to its Floating Point equivalent. 
If the term was a variable, then the value of the 
variable is returned to FAC1l. If the term was an 
ASCII digit, the digit is converted to its Floating 
Point equivalent and stored in FAC1l. Upon entry to 
this routine, TXTPTR must point to the ASCII 

number to be converted. 


+ +  * + F F F F F HF H F 
+ + + F + F F HF F H 


KKEKKKKKKKKKKEKKKKKKKKKKKKKEKKK KKK KKKKKKKKKKKKKKKEKKKKKKKKKEK 


($030A) ;JUMP thru the EVAL vector at $030A (S78DA) 


#0 ;Set the VALTYP (SOF) 

SOF ;To numeric 

$0380 ;Get the next character 

$78E8 ;And if it is a letter, then branch 

#0 ;Set the flag to obtain the value from RAM 
;BANK 0O 

$8D22 ;Convert the ASCII numerical string to 
;A Floating Point number in FAC1 

$7B3C ;Check to see if the character is a letter 

$78F0 ;If the character is not a digit, then branch 

$7978 ;Get the numeric value of the digit 

#SFF ;Is the value the code for PI? 

$7903 ;If it is not the code for PI, then branch 
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18F4; 
718F6: 


78F8: 


T8FB: 


T8FE: 
71903: 
7905: 


7907: 
7909; 
790B: 
790D;3: 
1T90F:3 
79113 


7913: 
7915: 
7917: 
79193 
791B: 
791C3 
T91F3 
7921: 
1923: 
7925: 
1927; 


LDA 
LDY 


JSR 


JMP 


# SFE 
#578 


$8BD4 


$0380 


;Load the accumulator and the Y register with 
;The LSB and MSB of the address that points to 
;The value for PI 

;Move the five byte floating point value of & 
s;Into FAC1 

;Get the next character 


KKKKKKEKKKKKEKKKKKKEKKKKEK KEK KKK KKK KKEKKKEKKKKEKKEKKKEKKKKKKKKKKK 


* 
* 
* 
* 
* 
* 
* 
* 


This is the five byte Floating Point value for fn. 


KKK KKKKKK KKK KKK KKK KEK KKK KKK KEK KK KEKE KK KKKKKEKKKKKKKKKKKEKK 


EX Ml 


PIVAL 


* 
* 
* 
PI VALue * 
* 
* 
* 
* 


M2 M3 M4 


~BYTE $82,$49,SOF,SDA,SA1 ;PI = 3.14159265 


CMP 
BEQ 


CMP 
BEQ 
CMP 
BEQ 
CMP 
BNE 


LDA 
LDY 
ADC 
BCC 
INY 
JSR 
LDX 
LDY 
STX 
STY 
RTS 


te 
$78E5 


#1 
$7971 
Hiyt 
$78DE 
Fh 
$7928 


$3D 
$3E 
#500 
$791C 


S869A 
$72 
$73 
$3D 
$3E 


;Is it a decimal point? 

;If it is, then branch to convert ASCII to 
;Floating Point 

;Is it a minus sign '-' for subtraction? 
;If it is, then branch 

s;Is it a plus sign '+' for addition? 

;If it is, then branch 

;Is it a quote mark '"'? 

;If it is not a quote mark, then branch to check 
;For numeric functions 

;Get the 

;TXTPTR 

;And add the carry if any 

;If no overflow occured then branch 

;Else add one to the MSB of TXTPTR 

;Set up the pointers to a string in memory 
;Get the LSB and the MSB 

;Of the address of the string 

;And save it to 

,;TXTPTR 

;Exit 


KR KK KKK KKK K KKK KKK KKK KKK KKKKKEKKKEKKKEKKEKKKKKKKKKK KKK K KKK KKK K 


* 


* 
* 
* 


* 
CHKNOT * 
* 
* 


CHeckK for NOT token 
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71928: 
T92A: 


792C: 


T92E:; 


79303 


19333 
79353 
71937: 
7938: 
793A: 


793C: 
193F:3 


CMP 
BNE 


LDY 


BNE 


JSR 


LDA 
EOR 
TAY 
LDA 
EOR 


JSR 
JMP 


+ &€ + + & 
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This routine checks the accumulator for the BASIC * 
NOT token and if it's found then the BASIC NOT * 
command is executed ($7930). If it's not found then * 
this routine branches to CHKFN. * 
* 
* 


KEK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKK KKK KKKKK KKK KKK KK 


#SA8 ;Is the value the token for 'NOT'? 

$7942 ;If it is not the token for 'NOT', then branch 
;To check for the FN token 

#$18 ;Load the Y register with the offset of priorty 
;codes 

$7973 ;For the NOT command 


KKEKEKKKKKKK KKK KKK KKK KKKK KKK KKK KKK KKK KKK KKKKKKKKEKKKKK KK KKK 


BASIC NOT FUNCTION (OPERATOR) 


The NOT operator returns the 'TWOS COMPLEMENT! of an 


a vale of -11. This routine will invert the number 
and adds one to it and places the result in FAC1 in 
Floating Point format. 


* * 
* * 
* * 
* * 
* integer number. For example PRINT NOT 10 would return * 
* * 
* * 
* * 
* * 
* * 


KAEKK IKK KKK KKK KKK KKK KI K KK KKK KKK KKK KKK KKKKKKKKKKEKKEKKKK 


$84B4 ;Convert the Floating Point number 
;To signed integer format 
$67 ;Get the twos complement 
#SFF ,Of the LSB 
;And place it into the yY register 
$66 ;Get the twos complement 
#SFF ;Of the MSB 


KK KKK KK KKK KK KKK KEK KK KKK KKK KKK KKK KKKKEKKKKKKKKKKK KK KKKKKKKK 


GIVAYF 


* 
* 
* 
* 
* 
* 
* 
* 


* 
* 
* 
This routine converts a signed 16 bit integer to a " 
Floating Point number. Enter with the MSB in the * 
accumulator the LSB in the Y register of the value. * 

* 

* 


KKK KKK KK KK KKK KKK KK KKK KKK KKK KKK KKK KKKKKEKKKKKKKK KKK KK KKK 


S84E5 ;Set up for the conversion 
$8C70 ;Convert the signed integer to a Floating Point 
;number 
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KKKK KKK KKK KK KKK KKK KEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* * 
* CHKFN * 
* * 
* CHecK for FuNction token * 
* * 
* * 


KKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKK KK KKK KK KKK KKK 


7942: CMP #SA5 s;Is it the token for the 'FN" function? 
7944: BNE $7949 sIf it is not the token for 'FN', then branch 
7947: JMP $853B ; JUMP to the routine that handles the 'FN’ token 


KKK KK KK KKK KKK KKK KKK KKK KEKKKKEKKKKKKKKKKKKKKKKKK KK KKK KKK 


* * 
x CHKSGN * 
* * 
* This routine will check the accumulator for the token* 
* value for SGN and if then token value is less than * 
* the value for SGN then the expression enclosed in = 
* parenthesis is evaluated, and if the token value is * 
* equal to or greater then this routine calles S4BF7 to * 
* text for the string functions. * 
* * 
KK KK HK KK KKK KK KK IK KKK KKK KKK KKK KK KH KKKKKKKKKKKKKKKKKKKKK KK KK 


7949: CMP #SB4 ;If the value is less than the token for 'SGN', 

794B;: BCC $7950 ;Then branch to evaluate the expression 
;Between parentheses 

794D: JMP S4BF7 ;Check for a string function 


KKK KHK KK KKK KKK KKK KKK KKK KKKKEKEKKKKKEKKKKKKKKKK KK KKK KKK KKKKK 


PARCHK 


PARenthesis CHecKk 


parentheses, by first calling CHKOPN to check for 
an opening parenthesis, and then calling FRMEVL to 


* * 
* * 
* * 
* * 
* * 
* This routine evaluates the expression within the = 
* * 
* * 
* evaluate the expression inside the parentheses. * 
* * 
* * 


KKK KKK KKK KKK KKK KK KK KK KK KKK KKKEKKEKKKKKKKKKKKKK KKK KKKKKK 


7950: JSR $7959 ;CHKCLS Check for/ skip the opening parenthesis 
;If the opening parenthesis is not found, 
;Then generate a 'SYNTAX' error 

7953: JSR S77EF ;FRMEVL Evaluate the expression 
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KAKKKKKKKKKKKKKKKK KKK KKK KKK KKK Kkk kkk kkk kkk kkk kkk kkk kkk kk kkk 


* * 
* Note: All the following routines will check for the * 
* specified character and if it is found, the routine * 
* will get the next character following it via CHRGET. * 
* * 
* * 


KKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK K KK KKK KKK KKK Kk kk 


KKKKKKK KKK KKK KKKKKKKKKKKKKKKKK KK KK KKK KkKkKkK KK KkhkKk kkk KKK Kk kkk 


CHKCLS 


CHecK CLoSing parenthesis and skip 


+ + F HF 


This routine checks for and skips the closing paren- * 


thesis and generates a 'SYNTAX' error if not found. * 


* 
* 
* 
* 
* 
* 
* 
* * 
* 


Kkk kk kkk kkk KK KKK KKKKKKKKKKKKKKK KK KKK KK KKK KKK KKK KKK KK KKK 


7956: LDA #')! ;Check for the closing parenthesis 
7958: .BYTE $2C ;MASK to fall through to $795E 


KKKK IKK KKK KKK IKK KKK KKK KKK KEKE KKK KK KKK KKKEKKKKKKKKKKKKKKKK 
CHKOPN 
CHecK OPeNing Parenthesis and skip 


* * 
* * 
* * 
* * 
* * 
* This routine is used to check for an opening * 
* parenthesis and skip it. However, if one is not * 
* found, then a 'SYNTAX' error is generated. = 
* * 
* * 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KKKEKKKKKKKKKKKKKKKK 


7959; LDA #'(' ;Check for opening parenthesis 
795B: .BYTE $2C ;MASK to fall through to $795E 


KK KKK KK KKK KKK KK IKK KKK KKK KKK KK KKK KKK KK KKKEKKKKKKKAKKKKKKKKKKK 
CHKCOM 
CHeck for a COMma and skip 


This routine is used to check for a comma and if it 


* 
* 
* 
* 
* 
* 
* is not found, then a 'SYNTAX' error is generated. 
* 

* 


* 
* 
* 
* 
* 
* 
* 
* 
* 


KKK KK KK AIK KK KK KKK KKK KKK KKK KKK KKKKKKKK KKK KK KK KKK KKK KK KKK K 
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795C: 


T95E:3 
7960: 
71962; 
7965: 


71967: 
71969: 


7196C: 
196E: 


71971: 


71973: 


7974: 
7975: 


LDA 


LDY 
STA 
JSR 
CMP 


BNE 
JMP 


LDX 
JMP 


LDY 


PLA 


PLA 
JMP 





#',' sCheck for a comma 
KKEKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKEKKKK KK KKKKKKKKKKKKK 
CHKACC 


CHeckK ACCumulator 


The routine will check for that value and generate 


* 
* 
* 
* 
* 
* value you wish to check for in the accumulator. 
* 
* a 'SYNTAX' error if it is not found. 

* 

* 


* 
* 

* 

* 

* 

If this routine is entered here, you must have the * 
* 

* 

* 

* 

* 


KAKKKKKKKKKKKKKKK KKK KKKEKKKEKKKKEKKEKEKKEKKKKKKEKKKKKKKKKKKKK 


#0 ;Zero the index pointer 

$79 ;Save the character we are searching for 

$03C9 ;Get the next character 

$79 ;Is it the same as the character we're looking 
;for? 

$796C ;If not, then branch to create a 'SYNTAX' error 

$0380 ;If there is a match, then skip the character 


;And get the next character 


KREKKKK KK KKK KK KKK KKK KK KKKKKKKKKEKKEKKKKKKKKKKKEKKKKKKKKKKKKE 


* 

* SNERR * 
* * 
ca) SyNtax ERRor generator - 
* * 
* This routine is used to generate a 'SYNTAX ERROR’ * 
* message. * 
* * 
KHEKKKKKKEKEKKKKKKKKKKKKKKKEKKKEKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKEK 


#11 ;Error number for a 'SYNTAX' error 
$4D3C ; JUMP to the error message routine 
#515 j;Load the Y register with the priorty code 


;For unary minus (Negate the Exponent) 
;Pull the return address of the calling routine 
;Off of the stack 

$784B ;Evaluate the operand 
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KEKKKKKKKK KKK KKK KKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 


ISVAR 


* 
* 
* 
* This routine will get the value of a variable. 
* 
* 


* 
* 
* 
* 
* 
* 


KEKKKKKKKKKKKKK KKK KKK KKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKK 


71978; JSR S7AAF ;Search for the variable's descriptor 

797B: STA $66 ;Save its address in 

797D: STY $67 ;FACL 

797F: LDX $47 ;Get the first character of the variable name 

7981; LDY $48 ;Get the second character of the variable name 

7983: LDA SOF ;Get the flag for numeric ($00), or string (S$FF) 

7985; BEQ S$79EA ;If the value is numeric, then branch to check 
;For a system variable 

7987: LDA #0 ;Set the flag for string 

7989; STA $71 ;String comparison 


KKKKKKKKKKKKKKKKKKKKKEKKKKKKKEKKEKKKKKKKKKKKKKKKKKKKK KKK KKK K 


CHKTIS 
CHecK for TIme $ 


* * 
* * 
* * 
* * 
* * 
* This routine performs two checks. One of the checks * 
* is to ensure that the variable name is for TIS. If * 
* the variable name is TIS, then the second check * 
* is made to ensure that PTRGET sets its descriptor * 
* to the 'Dummy' address of $03D2. The routine then cas 
* returns the value for TI$. If the first character 
* of the variable name is not a 'T', then the routine * 
* exits by branching to the routine that checks for * 
* the variable name of DS. * 
* * 
* * 


KKKKKKKKKKKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


798B: CPX #'t! ;Check to see if the first character is a 't' 
;for 'TIS' 

798D: BNE $79B4 ;If it is not, then branch to check for DS$ 

798F: CPY #'I! ;Check to see if the second character is an 'I' 

7991: BNE $79B3 s;If it is not, then branch to exit 

7993: LDA $66 ;Get the LSB of the descriptor 

7995; CMP #SD2 s;Address is the dummy flag for TI? 

7997; BNE $79B3 ;No, then exit 

7999: LDA $67 ;Get the descriptor's MSB 

799B: CMP #$03 ;Is it the dummy flag MSB? 


351 


Abacus Software 


C-128 BASIC 7.0 Internals 





7199D: 


T99F: 
T9A2: 
T9OA4: 


79A5:3 
T9AT: 


19A9;3 
7OAB;: 
7T9AD;3 
19BO; 
19B3; 


19B4;3 
79B6: 
79B8;3 
TOBA: 
19BC; 
T9OBF: 
ICA 
19C2: 
19C4;3 
19C73 
19C9:;3 
T9OCB: 
19CC; 
T9CF: 
19D0: 
19D2; 
79D3: 


BNE 
JSR 
STY 
DEY 


STY 
LDY 
oY 
LDY 
JSR 
JMP 
RTS 


CPX 
BNE 
CPyY 
BNE 
JSR 
LDY 
INY 
LDA 
JSR 
CMP 
BNE 
TYA 
JSR 
TAY 
BEQ 
DEY 
LDA 


$79B3 
S7A1A 
$60 


$72 
#6 
SSF 
#36 
S8ECD 
S85B8 


;If not, then exit 

;Read the time 

;Zero $60 

;Decrement the Y register therby, generating a 
;Resultant value of SFF 

sStore SFF into $72 to be used as an index value 
;String length of six characters for TIS 

;Save it 

;Index over 36 bytes to 

;Convert the time into a string 

;Give it a temporary descriptor 

;Exit the routine 


KKK KKK IK KKK KK IKK KKK KKK KKK KK KKK KKK KKK KK KKK KKKKKKEKKKKKaKKKKEK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


CHK DSS$ 


CHeck for Disk Status $ 


This routine checks to see whether the variable's 


name is DSS. 
then the routine exits, 
a system variable. 


If it is not TIS (above) or DSS, then 


If the variable name is DSS, 


then the routine calls OBTDS in order to handle the 


DSS assignment. 


The routine then allocates the 


string in RAM BANK 1 to prevent the garbage 
collection routine from deallocating the string. 


#'d' 
$79B3 
#'S' 
$79B3 
$79E3 
#SFF 


#S7B 
SO3AB 
#500 
$79C1 
$8688 


$79E0 


#$7B 


* 
* 
* 
* 
* 
* 
* 

because, the variable is not * 
* 
* 
* 
* 
* 
* 
* 


KKKKKKKKK KKK KKK KKK KKK KK KKKKK KK KKK KKK KKK KKKKKKKKEKKKKKKEKK 


;Is the first character a ‘'d' 

;If not, then exit the routine 

;Is the second character an 'S' 

;If it is not DS, then exit 

;Handle the updating of DSS so that the 
;Nnext 'INY' will zero the index pointer 
;Increment the index pointer 

;Get a byte from the string assigned 

;To DSS (pointed to by $7B,$7C) 

;Delimiter of zero? 

;If not, keep counting the number of characters 
;Save the length of DSS into the accumulator 
;Create the DSS descriptor in $63, $64, $65 
;Move the length back into the accumulator 
;Branch to move the descriptor 

;Decrement the length of the string 

;Get a byte from the string 
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79D5:; 
79D8:; 
79DA: 
79DB: 
79DD: 
T9EO: 


79E3: 
79E5: 
T9E7: 


79FA: 
T9EC: 


JSR 
STA 
TYA 
BNE 
JSR 
JMP 


BIT 
BPL 


SO3AB 
($37),Y 


$79D2_ 
$8771 
$86E3 


Kkkkkkkk kkk 


* 

* 

* 

* 

* 

* This ro 
* BASIC S 
* OPEN, D 
* was upd 
* then no 
* since t 
* 

* 

* 

* 

* 

* 

* 


NOTE: 


KkkkkKKKK 


This ro 
is an I 


+ + + 


;That is pointed to by locations $7B, $7C 
;Move it into the new string area 

;Move the length into the accumulator 

;If not equal to zero, then continue 

;Add the length of the string to its address 
;Move the descriptor to the temporary string 
;stack 


KKKKKKKKKKKKKKKKKKKKKKKKKEKKEKKEKKKKKKKKKKKKKKKK 


OBTDSS 
OBTain DSS 


utine checks location $7A to see if any 
erial Bus routines have been used, such as, 
CLOSE, etc... since the last time that DS$ 
ated. If location $7A does not equal zero, 
BASIC Serial Bus routines have been used 
he last time that DSS was updated. 


+ £€ + € + + + FF F FF FF F F 


Always remember that any Serial Bus access 
will deallocate DSS. Therefore, be sure to as-* 
sign DS$ to another variable temporarily. * 
For example, AS = DSS. * 

* 


KAKKKKKKKKKKKKKKKKKKKKKKEKKKEKKKKKKKKEKKKKKKKKKKEKK 


;Disk Drive operation since last update? 
;If not, then branch to exit 
;Update DSS$ 


utine checks to see if the numeric variable 
nteger or a Floating Point Number. 


+ + + 


s;Does INTFLG indicate that the variable is FP? 
s;If not, then branch to handle an integer 
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19RE: 
T9FO; 
T9F3; 
T9F4; 
TOFS: 
19F83 
T9OF9: 
79FA; 


T9FD: 
TOFFs: 
TAO1;: 
7A03: 
TA05: 
TAO7: 


LDA 
CMP 
BNE 
LDA 
CMP 
BNE 





KKKKKKKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKK 


* OBT INT . 
* * 
os OBTain INTeger * 
* * 
* This routine will get the two byte integer value * 
* that is pointed to by locations $66, $67 and * 
* * 
* * 
* * 
* * 
* * 
* * 


convert it to Floating Point Format in FAC1. 


NOTE: The integer value must be located in RAM 
BANK 1. 


KKK KKKK KKK KK KK KKK KKKKKKKEKKKKKKKKKKKEKKKEKKKKKKKKKKKKKKK 


#$00 ;Zero the index pointer 
S42E7 ;Get the first character (digit) from DSS$ 
;Save the first character in the X register 
;Increment the index pointer 
$42E7 ;Get the second character (digit) from DS$ 
;Move it into the Y register 
;Move the first character into the accumulator 
$793C ;Convert it to integer format 
9 a i ee a a es a a i a a i a a a as Ss i cs * 
* * 
* This routine checks the variable's descriptor * 
* address to see if PTRGET at S$7AAF has set the * 
* address to $03D2 which indicates that this could be * 
* a system variable. If the address is $03D2, then * 
* the variable name that is in the X and Y registers * 
* (X = first character, Y = second character) is * 
* checked for a match against the system variables to * 
* find out which of the system variables it is. When * 
* amatch has been found, the routine handles the * 
* system variable accordingly. However, if the * 
*  'Dummy' variable is not found, then the routine * 
* exits. * 
* * 
Ka a SS a a a a SS Se a a SS ee a ee ee a ee * 
$67 ;Get the MSB of the descriptor's address 
#$03 ;Is it the dummy address? 
S7A81 ;If not, then branch to move the FPN to FAC1 
$66 ;Get the LSB of the descriptor 
#$D2 ;Is it the dummy variable flag? 
STA81 sIf not, then it is not TI 
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7A09: 
JAOB: 


TAOD: 
JAOF: 


7A11: 
7A14: 
7TA15: 
TA17: 


TAIA: 
TJA1D: 
TA1F: 
7A21: 
7A23;3 
7A25: 
TA27: 


CPX 
BNE 


CPY 
BNE 


JSR 
TYA 
LDX 
JMP 


KKK KKK KK IK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKHEKKKKKKKKKKKK KKK 


CHKTI 
CHeck for TIme 
(Floating Point Format). If the variable is found 


to be TI, then the routine will read the current 


* * 
* * 
* * 
* * 
* * 
* This routine checks for the system variable TI * 
* * 
* * 
* time and convert it to Floating Point Format in FAC1.* 
* * 
* * 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KKK KKKKEKKKKKKKKKKKKKEK 


ae eg sIs it 't' as in TI? 

$7A28 ;If it is not a 't', then do not check for the 
;'I', just branch 

#'I' sIs it an 'I' as in TI? 

$7A81 ;If not, then branch since there are more 


;Variable names that are possible starting with 
;'t' and therefore the variable must be 
;Processed as a normal variable 

STA1A ;It is TI so GETTIM 
;Zero the Y register and the Accumulator 

#SA0 ;Exponent 

$8C7B s;Convert TI to a Floating Point Number 


KKK HHA KK HK IKK KKH KK KKK KKK KKK KKK KKK KKKKEKEKEKKKKKKKKKKKKKKEKK 
GETTIM 
GET TIMe 

This routine reads the system clock by calling 


RDTIM at SFFDE and then stores the result at 
locations $65, $66, and $67. 


+ + + F F F F F 
+ + + +  F F F 


KKKKKKKKKKKKKKKKKKKKEKKKEKKKKKKKKEKKEKKKKKKKKKKKKKKKKKRKKKKKK 


JSR SFFDE ;Get the time 

STX $66 ;Save the system clock value Mid 
STY $65 ;High 

STA $67 ; Low 

LDY #$00 ;Clear 

STY $64 ;M1 

RTS sExit the routine 
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TA28: 
TAZA: 
TA2C: 
TA2E: 


TA303 
7A33: 


TA36: 
TA38: 
TA3A3 
TA3C3 


CPX 
BNE 
CPY 
BNE 


JSR 
JMP 


CPX 
BNE 
CPY 
BNE 


KKKKKKKKKKKKKKKE KKK KEKE KKEKKKKKKKKKKKKKKKKKKKKEK 


CHKST 
CHeck for STatus 


* 

* 

* 

* 

* 

* This routine will check the X and Y registers 

* which contain the first and second character of the 
* variable name to obtain the value for. If the 

* variable's name is the Floating Point Variable ST, 
* then the routine will return the value for ST. 

* However, if the variable's name is not ST, then 
* the routine branches to check for another system 
* variable or to process the variable as a normal 
* variable. 

* 

* 


+ + +  F F F HF F F F F F 


KAKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK 


#'s! ;Is it an 's' as in ST 

$7A36 s;If not, then branch to check for DS 

#'t! sSince, it is an 's', is it a 'T! 

S7A81 ;If not, then branch to process the variable as 
;A normal variable 

SFFB7 ;Get the I/O STATUS and assign it to ST 

S$8C68 ;Change the byte in the accumulator to Floating 


;Point format and leave it in FAC1 
KKKKKKKKKKKKKKKKKKKKKKRKKKKKKKKKKKKKKRKKKKRKKKKKRKK KKK KK KKK K 
CHKDS 
CHecK Disk Status 


This routine takes the first two characters from DSS 
and convert them to a Floating Point Number in FAC1. 


NOTE: DS% is a valid variable that is not 
associated with the disk drive and is 
handled in a different manner. 


+ + + + + F F F F HF F FF 
+ + + + F F OF F H OF H OF 


KEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKaKKKKKKKKKKKKKEKKKKKK 


# hd s;Is it a 'D' as in DS 

S$7A60 ;If not, then branch to check for ER 

#'s! ;Since it is a 'D', is it an 'S' as in DS 

$7A81 ;If it is not DS, then branch to process it as a 


;Normal variable 
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1ASE? 
TA413 
7A43:3 
7A453 
7A48:3 
TA4A; 
TA4B: 
TA4D: 
TA4E; 
TA4F S$ 
TA513 
7A53:3 
7A543 
JA563 
TA59:3 
TASB; 
TASD: 


TA60: 
7A62;3 
7A643 
TA663 
7A68; 


JSR 
LDY 
LDA 
JSR 
AND 
ASL 
STA 
ASL 
ASL 
ADC 
STA 
INY 
LDA 
JSR 
AND 
ADC 
JMP 


CPX 
BNE 
CPY 
BEQ 
CPY 


KKKKKKKKKK KK KK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KK KK 


GETDS 
GET Disk Status 


required. Then it will convert the first two 


* 
* 
* 
* 
* 
* 
* 
* ASCII characters to a numeric value in FAC1. 
* 

* 


* 
* 
* 
* 
* 
This routine will update the new DSS if it is : 
* 
* 
* 
* 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKKKKK 


$79E3 ;Handle DSS 
#0 ;Set the indirect address 
#S7B ;For DS to $007B 
$O3AB ;Get the first digit of DS 
#S0OF ;Mask off the upper nybble 
;Convert DS 
$11 ;To numeric 
;And call 
;A routine 
$11 jin the 
$11 ;BASIC SGN function 
7;To convert 
#S7B ;The value 
$SO3AB ;To a Floating Point 
#SOF ;Number 
S14 sIn FAC1 
S8C68 ;Convert it to a Floating Point Number in FAC1 


KKKKKKKKKKKKKKK KKK KKK KKK KKKEKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKK 


CHKER 
CHecK for an ERror 


ER and if it is found, then the routine branches 
to GETER below. 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


* 
* 
* 
* 
* 
This routine checks for the system reserved word * 
* 
* 
* 
* 


KKK KKH KKK IKK IK KK KI KKK KKK KKH KK KKK KK KKK KKK KKKKKKEKKKKKKKKKK 


#'e' jIs it an 'E' as in ER 

S7A81 ;If not, then process it as a normal variable 
ade ag, s;Since it is an 'E', is it and 'R' as in ER 
S$7A78 ;If it is, then branch 

#* 1! ;Since it is an 'E', is it an 'L' as in EL 
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JA6A: BNE S7A81 ;If not, then process it as a normal variable 


KaAKKKKKKKKKKKKEKKKEKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKRKKKKK 


* * 
* GETEL * 
* * 
= GET Error Line = 
* * 
* This routine will take the line number the error * 
* occurred on and convert it to Floating Point Format * 
* in FAC1. = 
* * 
KkkkKkKkKkKkKKKKK KKK KKKKKKKKKKKKKKKKEKKKKKKKKKKEKKKKKK KKK KK KKK 

7JA6C: STA SFFO3 ;Enable Bank 14 

TA6F: LDA $120A ;Get the line number that the error occurred 

7JA72:  LDY $1209 ;On from ERRLIN 

7JA75:  JMP $84C9 ;And convert it to Floating Point Format in FAC1 


kkk KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KR KKK 


GETER 


GET Error 


ERNUM ($1208) and convert it to Floating Point 


* * 
* * 
* * 
* * 
* * 
* This routine will take the BASIC ERROR number from * 
* * 
* Format in FAC1. . 
* * 
* * 


kkkkkkkkkkkkkkkkkkkeKKKKKeKKKKKKKKKKKKKKKKKKKKKK KK KKK K KKK 


TJA78: STA SFFO3 ;Enable BASIC BANK 14 
7TA7B: LDA $1208 ;Get the error number from ERRNUM 
TATE: JMP $8C68 ;And convert the value to a Floating Point 


s;Number in FAC1 


kakkkkkkkkkkKkkkkKekKKkKKkkKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


This routine is used to get a Floating Point value 
from BANK 1 and move it to FACl. If entered here, 
the address of the floating point value in BANK 1 

must be stored in locations $66, $67 (LSB,MSB). 


+ + + FF F F 
+ + + + F F 


KkkKkKkKkKkKKKKKKKKKKKKKKKKAKKKKKKKKEKKKKKKKKKKKKKKKKKKKK KKK KKK 


7JA81: LDA $66 ;Get the LSB 
7A83: LDY S67 ;And the MSB of the address 
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7A85: 
7A873 
7A89:3 
7A8B; 
TJA8E3 
7A90; 
TA92:;3 
7A93:;3 
TA963 
7TA983 
TA9A: 
TASC: 
TAQD: 
7AAO; 
TAA2 : 
TAA3: 
TAA63 
TAAB : 
TAA9; 
TAAC: 
TAAE?: 


STA 
STY 
LDY 
JSR 
STA 
STY 
INY 
JSR 
STA 
ORA 
STA 
INY 
JSR 
STA 
INY 
JSR 
STA 
INY 
JSR 
STA 
RTS 
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KK KKK KK KKK KK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


If this routine is entered here, 
and the Y register must hold LSB and MSB 
respectively of the address in BANK 1 of the 
Floating Point value that you wish to move to FAC1. 


NOTE: 


$24 
$25 
#$00 
$03B7 
$63 
$71 


$03B7 
$68 
#580 
$64 


$03B7 
$65 


$03B7 
$66 


$03B7 
$67 


MOVF'RM 


MOVe a Floating point numbeR from Memory 


The address in the X and Y registers must be 
pointing to nominal byte 2, the exponent. 


;Save the LSB 


the accumulator 


+ + + + € &€ &€ F&F FF FH FF HF F 


KKK KK KKK KKKKKHKKKKKEKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKEK 


;And the MSB of the address 
;Starting index of zero 
;Get the exponent of the value in memory 


sSave it in FACI1 


;Clear the rounding byte 
;Move to the next value 


;Get Mi from memory 

;Save as the sign of FAC1 
;Ensure that bit 7 is set 
;Save it in FAC1 

;Move to the next value 
;Get M2 from memory 

:;Save in FAC1 

;Move to next value 

;Get M3 from memory 

;Save in FAC1 

;Move to the next value 
;Get M4 from memory 

;Save in FACI1 

;Exit 


KKKKKK KK KKK KKK KEKE KKEKKKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


+ + + € + + F 


Note: 


PTRGET 


PoinTeR GET 


The Basic DIM command enters PTRGET at $7AB4 
to prevent the flag for 'Don't Dim' from being set. 
The X register and accumulator contain the first 
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* character of the variable name. This routine will * 
* take the character that TXTPTR is pointing to and * 
* place it in VARNAM ($47) as the first character in * 
* the variable name. Then the routine will ensure * 
* that the character is an ASCII letter A-2 and if it * 
* is not, a 'SYNTAX' error message will be generated. * 
* If the character is an ASCII letter, various zero x 
* page flags are set to indicate to the system NOT TO * 
* DIMension an array because, this variable is numeric * 
* anda Floating Point Number (FPN). The routine will * 
* then index over to the next character to obtain the * 
* second character of the variable name that is to - 
* be located or created (now pointed to by TXTPTR). * 
* The second character is then placed into VARNAM + 1 * 
* ($47). After this has been accomplished, the routine * 
* will check to see if the character following the * 
* first or second character of the variable name is * 
* the flag for string ($), or integer '%'. If neither * 
* symbol is present, a floating point number is * 
* assumed to be present. If one of the symbols is * 
* present, various zero page flags as well as bit = 
* seven of one or both characters of the variable x 
* name in VARNAM ($47,$48) are set. If the character * 
x following the flag denoting the variable type is * 
* an opening parenthesis, then location $12 is tested * 
* to see if arrays are allowed. If they are not * 
* allowed, then the index value in parentheses is * 
* ignored and the previous variable name is used. If * 
* arrays are allowed, then ISARY is called to DIM * 
* the array. The check on arrays is performed because, * 
* the DEFine FuNction command does not allow arrays * 
* in its syntax. If an array is not going to be * 
* processed, this routine will fall through to * 
*  PTRGET1 ($7BOB). = 
* * 
* * 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKK KKK KK KK 


TAAF: LDX #0 ;Flag for Don't DIM 

TAB1: JSR $0386 ;Get the first character of the variable name 
7AB4: STX SOE ;Set the flag for Don't DIM 

JAB6: STA $47 ;Save the first character of the variable name 
7AB8: JSR $0386 ;This will return the current character that 


;TXTPTR is Pointing to. This JSR is here in case 
sthe Basic Dim Command called this routine 


JABB: JSR $7B3C ;Check for an ASCII letter 
TABE: BCS $7AC3 s;If it is a letter, then branch 
TACO: JIMP $796C ;Generate a 'SYNTAX' error message 
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TAC3: 
TACS* 
TACT: 
TAC9: 
TACC: 
TACE: 
TAD1: 
TAD3: 


TAD4: 
TAD7: 
JAD9: 
TADC: 


TADE; 
TAEO: 
TAE2: 
TAE4 3 
TAE6: 
TAEB: 
TAEA: 


TAEC: 
TAEE: 
TAFO: 
TAF2: 
TAF4: 
TAF6: 
TAF8: 


TAF 9: 
TAFB: 
TAFC: 
TAFF?: 
7BO1: 
TBO2: 


7B04: 
7BO6: 
7BO8: 


LDX 
STX 
STX 
JSR 
BCC 
JSR 
BCC 
TAX 


JSR 
BCC 
JSR 
BCS 


CMP 
BNE 
LDA 
STA 
BNE 
CMP 
BNE 


LDA 
BNE 
LDA 
STA 
ORA 
STA 
TXA 


ORA 
TAX 
JSR 
STX 
SEC 
ORA 


SBC 
BNE 
JMP 


#0 
SOF 
$10 
$0380 
$7AD3 
$7B3C 
STADE 


$0380 
$7AD4 
$7B3C 
$7AD4 


#'S$' 
S$7AE8 
#SFF 
SOF 
STAFS8 
#1G! 
STAFF 


$12 
$7ACO 
#$80 
$10 
$47 
$47 


#$80 


$0380 
$48 


$12 


#'(' 
$7BOB 
$S7CAB 


;Flag to 

;Indicate numeric and not a string 

;Floating point number not an integer 

;Get the next character 

;Iif it is a DIGIT O - 9, then branch 

;Check to make sure it is a letter 

s;If it is not a letter, then branch 

;Save the second character of the variable name 
;Into the X register 

;Get the next character 

;If it is a DIGIT 0 - 9, then branch 

;Check to make sure it is a letter 

;If it is a letter, then skip over the rest 

;Of the variable name 

s;Is it the symbol ($) for a string? 

;If it is not, then branch 

;Flag for a string 

;Set the flag 

;Branch past the test for an integer (%) 

;Is it an integer? 

;If it is not, then branch to process a 
;Floating Point or an Array 

;Check SubFlag to see if integers are allowed 
,if not, generate a 'SYNTAX' error 

;Set the flag for an integer 

;Set bit 7 in INTFLG 

;Set bit seven in the first character of the 
;Variable name and save the character in VARNAM 
;Move the second character of variable name into 
;The Accumulator 

;Set Bit 7 for strings and integers 

;Move the second character into the X register 
;Get the next character : 

;Save the second character of variable name 
;Set the carry for subtraction 

;Combine the first character after the variable 
;type 

;Flag with the Integer allowed/not allowed flag 
;which 

;Will be checked later for an opening 
;parenthesis 

;If the character is the opening parenthesis 
;And ARRAYs are not allowed, then branch 

;Jump to ISARY to handle the ARRAY 
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7BOB: 
7TBOD: 
TBOF: 
pois eke 
7B13: 
TB15: 
TBs 
7B1i9:;: 


7TBiB: 
TB1D: 


TB1F: 


LDY 
STY 
LDA 
LDX 
STA 
STA 
CPX 
BNE 


CMP 
BEO 


JSR 





kk kkk kkk kkk kkk kkk KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK 


PTRGETI 


* 

* 

* 

* This routine will use VARTAB to obtain the address 

* of where the start of the variable descriptor table 
* is located in Ram Bank 1. Unless you have changed 

* it, this table is usually starts at $0400. The 

* routine will use VARTAB as a starting position by 

* placing it into locations $61, $62. The first two 

* bytes of this variable descriptor are then checked 

* against the variable name that is stored in 

* locations $47, $48 to see if it is the one we are 

* searching for. If it is not, then the routine will 
* add seven to the address in $61, $62 to move to the 
* next variable descriptor. The check is then made on 
* this variable descriptor. The process continues 

* until either the variable name is found or until 

* locations $61, $62 equal ARYTAB. If locations $61, 
* $62 equal ARYTAB, this indicates that all the 

* variable descriptors have been checked and the 

* variable name we were searching for was not found. 

* Therefore, this routine will branch to the NOTFNS 

* routine below to allocate room for the new variable 
* that is in $47, $48. However, if during the search 
* the variable name was found, then this routine will 
* call the MOVVARPNT routine below to leave $61,$62 

* pointing to nominal byte 2 of the variable descriptor* 
* and place that address in $49,S4A (VARPNT). * 
* 

* 


* 


+ + + £ € € FF F F F F F F F HF F F F F F F F F FF HF F 


KKK KKK KKK KKK KKK KK KK KKK KE KEKKKKKKKEKKKKKKKKEKRKEKEKKKKKKKKKKKKK 


#$00 ;Clear the Integer/Arrays 

$12 ;Not allowed flag 

$2F ;Get the address from VARTAB of 

$30 ;Where the storage area of RAM BANK 1 

$62 ;Is for the VARIABLE descriptors 

S61 ;And save it in locations $61, $62 

$32 ;Check the MSB of $62 against the MSB of ARYTAB 

$7B1F ;to see if all the descriptors have been 
;Searched through. If they have not, then branch 

$31 ;Check the LSB to see if ARYTAB = $61, $62 

S$7B46 ;If all of the descriptors have been searched, 
;Then branch to create a new descriptor 

$4300 ;Get the first character of the variable name 


;from the 
;Variable descriptor pointed to by $61, $62 
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TB22: 
TB24: 


7B26: 


71B27: 


TB2A: 


7B2C: 
TB2E: 


7B313 
7B32: 
71B33:3 
1B39° 
7B37: 
7B39; 
7TB3A: 


7TB3C: 
TB3E: 


7B40: 


CMP 
BNE 


INY 


JSR 


CMP 


BNE 
JMP 


DEY 
CLC 
LDA 
ADC 
BCC 
INX 
BNE 


CMP 
BCC 


SBC 


$47 s;Is it the same character as the 
$7B32 ;Variable name we are searching for? 
;If not, then branch 


;If the first character matchs move over to the 
;Second character of the variable name 
$4300 ;Get the second character of the name from 
;The descriptor 
$48 ;Is it the same as the second character we are 
;Looking for? 
$7B31 ;If not, then move over to the next descriptor 
$7C57 ;If both characters of the variable name match, 


;Then branch to point VARPNT to nominal byte 2 
;Of the descriptor 


KKK KKK KKK KKK KK IKK KKH HK KKK KKK HK KKK KK KKK KKK KK KKK KKK KK KK KKK 
PTRGET2 
This routine will add seven to $61, $62 to move it 


* * 
* * 
* * 
* * 
* over to the first character of the variable name * 
* of the next variable descriptor. . 
* * 
* * 


KKK KKK KK KKK KKK KK KKK KKK KEI KKK KKK KKKKKKKKK KKK KKK KKK 


;Move the index pointer back to the first 
;Character in the descriptor then 


$61 s;Add seven to the current descriptor 

#3507 ;Being checked to move us over 

$7B15 ;To the next descriptor's first character of the 
;Variable name then restart 

$7B13 ;By returning back to the main loop 


KKEKEKKIKKEKKKK KK KEK KKK KKK KK KKKKKEKKKKKKKKKKKKKKKKKKKKEKKKEKEK 


PTRGET3 


* * 
* * 
* * 
* This subroutine will check the character in the . 
* accumulator to see if it is an ASCII letter A - Z. * 
* If it is, the carry flag is set and if it is not an * 
* ASCII letter A - Z, the carry flag is cleared. * 
* * 
* * 


KKK IKK KKK KK KK KIKI MK KKK KKK KKEKKKKKKEKKK KKK KKK K KKK KKKKEKK 


#°A! ;Check to see if the character 'A' and if it 

$7B45 ;Is less than the character 'A', then branch 
;With the carry flag cleared 

#'[' ;If the character is greater than 'Z', 
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7B42: SEC ;Then the carry flag is cleared and the carry 
7B43: SBC #SA5 ;Flag is set for characters A thru Z 
7B45: RTS ;Exit this routine 


KKEKKKKKKKKKKKKE KKK KKK KKK KK KKK KKKKKKKKKKKKKKKEKKKKEKEKKKKKKKEKEK 


NOTFNS 
did NOT FiNd deScriptor 


descriptor as long as the calling routine is not 


* 

* 

* 

* 

* 

* This routine is used to CREATE a new variable 

* 

* the BASIC POINTER COMMAND, or the ISVAR routine. 
* 
* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KKKKKKKKEKKKKKKKKKKKKKKKKEKKKKKKEKKKKKKKKKKKKKKKKKKKKKKK 


7B46: TSX ;Place the stack pointer into the X register 

7B47: LDA $0102,X ;Get the MSB of the Calling Routine 

7B4A: CMP #$83 ;Is it the Pointer Routine ($8305) 

7B4C: BEQ $7B52 ;If it is, then branch 

7B4E: CMP #$79 sIs it the ISVAR Routine ($7978) 

7B50: BNE S7B7C ;If it is not, then branch 

7B52: LDA #$D2 

7B54: LDY #03 ;Dummy return address to indicate TI$ 

7B56: RTS ;Exit the routine 
a a a a i ee ces a a a a a ee es es * 
* ae 
- NOTFNS2 * 
* * 
* did NOT FiNd deScriptor2 - 
* * 
* SEE THE COMMENTS UNDER NOTFNS1 * 
* * 


7B57: CPY #'I! sIs it an 'I' as in TI$? 

7B59: BEQ $7B52 ;Yes, then generate a 'SYNTAX' error 

7B5B: CPY #'i' Ts tt. ti cas. in Ti 

7TB5D: BNE $7B90 ;No, then branch to create the new descriptor 
7TBSF: BEQ $7B79 ;If it is, then generate a 'SYNTAX' error 
7B61: CPY #'S! ;Is it 'S' as in DS? 

7B63: BEQ $7B79 ;Yes, then generate a 'SYNTAX' error 

7B65: CPY #'s' ;Is it 's' as in DS? 

7B67: BNE $7B90 ;No, then branch to create the new descriptor 
7B69: BEQ $7B79 ;If it is, then generate a 'SYNTAX' error 
7B6B: CPY #'t! sis 10a. "tas. in: ST? 
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TB6D: 
TB6F: 
TB71: 
7B73: 
7B75: 
TB7T73 
TIB19:3 


1BIC: 
TBTE: 
7B80: 
1B82: 
7B843 
7B86; 
7B88: 
TB8A: 
TB8C3: 
7TB8E: 


BNE 
BEQ 
CRY. 
BEQ 
Cex 
BNE 
JMP 


LDA 
LDY 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 


$7B90 ;No, then branch to create the new descript 
$7B79 ;If it is, then generate a 'SYNTAX' error 
tr ;Is it the 'r' as in ER or EL 

$7B79 ;If so, then branch to generate a 'SYNTAX' 
ae #1s: at -" 1" -as-in EL 

$7B90 ;No, then branch to create the new descript 
$796C ;Generate a 'SYNTAX' error message 


KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKEKKEKKKKKKEKKKEKKKKKK KK KKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


NOTFNS1 


Gid NOT FiNd deScriptorl 


+ 4 + + 


This routine will ensure the variable name that a new * 
descriptor is to be created for is not one of the sys-* 


tem reserved variables (ER, EL, DS, DSS, ST, TI, or * 
TIS) and if it is one of the reserved variables (ex- * 
cept TIS for which a DUMMY descriptor address ($03D2) * 
is created) a SYNTAX ERROR MESSAGE will result. If the* 


variable's name for which the new descriptor is to be * 
created is not one of the system's reserved variables, * 


then this routine will fall through to NOTFNS3. * 
* 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKKKKKKKAKKKKKKKKKKKKK 


$47 ;Get the variable name the new 

$48 ;Descriptor to be created for 

#'t! Is it a 't'" as in TI? 

$7B57 ;If so, then check for the '‘'I' 

#'s! ;Is it an 's' as in ST? 

$7B6B ;If so, then check for the 't' 

#te! ;Is it an 'e' as in ER? 

$7B71 ;If so, the check for the 'r' or the 'l' 
#'d! ;Is it a 'd' as in DS? 

$7B61 ;If so, then check for the 's' 


Kk Kk KK KKK KK KKK KKK KEKE KEKE KKKKEKKIKKKKKKK KKK KKK KKK KKK 


* 
* 
* 
* 
* 
* 
* 
* 
x 


KK KKK RK KK KK RK KKK KKK KKK KKK KKK KKK KKKKKKKK KKK KK KK KKK KEK 


NOTFNS3 
did NOT FiNd deScriptor3 


This routine actually creates the new descriptor for 


* 
* 
* 
* 
* 
* 
the variables name which is in $47,$48 (VARNAM). i 
* 
* 
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7B90: 
1B92: 
1B94; 
7B96: 
71B98; 
TB9A: 
TB9C: 
TB9E: 
TBAO: 
7BAI1: 
7TBA3: 
TBAS: 


TBA6: 
TBAB: 
7TBAA: 


7BAD: 
TBAF: 
7BB1: 
TBB2: 
TBB4: 
TBB6: 
7BB8: 
7BBA: 
TBBC: 
TBBE: 
TBCO: 
TBC2:; 
7BC4;3 
TBC6: 


TBC8: 
TBCA: 
1BCC3 
TBCE: 
TBD1: 
TBD2: 
7BD3: 
TBD6: 
TBD?7: 
TBD8: 
7BDB: 
TBDD: 
TBDF: 
7BEO: 


LDA 
LDY 
STA 
STY 
LDA 
LDY 
STA 
STY 
CLC 
ADC 
BCC 
INY 


STA 
STY 
JSR 


LDA 
LDY 
INY 
STA 
STY 
STA 
STY 
LDA 
LDX 
CPX 
BNE 
CMP 
BNE 
BEQ 


STA 
STX 
LDY 
JSR 
TAX 
INY 
JSR 
PHP 
INY 
JSR 
ADC 
STA 
INY 
JSR 


$31 
$32 
$61 
$62 
$33 
$34 
$5C 
$5D 


#507 
$7BA6 


SOA 
S5B 
$7C66 


SSA 
S5B 


$31 
$32 
SSA 
S5B 
SSA 
$5B 
$34 
S7BC8 
$33 
$7BC8 
$7040 


$24 
$25 
#500 
$03B7 


$03B7 


S$O03B7 
SSA 
SSA 


$03B7 


;Move ARYTAB into $61,S$62 

;Note: ARYTAB is pointing to the end of 
;The variable 

;Descriptor (table) 

;Move STREND into $5C,$5D 

;Note: STREND is pointing to the end of 
;The ARRAY storage area plus 1 and doubles as 
;The address the last string can be stored into 
;Clear carry for subtraction 

;Then add seven to STREND to make 

;Room for the new variable descriptor 
;Which increases variable storage area by 7 
;And decreases room available to strings by 7 
;Save the address of the last byte of the 
;Descriptors in $5A, S$5B 

;Shift the ARRAY storage 

;Area up seven bytes 

;Get the address after 

;The move 

;Increment the LSB by one 

;Save it as the new ARYTAB 

;Address 

;And save it in the 

;Temporary work area 

;Check the 

;New ARYTAB 

;Address with STREND 

;To see if the 

;Descriptor exists 

;If they are not the same, then branch 
;Else place the variable name into the 
;descriptor 

;And fill nominal bytes 2 - 6 with zeros 
;Save the address of the variable's 
;Descriptor 

;Zero the index value 

;Get the variable's name 

;Save it into the X register 

;Move over to nominal byte 1 

;Get the second character of the variable's name 
;Save the processor's status onto the stack 
;Move over to nominal byte 2 

;Get the address of the next variable 
;Descriptor and add it to ARYTAB to 

;Derive a new ARYTAB MSB 

;Move over to nominal byte 3 

;Obtain a 
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TBE3: 
TBES: 
7TBE7: 
TBE8: 


7TBEA: 


7BEB: 
7TBED: 
7TBEE: 
TBF1: 
TBF3: 
TBE 4: 
TBF6: 
TBF8: 
TBFA: 
TBFC: 
TBFE: 
7000: 
1002: 
71004; 
7006: 
710083 
TCOA: 
7COD: 
TCOF: 
7011: 
TCL] 
ILS: 
7C16: 
70183 
TCIA: 
7C1B: 
TIC1E: 
70203 
71022: 
1024: 
AC2a3 
1029: 
7C2B: 
1C2C§ 
71C2F: 
7031: 
ACS3% 
7035: 
7C363 
7038: 


ADC 
STA 
PLP 
BPL 


TXA 


BMI 
INY 
JSR 
LDY 
ASL 
ADC 
ADC 
STA 
BCC 
INC 
LDX 
CPX 
BNE 
CMP 
BEQ 
LDY 
JSR 
BEQ 
STA 
INY 
JSR 
CLC 
ADC 
STA 
INY 
JSR 
ADC 
STA 
LDY 
JSR 
ADC 
STA 
INY 
JSR 
ADC 
STA 
LDA 
CLC 
ADC 
STA 


$5B 
$5B 


$S7BBA 


$7BBA 


$03B7 
#$00 


#$05 
$24 
$24 
$7BFE 
$25 
$25 
$5B 
$7C08 
SSA 
$7BBE 
#$00 
$03B7 
$7C33 
$79 


$03B7 


$79 
$5C 


$03B7 
#$00 
$5D 
#$00 
$42E2 
#$07 


($5C),Y 


$42E2 
#500 


($5C),Y 


#503 


$24 
$24 


7;New ARYTAB 

; LSB. 

;Get the flag for the variable type in the 2nd 
;Character of the variable's name and if it is a 
;Floating Point Number or Function, then branch 
;Move the first character of the variable's name 
s;Into the accumulator 

;If it is an Integer, then branch 
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7C3A: BCC S7BFE 
703C: INC $25 
7C3E: BNE ST7TBFE 


KK KK IKK KK IKK KK KKK KKK KKK KK KKKKK KKK KE KKKKKKKKKK KKK KKK KKK K 


FILLDES 
FILL DEScriptor 


* * 
* * 
* * 
* * 
* * 
* This routine will place the variable name which is * 
* in locations $47, $48 (VARNAM) into the descriptor * 
* that is pointed to by locations $61, $62 (GRBTOP). “ 
* The routine will then fill the remaining bytes in * 
* the descriptor with zeros and place the address * 
x of the second nominal byte in the descriptor in * 
* locations $49, $4A (VARPNT). = 
* * 
* * 


KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKEKKKKKKKEKKKKKKKEKKEK 


7040: LDY #500 ;Zero the index pointer 

7042: LDA $47 ;Get the first character of the variable name 
7044: =STA SFFO4 ;Enable BANK 14 with RAM BANK 1 

71047: STA ($61),Y ;And place it into the descriptor 

7€49: INY ;Add one to the index pointer 

7C4A: LDA $48 ;Get the second character of the 

7C04C: STA ($61),Y ;Variable name and place it in the descriptor 
71C4E:; LDA #$00 ;Fill value (zero) 

7C502.. -INY ;Fill nominal byte 

7051: STA ($61),Y ;Two to nominal 

TCS3: -CPY #506 ;Byte six with 

7055: BNE $7050 ;Zeros 


KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KEKE KKK KKKKKKKKKKKKKKKK 


MOVVARPNT 
MOVe the VARiable PoiNTer 
that is pointed to by locations $61 and $62 and 


add two to it and save the new variables descriptor 
address in $49,S$4A (VARPNT). 


* * 
* * 
* * 
* * 
* * 
* This routine will take the address of the descriptor * 
* * 
* * 
* * 
* * 
* * 


KKKKK KEK KEK KKK KKK KKK KKK KK KEKEKK KKK KKK KKK KKEKKEKEKKKKEKKEKKKKKKKK 


7057: LDA $61 ;Get the LSB of the descriptor's address 
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7059: CLC ;Clear the carry flag for addition 

7C5A: ADC #2 ;Add two 

7105C: LDY $62 ;Get the MSB of the descriptor's address 

ICSE: BCC $7C61 ;If no overflow occurred when 2 was added to the 
;LSB then branch to prevent adding 1 to the MSB 

7060: <INY ;Add one to the MSB of the descriptor's address 

7061: STA $49 ;And save the result in VARPNT 

7C63: STY S4A ;As the new descriptor address 

7C65: RTS ;Exit this routine 


KKKKK KKK KKK KK KKK KEKE KKK KK EKK KEKE KKK KKK KKKKKKEKKKEKKEKKKKKKKK 


BLTU 
BLock Transfer Utility 


* * 
* * 
* * 
* * 
* * 
* When a descriptor is being created, this routine is * 
* called to create room for the new descriptor in * 
* memory. n 
* * 
* On entry to this routine, the accumulator and the * 
* Y register will contain the number of bytes that * 
* * 
* * 
* * 
* * 


need to be allocated in memory in LSB/MSB format. 
The routine then falls through to BLTU1 below. 


KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKEKKEKKKKKKEKKKKKKEKKEK 


7C66; JSR $5017 ;Check to ensure there is enough room for the 
;Descriptor which is about to be created 

7C69; STA $33 ;Save the address in 

7C6B: STY $34 7;STREND 


KK KA HK HK KKK KKH KKH KKK KKK KKK HK KK HKKHK KKK KHEKHKKKKKKEKKKEKKKKKKKKKKK 


BLTU1 
BLock Transfer Utility 1 


This routine is used to insert data into a specified 
section of memory for the variable routines in order 
to make room for the new variable descriptor. The 
parameters for this routine are as follows: 


+ &€ &€* &€ € * © FF FF HF F 
+ + + + © ££ &€* € FF HF 


POINTER : DESCRIPTION 


$61,$62 : Starting address of the BLOCK to be moved 


+ 
+ 


* 
* 
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* $5C,$5D : Starting address of the BLOCK + the number * 
= : of bytes to move * 


* S$5A,$5B : Destination address + the number of bytes 
ie ; to move 


* 

* The above information can be put to good use. For . 
* example, if you wish to move 8 bytes of data starting* 
* at $2008 in RAM BANK 1 to $3008, you would place the * 
* 
* 
* 


following values in the pointers mentioned above: 

* 

POINTER : VALUE = 

K eee ew ww ew we ee ee ee ew ew ewe eee eww we ew wee ww ew wee ew mw ew we ew ee we ee * 
* $61,$62 2008 Start of the BLOCK * 


* $5C,$5D : 2010 Start of the BLOCK + number of bytes * 
* : $2008 + $08 = $2010 * 


* $5A,$5B : 3010 Destination address + number of bytes * 
: $3008 + $08 = $3010 * 


* * 
* With the above information as a guide, the * 
* development of word processing progams or any other * 
* program that requires the movement of data or text * 
* around in memory will be made easier. . 
* * 
* * 


KKRKKKKKKKKKKKKKHKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKK 


7C6D: SEC ;Set the carry for subtraction 
7C6E: LDA $5C ;Get the LSB of the end of the 
;block to be moved +1 
7070: SBC $61 ;And subtract the LSB of the start of the 
sblock to be 
7072: STA $24 ;Moved-save the result in location $24 
7074: TAY s;And also place it into the Y register 
7075: LDA S5D ;Get the MSB of the end of the block 
;to be moved + 1 
71077: SBC $62 ;And subtract the MSB of the start of the 
;block to be 
71079: TAX ;Moved to and save the result in the X register 
TIC7A: INX ;Add one to the MSB 
7C7TB: TYA ;Move the LSB into the accumulator 
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TeiC: 


ICTES 
7080: 
7081: 
71083; 
7085: 
71087: 
7089: 
7C8A3 
7C8C3 
TC8E: 
7090: 
71092: 
1094; 
70963 
710993 
7C9OB: 
71C9C3 
1C9E:3 
7CA1: 
7CA3: 
7CA5: 
TCA7: 
7CA8B: 
7CAA: 


BEQ 


LDA 
SEC 
SBC 
STA 
BCS 
DEC 
SEC 
LDA 
SBC 
STA 
BCS 
DEC 
BCC 
JSR 
STA 
DEY 
BNE 
JSR 
STA 
DEC 
DEC 
DEX 
BNE 
RTS 


S7CA3 ;If the number of bytes to move is a multiple of 
7256, then branch 

$5C ;Get the LSB of the end of the block address 
;Set the carry flag for subtraction 

$24 ;Subtract the odd number of bytes from it 

S5C ;And save it as the new LSB 

S7C8A ;If there was no overflow, then branch 

$5D ;Subtract one from the MSB 
;Set the carry flag for subtraction 

SSA ;Get the MSB of the end of the block address 

$24 ;And subtract the odd number of bytes from it 

SSA ;And save it as the new MSB 

$7C9B ;If an overflow occurred, then branch 

$5B ;Decrement the LSB of the end of block by one 

$7C9B ;If there was no overflow, then exit 

$42E2 ;Get a byte from the starting block 

(S5A),Y ;And save it in the target block 
;Decrement the index pointer 

$7096 ;Continue looping until done 

$42E2 ;Get the last byte (nominal byte 0) 

(S5A),Y ;And save it 

$5D ;Decrement the MSB of the starting block 

S5B ;Decrement the MSB of the destination address 
;Decrement the page counter by one 

$7C9B ;If all the pages are not done then branch 


C-128 BASIC 7.0 Internals 


sExit this routine 


KKKKKKKKKK KKK KK KKK KKK KKK KKKEKKKKKKKKEKKKKEKKKKKKKKKKKK 


ISARY 


ISolate ARrayY 


This routine will search through the ARRAY storage 
area searching for the array whose name is held in 


locations $47, 
pointing to the opening parenthesis. 


$48 (VARNAM) and with TXTPTR 


is found, then this routine will exit to RAERR 


below. If the array is not found, then this routine 
will exit to ALARY below to create the array. 

NOTE: When these routines exit, you are left in 
BANK 14 with RAM BANK 1 enabled. 


* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* If the array x 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 


KKK KKK KKK KAI K IKK KEK KKK KKK KKK KEKE KKEKKEKKKKKKKKKKKKKKKKKK 
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TCAB: 
TCAD : 
TCAF 
ICBO: 
ICB2: 
1CB3: 
ICBS:? 
1CB6: 
1CB73 
1CB9: 
7CBA: 
ICBC; 
TCBD: 


7CCO: 
71CC13 
1EGS: 
710C4: 
71CC63 
71CC7: 
ICCB; 
1CC93 
ICCC s 
7CCD: 


7CD0; 
TCD1: 
7ICD3: 
ICD63 
7I1CD83 
TCDB: 
TCDC: 
ICDE: 
CW Le 
ICE3: 
ICES: 
ICE73 


TCEA: 
TCEB: 
ICED: 
TCEE: 
TCFO: 
TICF2:;3 


LDA 
ORA 
PHA 
LDA 
PHA 
LDY 
TYA 
PHA 
LDA 
PHA 
LDA 
PHA 
JSR 


PLA 
STA 
PLA 
STA 
PLA 
TAY 
TSX 
LDA 
PHA 
LDA 


PHA 
LDA 
STA 
LDA 
STA 
INY 
oly 
JSR 
LDY 
CMP 
BEQ 
JSR 


PLA 
STA 
PLA 
STA 
AND 
STA 


SOE 
$10 


SOF 


#00 


$48 


$47 


S84A7 


$47 


$48 


$0102,X 


$0101,X 


$66 
$0102,X 
$67 
$0101,X 


$OD 
$0386 
SOD 
#',' 
$7CB5 
$7956 


SOF 


$10 
#$7F 
SOE 


;Combine the DIMFLG (SOE) and INTFLG ($10) 
;Onto the stack to preserve their 

;Flags 

;Save VALTYP 

;Onto the stack 

;Set the number of dimensions to Zero 

;And save 

;It onto the stack 

;Place the second character of the 

;Variable name onto the stack 

;Place the first character of the 

;Variable name onto the stack 

;Get the next character, convert it to Integer 
;Format in locations $66, $67 (LSB, MSB format) 
;Get the first character of the variable 

;Name off of the stack and save it in $47 

;Get the second character of the variable name 
;And place it into $48 

;Get the number to dimension 

;And save it in the Y register 

;Place the stack pointer into the X register 
;Make room for the 

;Number of elements 

;By moving the bottom flags which were 

;VALTYP and DIMFLG/INTFLG, which were combined, 
;From the bottom to the top of the stack 

;Save the 

;Number of elements 

;Save the number of elements 

;To dimension in their place 

;Increment the number of dimensions by one 
;Save the number of dimensions 

;Get the character after the dimension 

;Get the number of dimensions 

;Is there a comma (multidimensional ARRAY) ? 
;If so, then branch to process the next value 
;Check for the closing parenthesis and if it is 
s;Not found, then generate a 'SYNTAX' error 
;Restore the flag for string or 

;Numeric in VAITYP 

;Restore the flag for integer or 

;Floating point into INTFLG 

;Drop bit 7 which could have held 

;The flag for string and save the first 
;Character of the name in DIMFLG 
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TCF4: 
TCF6: 
TCF8 3 
TCFA: 
TICEC: 
TCFE: 
7DO00: 
7D02: 


7D04: 
7D06; 
7DO09; 
TDOA: 
7TDOC: 
TDOE: 
7D11: 
7D13: 


7D15: 
7D16: 
7D19: 
TIDIAs: 
7D1C: 
7D1D: 
TD1E: 
7D21; 
7D23: 


LDX 
LDA 
STX 
STA 
CMP 
BNE 
CPX 
BEO 


LDY 
JSR 
INY 
CMP 
BNE 
JSR 
CMP 
BEQ 


INY 
JSR 
CLC 
ADC 
TAX 
INY 
JSR 
ADC 
BCC 


KKKKKKEKKEKKKKKKKKKEKKEKKKKEKKEKEKKKKKKKKKKKKK KK KKK KKK KK KK KKK 


+ + + + + F F F OF % 


SRCHARY 


SeaRCH for ARraY 


area searching for the array whose name is held in 


locations $47, 


$48 (VARNAM). If the array is 


found, then this routine will exit to RAERR to 
ensure that this is indeed the correct array. 


* 
* 

* 

* 

* 
This routine will search through the ARRAY storage * 
* 

* 

* 

* 

* 

* 


KKEKKKKKKKEKKKEKKKKKKKEKKKEKKEKKKKKEKEKKEKEKKKKEKKKKKKKKKKKKKKKKK 


$31 
$32 
$61 
$62 
$34 
$7D04 
$33 
$7D46 


#$00 
$4300 


$47 
$7D15 
$4300 
$48 
$7D2D 


$4300 
$61 
$4300 


$62 
STCF8 


;Get the Start of Array Storage address from 

; ARYTAB 

;And save it in 

;Locations $61, $62 

;Check to see if the address in the X register 
sand the accumulator is equal to STREND, which 
jIs the end of the ARRAY storage, and 

;If it is, then branch to create the ARRAY since 
;Since it does not already exist 

;Zero the index pointer 

;Get the first character of the 

;Variable descriptor that is being 

;Searched through and if they 

;Do not match, then branch 

;Get the second character from the current 
;Descriptor and if it equals the character 
;That we are searching for, then the ARRAY has 
;Already been dimensioned, therefore branch 
;Move over to the length 

;Get the LSB of the next 

;Descriptor 

;And add it to ARYTAB 

;Save the result in the X register 

;Move over to the MSB of the next 

;Available descriptor and add that 

;Value to the MSB of ARYTAB 
;If there was no overflow, 


then branch, else 
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* * 
* BSERR * 
* * 
* Bad Subscript ERRor * 
* * 
* Generate an 'BAD SUBSCRIPT’ error message. as 
* * 
KKEKKKKKKKKKKKKKEKKKKKEKKKKKEKEKKKKKKKKKKKKKKKKKKKKKKRKKKRKEK 

7D25; LDX #18 ;Generate a "BAD SUBSCRIPT' error 

7D27:  .BYTE $2C ;Mask to fall through to $7D2A 


KHKKKKKKKKKKKKKEKKKKKKEKKKKEKKKKKKKaKKKKKK KKK KKKKKKRKRKKK 
IQERR 
Illegal Quantity ERRor 


Generate an ‘ILLEGAL QUANTITY ' error message. 


+ + + + 


* 
* 
* 
* 
* 
* 
* 
KEKKKEKKKEKKEKEKKEKEKKKKEKEKEKKKEKKKEKEKKKEKKKKKKKKKKKKKKKKKKKK 


7D28: LDX #14 ;Generate an ‘ILLEGAL QUANTITY' error 
7D2A: JMP $4D3C ; JUMP to the error message routine 


KEKKKKEKKKKKEKKEKKKKKEKKKKKKKKKKKEKKKEKKKEKKKKKKKEKKKKKKKKKKKKEK 


RAERR 
Redimensioned Array ERRor 


* * 
* * 
* * 
* * 
* * 
* This routine will first check the DIMFLG to see if * 
* this array, which has already been dimensioned, is * 
* to be dimensioned. If it is to be dimensioned, a * 
*  'REDIM'D ARRAY' error will occur. If the array is * 
* not to be dimensioned, then this routine will ensure * 
* that the number of dimensions in the ARRAY in memory * 
* and the one to be found are the same. If they are - 
* not the same, then a 'BAD SUBSCRIPT! error will be * 
* generated. If they are the same, then this routine * 
* will exit to ARYELM to process the array. * 
* * 
* * 


KEKKKEKKKEKKEKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKRKRKKKKKKK 


7D2D: LDX #19 ;Generate a 'REDIM'D ARRAY' error message 
7D2F; LDA SOE ;Is the ARRAY to be dimensioned? 
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7D31: BNE $7D2A ,If so, then generate a 'REDIM'D ARRAY' error 

7D33: JSR S7TE71 ;Get the address of the array's descriptor 

7D36: LDY #504 ;Get the number of 

7D38: JSR $4300 ;Dimensions from the descriptor 

7D3B: STA $79 ;Save it into SYNTMP 

7D3D: LDA $OD ;Get the number of dimensions for this ARRAY 
;To be modified 

7D3F: CMP $79 ;If it is not the same, 

7D41;: BNE $7D25 ;Then generate a 'BAD SUBSCRIPT! error 

7D43: JMP $7DD2 ;Process the array 


KKKEKKKKEKKEKK KEKE KKKKKEEKEKEKKKKKEKKEKEKKKKEKKKKKKKKKKKKKKKK KKK 


ALARY 
ALlocate ARraY 


* * 
* * 
* * 
* * 
* * 
* This routine is used to create a new array = 
* descriptor. Upon entry to this routine, locations * 
* $47, $48 (VARNAM) will contain the variable's name * 
* for which this array is to be created. Combined * 
* with the two characters of the variable's name are * 
* the flags that indicate what type of array is to be * 
* created (String, Integer, or Floating Point). * 
* Locations $61, $62 will contain the address of * 
* byte 0 of the array descriptor for the array. If y 
* the DIMFLG is not set, then this routine will create * 
* the array with the default dimension value of 11. x 
* * 
* * 
* * 
* * 
* * 
* * 
* * 


NOTE: For information on the different flags that 
are combined with the characters of the 
variable name, see the section on variable 
storage in this book. 


KKK K KKK KKK KKHKKKKKKEKKKEKKKKKEKKKKKKEKKKKKKKKKRK KKK KKK K 


7D46: JSR S7E71 ;Get the address of the first ARRAY element 

7D49: JSR $5017 ;Ensure that there is enough room in string 
;For this ARRAY 

7D4C:;: LDY #S$00 ;Zero the MSB of the 

TD4E: STY $73 ;Length of the variable's descriptor 

7D50: LDX #5 ;Set the index to five 

7D52: LDA $47 ;Get the first character of the variable name 

7D54: STA SFFO4 ;Enable BASIC BANK 14 with RAM BANK 1 enabled 

7D57: STA ($61),Y ;Place the first character of the variable name 
;In byte O of the ARRAY descriptor 

7D59; BPL $7D5C ;If the variable type is INTEGER, then branch 
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TDSB: 


TDSC: 
TDS5D: 
IDSEs 
1D61:3 
7D63: 


7D64: 


71D65:3 
7D67: 
1D693 
ID6A: 
7TD6B: 
7TD6C: 


ID6E: 
1D70: 
ID72: 
1D74: 


7D76: 
Da 7s 
7D78: 
TIDITA: 
TDTB: 
IDICs 
IDTEs: 


TIDTF: 
7D81: 


1D82: 
1D833 
7D853 
1D88; 
ID8A: 
TD8C: 
TD8E: 
1D90: 


7D92: 


7D94: 


DEX 


INY 
LDA 
STA 
BPL 
DEX 


DEX 


STX 
LDA 
INY 
INY 
INY 
STA 


LDX 
LDA 
BIT 
BVC 


PLA 
CLC 
ADC 
TAX 
PLA 
ADC 
INY 


STA 
INY 


TXA 
STA 
JSR 
STX 
STA 
LDY 
DEC 
BNE 


ADC 


BCS 


$48 


($61),¥Y 


$7D65 


$72 
SOD 


($61),¥Y 


#11 
#0 
SOE 
STD7E 


#1 


#0 


($61),Y 


S7TE3E 
$72 
S13 
$24 
SOD 
S7D6E 


S5B 


S7DFD 


;Subtract 1 from the length of the ARRAY 
;descriptor 

;Move over to Byte 1 of the ARRAY's descriptor 
;Get the second character of the variable name 
;Place it into Byte 1 of the ARRAY's descriptor 
;lf the variable type is a string, then branch 
;Subtract two from the length of the ARRAY 
;element, hereby making the length of the element 
;3 for Strings, 2 for Integers 

;And 5 for Floating Point 

;Save the length of this ARRAY's element 

;Get the number of dimensions of the ARRAY - 1 
;Move the index pointer over to 

;Nominal Byte 4 of the 

;ARRAY descriptor 

;Save the number of dimensions into Byte four of 
;The ARRAY's descriptor 

;System default value for dimensioning LSB of 
;Limit in case the branch below holds true 

;See if the lst character of the variable 

;Name is in DIMFLG and if not, then branch to 
;Bypass obtaining the number of elements off the 
;Stack and use the system default value of 11 
;Get the LSB of the number of dimensions 

;Off of the stack 

;Add one to it 

;And move it into the X register 

;Get the MSB of the number of elements off 

;The stack and add the carry to it 

;Move the index over to nominal Byte 5 of 

;The variable descriptor 

;Save the number of ARRAY descriptor elements 
;Move the index over to nominal Byte 6 of 

;The variable descriptor 

;Move it into the accumulator 

;Save the number of ARRAY descriptor elements 
;Get the size of the multidimensional ARRAY 
;Save the size in HULP in 

;LSB, MSB format 

;Get the index into the ARRAY descriptor 
;Subtract one from the number of dimensions 

;If there are more to process, then branch to 
;Obtain the total number of elements 

;Add the index to the MSB of the ARRAY element 
jaddress 

;Ilf it is out-of-range, then branch to generate 
;An ‘OUT OF MEMORY' error 
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7D96: STA 
7D98; TAY 
71D99:; TXA 
7D9A: ADC 
7D9C: BCC 
ID9SE: INY 
ID9F: BEQ 
TDA1: JSR 
TIDA4: STA 
TDA6: STY 
7DA8: LDA 
IDAA: INC 
7DAC: LDY 
TDAE: BEQ 
TIDBO: DEY 
7DB1: STA 
7DB3: BNE 
TIDB5: DEC 
7TDB7: DEC 
7DB9: BNE 
TDBB: INC 
7JDBD: SEC 
TDBE: LDA 
7IDCO;: SBC 
7DC2:; LDY 


7DC4: STA 


7DC6: LDA 
7DC8: INY 
7IDC9: SBC 
7DCB: STA 
7IDCD: LDA 
7DCF: BNE 


S5B ;Save the End of the ARRAY descriptor 
;Save it into the Y register 
;Move the LSB into the Accumulator 


SSA ;Add it to the ARRAY element address 
S7DA1 ;If there was no overflow, then branch 
;Add one to the MSB and if it is above SFFxx, 
$7DFD ;Generate an 'OUT OF MEMORY' error message 
$5017 ;Check to ensure enough memory 
;(Y = MSB, A = LSB of number of bytes needed) 
$33 ;Save the address 
$34 ;Of the last array 
#$00 ;Fill the area with zeros 
$73 ;Add one to the page pointer (number of pages to 
ea le 
$72 ;Get the offset value in the Y register 
$7DB5 ;If 0, skip this page and do the next one 
;Subtract one from the index register 
(SSA) ,Y ;Fill the page pointed to by $5A/$5B with zero's 
$7DBO ;Continue until this page is done 
$5B ;Continue filling the new array storage area 
swith 
$73 ;Zeros until the page pointer reaches zero 
$7DBO ;Not done, then branch 
$5B ;Decrement the MSB by one 
;Set the carry for subtraction 
$33 ;Get the end of ARRAY storage and subtract the 
$61 ;Start of the array from it 
#$02 ;Index over to the third nominal byte in the 
| ;descriptor 
($61),Y ;And save the address of the next ARRAY 
;Descriptor in nominal byte 3 in the descriptor 
$34 ;Which when added to ARraY TABle 
;It will point to the 
$62 ;Next available descriptor for 
($61),Y ;STREND 
SOE ;Was this routine called by the 
S$7E3D ;BASIC DIM command? If so, then branch to exit 


C-128 BASIC 7.0 Internals 


KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKEKKKKKKKKKKKKKKEK 


+ € €£ + € € &F F 


ARYELM 
ARraY ELeMent 


This routine will check the ARRAY descriptor 


that is pointed to by locations $61, $62 with the 


array that we are searching for by comparing the 
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TDD1: 
7DD2:; 
TDDS: 
TDD7: 
7TDD9: 
7DDB: 
TDDD: 
TDDE: 
TIDDF: 
TDEO: 
7DE2: 
TDES:;: 
TDE7: 
TDE8; 
TDEA: 
TDEC; 


TDEE: 


TDFO: 
IDF1: 
IDF 4: 
TIDF6: 
TIDF8: 


TDFA: 
TDFD: 


number of DIMENSIONS of the array we are searching 
for to the ARRAY we are currently pointing to. 

If the ARRAY element we are searching for is 
greater, then a 'BAD SUBSCRIPT! error will result. 


However, 


if the ARRAY element we are searching for 


executed to calculate the actual element's address 
in RAM BANK 1. 


$4300 
SOD 
#$00 
$72 
$73 


$66 
$4300 
$79 


$67 
$79 
$7E00 


STDFA 


$4300 
$79 
$79 
$7EO1 


$7D25 
S4D3A 


* 
* 
* 
* 
* 
is less than or equal to, then ELMADR will be = 
* 
* 
* 
* 


kKkkkkkkkkkkKkkkkkkkkkk kkk kkkkk kk kkk keke kk kkk kkk kkk kkkk Kk kkk 


;Add one to the index register 

;Get the number of dimensions 

;For the array from the descriptor and save it 
;Clear the 

;Offset to 

;The Array element 

;Add one to the index register 

;Get the index value from the stack 

;And save it into the X register 

;And in the FAC 

;Get the MSB of the Index value 

;From the Array Descriptor 

;Get the MSB of the Index value off of the stack 
;Get the MSB of the Index value 

;That was specified in the ARRAY statement 

;If it is less than, then get the address of the 
;ARRAY element 

;If it is greater than, then 
;Generate a 'BAD SUBSCRIPT' 
;If it is equal to, then 
;Get the number of dimensions from the ARRAY 
;Descriptor and save it. Then compare it to the 
;Element in the ARRAY statement 

;If it is less than, then get the address of the 


error 


;ARRAY Element, else 
;Generate a 'BAD SUBSCRIPT’ error 
;Generate an ‘OUT OF MEMORY' error 


KaKKKKKKKKK KKK KKK KKK KK KKK Kk Kk kkk kkk kkk kkk kkk Kk Kk Kk Kk KK KKK KKK K 


+ + + + &€ F 


This routine is used to actually obtain the address 
of the ARRAY ELEMENT and then places that address 


ELMADR 


Evaluate eLeMent ADdRess 


+ %&© + + + + 
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7EOO: 
7EO1: 
7EO3:3: 
7EO5: 
7EO6;: 
TEO8: 
TEOB: 
TEOC: 
TEOE: 
TEOF: 
7E10:3: 
JE12: 
7E14: 
7E16: 
TE18:3 
JEI1A; 
7E1C: 


TELE: 
TE20: 
TE22; 


TE23: 
TE25: 
TE27: 


7E28:; 
TE293 
TE2B: 
TE2D:3 
7E30: 
JBoas 
7E33: 
7E35:3 
7E36; 
7E38: 


TE3A: 


INY 
LDA 
ORA 
CLC 
BEQ 
JSR 
TXA 
ADC 
TAX 
TYA 
LDY 
ADC 
STX 
DEC 
BNE 
STA 
LDX 


LDA 
BPL 
DEX 


LDA 
BPL 
DEX 


DEX 
STX 
LDA 
JSR 
TXA 
ADC 
STA 
TYA 
ADC 
STA 


TAY 


in locations $49, S$4A (VARPNT). 


The routine then 


* 
exits with the address in the Accumulator and the * 
Y register in LSB, MSB format. . 
* 
* 


$73 
$72 


$7E12 
S7E3E 


$66 


$24 
$67 
$72 
$OD 
$7DDB 
$73 
#5 


$47 
$7E23 


$48 
$7E29 


S2A 
#S00 
S7E49 


SSA 
$49 


SSB 
S4A 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKK KKK KKK KKKKKKK 


s;Move over to the next byte and 

;Check to see if the offset 

;To the ARRAY element 

;Is zero and if it is, 

;Then branch to skip multiplication 

;Get the size of the ARRAY 

;Move the LSB of the size of the ARRAY and add 
;It to the index 

;Move the LSB into the X register and 

;The MSB into the accumulator 

;Restore the index to the 

;ARRAY descripter 

;And save as the new index value 

;Decrement the number of dimensions 

;If it is not equal to zero, then branch 

;Save the MSB of the offset 

;Set the default length of the element to 5 for 
;Floating Point Numbers 

;Get the first character of the variable name 
;If the variable type is not Integer, branch 
;Subtract one from the length of the ARRAY 
;Element (the result is 4) 

;Get the second character of the variable name 
;lf the variable type is a String, then branch 
;Subtract 2 from the length of the ARRAY element 
;Which would make the length of the elements for 
;3 for Strings, 2 for Intergers, and 5 for 
;Floating Point Numbers 

;Elements 2 

;Save the length of the ARRAY element 

;Make the MSB of the length equal to zero 

;Get the address of the ARRAY element 

;Add the address of the ARRAY's 

;Element to the 

;Address of the 

;ARRAY's descriptor 

;And then 

;Save it as the address of the element we were 
;Looking for 

;Place the MSB of the array element in the Y 
;register 
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7E3B: LDA $49 ;Place the LSB of the array element in the 
;accumulator, 
7E3D: RTS ;Then exit this routine with the address left in 


;Locations $49, $4A (VARPNT) 
KKKK KKK KKK KKK KKK KK KK KKK KKK KKKKKKKKKKKKKKKKEKKKKKKKKKKKKKEKK 
UMULT 
Utility MULTplication 
This routine computes the size of a multidimensional 


ARRAY and returns the result in the X and Y 


* 
* 
* 
* 
* 
* 
* 
* registers in LSB, MSB format. 
* 

* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KKK KKK KKK KK KK KK KKK KKK KKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKK 


7JE3E: STY $24 ;Save the index to the array descriptor 
7E40: JSR $4300 ;Get the MSB of the limit 

7E43: STA S2A ;And save it 

7JE45:; DEY ;Decrement the index by one 

7E46: JSR $4300 ;Get the LSB of the array descriptor 
7E49: STA $2B ;And save it 

7E4B: LDA #16 ;Set the number of bits 

7E4D: STA SSF ;To multiply (16) 


TE4F: LDX #300 
7ES1: LDY #500 


TE53: TXA 

7E54;: ASL ;Multiply X and Y * 2 

7TE553; TAX 

TE56: TYA 

TES7: ROL 

TE58: TAY 

7E59: BCS S7DFD ;If there was an overflow, then generate 
;An ‘OUT OF MEMORY' error 

JE5B: ASL $72 ;Shift the high bit 

7JE5D: ROL $73 ;Out of the length of the ARRAY 

TESF: BCC STE6C ;If there was no overflow, then branch to 
;Process the next multiplication 

TE61:3: CLC ;Clear the carry 

TE62: TXA ;Add the LSB 

7E63: ADC S2A ;Of the limit to 'xX' 

7E65; TAX ;Save it back in 'X' 

7E66: TYA ;Move the Y register into the accumulator 

7E67: ADC S2B ;Add the MSB of the limit to 'Y' 

7E69; TAY ;Save it back in 'yY' 

TE6A; BCS S7DFD ;If there was an overflow, then generate 
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TE6C: 
TEG6E: 
TE70: 


TE71: 
7E73: 
TE74:3 
TE76; 
7E78: 
TETA: 
TETC: 


DEC 
BNE 
RTS 


LDA 
ASL 
ADC 
ADC 
LDY 
BCC 
INY 


;An "OUT OF MEMORY' error 
SSF ;Continue until all 
$7E53 716 bits are done 

;Exit the routine 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKKKEKKEKKKKKKKKKKK 


FSTELM 
find the FirST ELeMent 


* 

* 

* 

* 

* 
This routine will take the value that is stored in * 
location $0OD, which contains the number of * 
dimensions minus one that are contained in the * 
ARRAY, multiply that value by two, and add five, * 
which is the number of actual bytes from the first * 
byte of the array descriptor to the number of ig 
dimensions in the array. The routine then adds the * 
result of the above calculations to the address of * 
the ARRAY descriptor and saves the result to * 
locations $5A, $5B. This routine will exit with * 
the Accumulator and the Y register containing the * 
address of the FIRST ARRAY element. = 
* 

For example, if the following BASIC statement were * 
used, the following calculations would result: * 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


10 CLR:DIM A$(10,10) 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* Since there are two dimensions in the ARRAY, a 

* value of two would be found in location $OD. 

* That value is then multiplied by 2 thereby resulting 
* in a product of 4. Next, 5 is added resulting in a 
* sum of 9. The sum of this addition is then added to 
* the address of the ARRAY descriptor. The result 

* is the address that would point to the first array 

* element and is saved to locations $5A and S5B. 

* 

* 


KKK KKK KKK KK KK KKK KK KKKKKKKKKKKKKKKKKKKKKKK KK KKK KKK KKK KKK 


SOD ;Get the number of dimensions 
;Multiply it by two 

#$05 ;Add five to it 

$61 ;And add the address of the array 

$62 

$7E7D ;If there was no overflow, then branch 


;Add one to the MSB 
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7E7D: STA SSA ;Save the point to the array's 

JETF: STY $5B ;First element 

7JE81: RTS 

7E82; .BYTE SFF ;From this point until S$7FFF, these locations 
7JE7D: STA SSA ;Save the pointer to the array's 

JETF: STY $5B ;First element 

7E81: RTS ;Exit the routine 

7E82: .BYTE SFF ;From this point until S$7FFF, these locations 
7FFD: .BYTE SFF ;Are filled with a value of SFF 


KEKKKKKKKKKKKKKKKKKKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


BASICVER 


* 

* 

* 

* This location contains the BASIC ROM version number 

* and currently contains a one at the time of the 

* printing of this book. The extent of the changes 

* between version one and zero are unknown at this time. 
* 
* 


+ + + + HF OF 


KEKKKKKKKEKKEKKKKKKKKEKKKKEKEKKEKKKKEKKKKKKKKKKKKKKKKKKKKKK 


TFFE: .BYTE $01 ;Version number 
TJFFF: .BYTE SFF sFill value 


KKKKKKKEKKKKKEKKEKEKKEKKKEKKEKKEKKKKKEKEKKKKKEKKKKKKKKKKKKKKKKKKKKK 


BASIC FRE FUNCTION 


Function syntax: FRE (X) 


* 
* * 
* * 
* * 
* * 
* NOTE: If X equals zero, then the value returned ~ 
ms represents the number of bytes available for m 
BASIC programs. i 
* * 
x If X equals one, then the value returned * 
* * 
* * 
* * 
* * 


represents the number of bytes available for 
BASIC variable storage. 


KKEKKKKKKKKKEKEKKKKKEKEKEKEKKEKKKEKKKKKKKKKEKKKKKKKKKKKKKEK 


8000: JSR S87F7 ;Convert ASCII to HEX and return the value 
;In the X register 

8003: CPX #1 ;For RAM BANK 1? 

8005: BCC $800C ;Branch if for RAM BANK 0 

8007: BEQ S803A ;Branch if for RAM BANK 1 

8009; JMP $7D28 ;Generate an ‘ILLEGAL QUANTITY' error 
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800C: 
800D; 
8010: 
8013; 
8014; 
8017; 
801A; 


801C: 
SO1E: 
801F: 


8020; 
8022: 
8023; 
8024; 


SEC 
LDA 
SBC 
TAY 
LDA 
SBC 
BCS 


LDX 
INX 
INY 


STA 
TYA 
SEC 
SBC 





KKK KKKKKKK KKK KKK KK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKKKEK 


BASIC FRE(0) FUNCTION 


This routine subtracts the end of the BASIC program 
from the highest address available to BASIC in RAM 
BANK 0. 


+ + + +  F HF 
+ + + * % F 


KEKE KKKEKKKKKKKEKKKKKKKKKKKKKKK KKK KKK KKKKKKKKKKKKKKKKKKK 


;Set the carry for subtraction 
$1212 ;Subtract the TEXT TOP pointers from the 
$1210 ;MAX MEM 0. In other words, subtract 

;The end of your program's address from the 
$1213 ;MAXimum MEMory available, which is normally 
$1211 ;Set to SFFOO 
$8047 ;Always branch, unless MAX MEM O is set 


;To an address that is less than the address 
;Of the BASIC program. If this condition 
;Does exist, then you will see the TRASH CBM 
;Generates below. 


KKKKKKKKKKEKKEKEKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK 


* * 
* This is useless code that CBM left in the ROMs and * 
* will only be executed if MAX MEM O is set to an * 
* address that is less than the address of the BASIC * 
* program. x 
* * 
* * 


KAEKKKKKKKKKKEKKKKKKEKEKKKEKKKKEKKKKKKKKKKKKKKKKKKKKKKKKE 


$35 ;Useless code, will not be executed 
;Unless the conditions as explained 
;Above are met 


KkakkkkKkKkkKkKkKKkKKKKKkKk KKK KKK KKK KKK KKKK KKK KKK KK KKKKKKKKKKKKKEK 


* * 
* This routine will print the message left by CBM. * 
* Enter this routine with the following values: * 
* A = 123, X = 45, and Y = 6. * 
* * 
* * 


KKKKKKKKKKKEKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKK KKK KK KKKKKKK 


$70 ;Save the key value 
;Transfer the second key to the accumulator 
;And subtract 5 

#$05 ;From it 
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8026: STA $71 ;And save it 
8028: LDA $71 ;Get the second key 
802A: EOR SAE37,X ;Generate first seed by 'EOR'ing with memory 
802D: EOR $70 ;Generate the ASCII value by 'EOR'ing 
;With the first key 
802F: BEQ $8075 ;If the value is equal to zero, then finished 
8031: JSR SFFD2 ;Print the character 
8034: INC $71 ;Increment the second key by one 
8036: INX ;Continue until a value of zero is 
8037: BNE $8028 ;Found or until the X register overflows 
8039: RTS SEXIt 


KKEKKKKKKKKKKKEKKKKKKEKKKKKKKKKKEKKKKKKKKKKK KKK KK KK KKK KKKEK 


BASIC FRE(1) FUNCTION 


* * 
* * 
* * 
* This routine subtracts the address that represents = 
* the end of the BASIC variables that are stored, = 
* from the highest address available for BASIC * 
* variable storage to get the amount of free memory is 
* that is in RAM BANK 1. - 
* * 
* * 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKKKKK KK KKK 


803A: JSR S9O2EA ;Perform a GARBAGE COLLECTION to free up any 
;Unused strings etc.. 

803D: SEC ;Set the carry flag for subtraction 

803E: LDA $35 ;Subtract the end of the BASIC ARRAYS from 

8040: SBC $33 ;The bottom of the string storage area. 

8042: TAY 


8043: LDA $36 
8045: SBC $34 
8047: IMP $84C9 ;Convert the value into a floating point number 


KKEKKKKKKKEKKEKKKKKK KKK KKK KKK KKKKKKKEKKKKKKKKKKKK KKK KKKK 
BASIC VAL FUNCTION 
Function syntax: VAL (XS) 


NOTE: X$ = a string consisting of numbers, 
characters, or both 


This routine will take the string that is in 
parentheses and place a delimiter of zero after the 
string. It will then convert the string into a 
Floating Point number in FAC1 and place the address 


+ + + + + + + + FF FF F HF 
+ + + + + + + FF FF FF F 
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804A: 
804D: 
804F: 
8052: 
8053: 
8055: 
8057: 
8059; 
S8O5B: 


805D: 
805F: 


8061: 
8064: 
8065: 
8066: 
8068: 
SOGB: 
806D: 


8070: 


8071: 
8073: 


8075: 


JSR 
BNE 
JMP 
CLC 
ADC 
STA 
LDA 
ADC 
STA 


LDY 
LDA 


JSR 


PHA 


TYA 


STA 


JSR 


LDX 


JSR 


PLA 


LDY 
STA 


RTS 


* of that number in locations $24, $25. If the string * 
* does not contain any numeric characters then a value * 
* 
* 


of zero is returned by the VAL function. is 
* 


KaKKKKKKKKKKKK KK KK KKKKKKKK KKK KKK KKKKKKKKKKKKKKKKKK KKK KK KK 


S866E ;Get the length of string in the accumulator 

$8052 ;If the length is not zero, then branch. 

S$88D6 ;If the length of string is zero, then VAL=0 
;Add the length of the string 

$24 ;To the address of string that is in $24, $25 

$72 ;And save it in locations $72, $73 

$25 ;Which will have $72, $73 pointing 

#0 ;One character past the string 

$73 ;Which is the LSB of the address of the 
;String's descriptor 

#0 ;Index to the LSB of the string descriptor 

#$72 ;Get the pointer to the address 
;Of the string's descriptor 

SO3AB ;Get the LSB of the string descriptor and 
;Save it onto the stack 
;Transfer the delimiter of zero to the 

($72) ,Y ;Accumulator and save it temporarily as the l 
;Last byte of the string 

S8E03 ;Skip any spaces before first letter of digit 


; (this routine uses the actual address of the 
;String that is stored in locations $24, $25) 
#1 ;Set the RAM Bank of where the string is stored 
$8D22 ;Calculate the VALue of the string and convert 
;That value to Floating Point format 


;Get back the LSB of the address of 
;The string's descriptor 
#0 ;Index to the last byte of the string 
($72),Y ;Save the original value back into 
;The string descriptor 
;And exit 


ka kkkk kkk KK KK KKK KKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKR KKK KKKK 


BASIC DEC FUNCTION 
Function syntax: DEC (HEX) 
NOTE: HEX = up to a four-digit hexadecimal string 


This numeric function converts a hexadecimal number 
into the equivalent decimal number. Decimal numbers 


+ + + F F F F F F 
t+ + + F F F FF OF 
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8076: 
8079: 
807B: 
807D: 
8O7F: 
8081: 
8083; 
8085: 
8087: 
808A: 
SO8B: 
808D: 
808F: 
8091: 
8093: 
8095: 
8097: 
8099; 


809B: 
809D: 


809F: 
80A1: 
80A3; 
80A5: 
80A7; 
80A9; 


SOAB: 
80AC; 
8O0AD: 
8OAE: 
8OAF: 
80B1: 
80B2: 
80B4: 
80B6: 
80B7:; 
80B9; 


JSR 
STA 
LDY 
STY 
Sry 
STY 
CPY 
BEQ 
JSR 
INY 
CMP 
BEQ 
INC 
LDX 
CPX 
BEQO 
CMP 
BCC 


CMP 
BCC 


CMP 
BCC 
CMP 
BCS 
SBC 
SBC 


ASL 
ASL 
ASL 
ASL 
LDX 
ASL 
ROL 
ROL 
DEX 
BNE 
BEQ 


+ + + 


are mostly used in BASIC programming, whereas 
hexadecimal numbers are used in machine language 
programming. 


+ + & 


KkKkKKkKkKK KKK KKK KKK KKK KkK KKK KKK KKK KKK KKK KKK KK KK KKK KK KKK KK KKK 


S866E 
$26 
#0 
$27 
$72 
$73 
$26 
$80BB 
$03B7 


#520 
$8083 
$27 
$27 
#5 
$80C2 
#4FQ! 
$80C2 


#re' 
S80A9 


#' a! 
$80C2 
#'g! 
$80C2 
#307 
#S52F 


#504 


$72 
$73 


$80B1 
$8083 


;Get the string parameters 

;Save the length of the string 

;Set the index to the first byte of string 
;Clear the digit counter 

;And clear two areas to hold the 

;Final converted number 

;Compare the length of the string 

;And exit if it is equal to zero 

;Get a byte of the string 

;Increment the index to the next byte 

;Is the character of the string a space? 
;If it is, then branch to get the next char 
;Increment the digit counter by one 

;If there are more than 4 digits 

sin the string 

;Then generate an 'ILLEGAL QUANTITY' error 
sis the character a zero? 

;If the character is less than zero, 

;Then ‘ILLEGAL QUANTITY' error 

;If the character is a digit 

;Between zero and nine, then skip the letter 
;Compare routine 

;If the character is less 

;Than an ‘A’ or greater 

;Than a 'G' 

;Generate an ‘ILLEGAL QUANTITY' error 

;If the character is a letter 

;Then subtract 55 

;if the character is a digit 

;Then subtract 48 

;Multiply the result 

;By 16 


;Set the shift counter for 4 

;Multiply the value by 2 

;And shift any resulting carry 

;Into locations $72, $73 

;Continue until four complete shifts 
;Have been done 

;Continue until all characters are done 
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SOBB: 
SOBD: 
SOBF: 


80C2: 


80C5: 
80C7: 
80C8: 
80CA: 
8OCB: 


SOCE: 


80D1: 
80D4: 
80D6: 
80D8: 
SODB: 
80DC3 
80DD;: 
SODF: 
80E0: 
80E2; 


LDY 
LDA 
JMP 


JMP 


LDA 
PHA 
LDA 
PHA 
JSR 


JSR 


LDX 
LDY 
LDA 
JSR 
TAY 
PLA 
STA 
PLA 
STA 
JMP 


$72 
$73 
$84c9 


$7D28 
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;Get the LSB 

;And the MSB of the final value 

;Convert the value to Floating Point format 
;And exit 

;Generate an ‘ILLEGAL QUANTITY' error 


KKKKKKKEKKKKKKKKEKKK KK KKK KKK KEKKKKKEKKKKKKKKKKKKKKKKKKKEKK 


NOTE: 


x 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


$17 
$16 
S77DA 
$8815 
$03D5 
#0 
#516 
SFF74 


$16 


$17 
$84D4 


Function syntax: PEEK(X) 


a memory location value between 
0 - 65535 


This function returns a value between 0 and 255 

that represents the value stored in the address that 
is being PEEKed. The bank from which the value is 
PEEKed is specified by the BANK command. 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKK KKK KKK 


BASIC PEEK FUNCTION 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


;Save $16, $17 

;Onto the stack 

;For recall after 

;This routine 

;Ensure the value type is numeric 

s;If not, then generate a 'TYPE MISMATCH’ error 
;Convert the value PEEK address to integer 
;format and store it into locations $16, $17 
;Get the BANK # for the peek 

;Zero the index pointer 

;Get the pointer to the PEEK address 

;Get the PEEK value from memory 

;Save it into the Y register 

;Restore $16, $17 

;To their 

;Original 

;Values 

;Change the PEEK value that is stored in the 
;Y register to Floating Point format 
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KaKkKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


BASIC POKE COMMAND 
Command syntax: POKE X, Y 
NOTE: X = the memory address to be POKEd 
Y = the value to be POKEd to the memory 


This function will place the value Y into the 
address specified by X. The bank to which the 
value specified by Y is to be POKEd is set by the 
BANK command. 


t+ + + £  F F F F F F F FF 


* 
* 

* 

* 

* 

* 

* 

address specified by X = 
* 

* 

* 

* 

* 

* 

* 


Kkkekkkkkkkk kkk Ke KeKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK 


80E5: JSR $8803 ;Get the address to POKE to from locations $16, 
;$17 and put the POKE value into the X register 

80E8; TXA ;Save the POKE value to the accumulator 

80E9: LDY #0 ;zero the index pointer 

80EB: LDX #$16 ;Get the pointer to the POKE address 

80ED: STX $12B9 ;Save it 

80FO0;: LDX $03D5 ;Get the BANK number to POKE to 

80F3: JMP SFF77 ;And store value in the memory address specified 


KAKKKKKKKKKKKKKKKKKEKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKK KKK 


BASIC ERRS FUNCTION 
Function syntax: ERRS (X) 


NOTE: If X = 'ER', then the ERRS function will 
print the error that occurred most recently. 


If X = a number from 1 to 41, the ERRS 
function will return the system error 
message that is represented in the operating 
system by that number. 


+ + € € £ F FF € FF FF F HF F 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KEKKKKKKKKKKKKKKKKKK KKK KKKKKKKKKKKKKKKKRKKKKKK KKK KKK KK KK 


80F6: JSR S87F7 ;Get the error number that is in parentheses 
;Into the X register 

80F9: DEX ;Subtract one from the error number 
;To obtain an index value 

8OFA: TXA ;Save the value to the accumulator 
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SOFB: 
8OFD: 
SOFF: 


8102: 


8104: 
8106: 
8107: 
8108: 
810A: 
810C: 
810E:; 
8110; 


8112: 
8113: 


8116: 
8118: 


811A; 
811D: 
811E: 
8120: 
8122: 
8124: 
8127: 
8128: 
812A; 
812C: 
812F:3 
8130: 
8131: 
8133: 


8136: 


CMP 
BCS 
JSR 


LDY 


LDX 
INX 
INY 
LDA 
BMI 
CMP 
BCC 
BCS 


TXA 
JSR 


LDX 
LDY 


STA 
INY 
LDA 
CMP 
BCC 
JSR 
PHA 
AND 
STA 
JSR 
INX 
PLA 
BPL 
JMP 


JMP 


#41 
$8136 
S4A82 
#SFF 


#0 


($26) ,Y 


$8112 
#520 

$8107 
$8106 


$8630 


#0 
#SFF 


SFFO4 


($26) ,Y 


#520 
$811D 
$8139 


#%01111111 
($64) ,Y 


$8139 


$811D 
$85D1 


$7D28 


C-128 BASIC 7.0 Internals 


;If the error number is larger than 40 
;Generate an ‘ILLEGAL QUANTITY' error 

;Find the correct error message and store 

;The address of that error message in $26, $27 
;Set index value to SFF so the INC instruction 
;At $8107 will set it to zero 

;Set the length of the ERROR message to zero 
;Increment the length counter by one 

;And increment index to next byte of error text 
;Get a character from the error message 

;Branch if it's the end of the text 
;If the byte is less than a space, 
,;Get the next character 

;If the character is greater than or equal to a 
;Space, then increment the length counter 

;And the index value 

;Save the length of message to the accumulator 
;Allocate room for the string in RAM BANK 1 
;Using accumulator (length) as a length counter 


skip it and 


;Set index value to SFF so the INC instruction 
;At $8107 will set it to zero 

;Enable RAM BANK 15 with RAM BANK 1 

;Move to the next byte of string 

;Get a byte of the string 

;Is it a space? 

;Skip the byte if it is less than a space 

;Swap the X and Y registers 

;Save the byte of the string onto the stack 
;Drop bit 7 to make the character unshifted 
;And save the character into string memory 
;Restore the X and Y registers 

;Increment the length counter by one 

;Get back the original character from the stack 
;Continue until a shifted character is found 
;Pull the address of the calling routine off of 
;The stack and delete the string descriptor 


;Generate an 'ILLEGAL QUANTITY! error 


KK KKK KKK KKK KKK KKK KKK KK KK KKK KKKKEKKKEKKKEKEKKEKKKEKKKKKKKKKKKK 


* 
* 
* 
* 
* 
* 
* 


* 

SWAPXY * 

* 

This routine is used to swap the contents of the * 
X and Y registers. * 

* 

KKK KKK KKK KKK KKK KH KK KKK KKK KKK KKK KKK KKK KK KKKKKKKKKKKKE KKK KK 
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8139: PHA 
813A: TXA 
813B: PHA 
813C; TYA 
813D: TAX 
813E; PLA 
813F; TAY 
8140: PLA 
8141: RTS 


KkKakkKkKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KK KKK 


BASIC HEXS FUNCTION 
Function syntax: HEXS (xX) 
NOTE: xX = a decimal value between 0 - 65535 


This function will return a four-digit hexadecimal 
value for the decimal value specified by X. The 
decimal value must be greater than or equal to zero 
and less than or equal to 65535 or an 'ILLEGAL 
QUANTITY' error will result. 


+ €£ € € € FF € FF FF FF FF HF 
+ + + + € € € € F F F F 


kKakkkkkkkkkkkkkkkkkkkkkkkkkk kkk kkk kkkkekk kkk kkk kkk kkk kK KKK 


8142: JSR $77DA ;Insures the data type is numeric and if not 
;Then a 'TYPE MISMATCH' error is generated 

8145: LDA $16 ;Save the values stored 

8147: PHA s;In locations $16, $17 

8148: LDA $17 ;Onto the stack 

814A; PHA ;For later use 

814B: JSR $8815 ;Convert the value in parentheses to integer 
;Format and place it in locations $16, $17. 

814E: LDA #504 ;Create a string four characters in length 

8150: JSR $8690 ;Which will be the result of the HEXS function 

8153: LDY #0 ;Zero the index register 

8155: LDA $17 ;Get MSB of value to be converted to a string 

8157: STA SFFO4 ;Enable BANK 15 but with RAM BANK1 enabled 

815A: JSR $816B ;Convert MSB of the value into two HEX digits 

815D: LDA $16 ;Convert the LSB of the value into 

815F: JSR $816B ;Two HEX digits 

8162: PLA ;Restore the 

8163: STA $17 ;Two values 

8165: PLA ;That were previously 

8166: STA $16 ;In $16, $17 
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8168: 


816B: 
816C: 
816D: 
816E: 
816F: 
8170: 


8173: 
8174: 
8176: 
8178: 


817A: 


817C;: 
817E:; 
8180: 
8181; 


JMP 


PHA 
LSR 
LSR 
LSR 
LSR 
JSR 


PLA 
AND 
CMP 
BCC 


ADC 


ADC 
STA 
INY 
RTS 


$85D1 ;Save the string descriptor onto the string 
;Descriptor stack 


FOI II I IKI KI FI II IKI KI I TKI KOK ITI I IK ITI II IK IK IO I TOK TOK Sk kK 
HEXASC 


HEX to ASCii conversion routine 


which is then stored into the the string address 
which is pointed to by locations $64, $65 plus the 


* 
* 
* 
* 
* 
* This routine is used to convert the value that is 
* 
* 
* 
* offset in the Y register. 

* 

* 


* 
* 

* 

* 

* 

* 

in the the accumulator to a two digit ASCII value * 
* 

* 

* 

* 

* 


KKK KI KKK KKK KKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK 


;Save the value to be converted onto the stack 
;Divide by 16 to drop the ones digit 


$8174 ;Convert the 16's digit into ASCII format and 
;Store the result into the address specified 


;Get the original value off the stack 

#SOF ;Drop the 16's digit 

#10 ;Compare the value to ten 

$817C ;And if less then ten, then branch to convert to 
;ASCII and save it into the address specified 

#S06 ;If the value was ten or greater, then add six 
;TO make it into a sixteens digit 

#$30 ;Convert the value to an ASCII value 

($64) ,Y ;And store it into the address specified 


;Increment the index pointer 
;Exit the routine 


KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KEKKKKKKKKKKKKKKKKEK 
BASIC RGR FUNCTION 

Function syntax: RGR(0) 

This function will return the value of the current 


graphic mode. The values and their meanings are as 
follows: 


+ + + + £ € F F 
+ + + + £ F + 
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8182: 


8185: 


8188: 
8189; 
818C: 
818E; 
818F; 
8190: 
8191; 
8192: 
8194: 
8196: 
8198: 
819A: 


JSR 


JSR 


TAY 
JMP 
LDA 
CLC 
ROL 
ROL 
ROL 
ADC 
BIT 
BPL 
ADC 
RTS 


* VALUE MEANING * 
a ees * 
* 0 40 column text mode ~ 
* 1 Standard bitmap mode * 
* 2 Split screen bitmap mode * 
* 3 Multicolor bitmap mode * 
* 4 Split screen multicolor bitmap mode * 
ms 3 80 column text mode i 
* * 
KKEKKKKKKKKK KK KKK KKKEKEKK KKK KEKE KKK KKKKKKRKKRKKKKKKKKRKEEK 
S$77DA ;Check to ensure that the value is numeric and 
;If not then generate a 'TYPE MISMATCH’ error 
$818C ;Find out what graphics mode the computer is 
;In and place that value into the accumulator 
;Place the graphics mode value into Y regsiter 
$84D4 ;Then change it into a Floating Point number 
$D8 ;Get the flag for text / graphics mode 
;Clear the carry 
sMultiply by 8 
#0 ;Place the carry in 
$D7 ;Test flag for 80/40 column mode ($80=80 Column) 
$819A ;Branch if we are in the 40 column mode 
#5 ;Add 5 to indicate 80 column mode 


;Exit 


KKEKKKKEKKKKKKKKKKEKEKKKKEKEKEKKKKEKKEKKKKKKKKKEKKKKKKKKKKKKKKKKKEK 


+ + + +£ + + £ FF + FF FF FF FF FF FF F F F 


follows: 


40 background color 
1 Bitmap foreground 


* 

BASIC RCLR FUNCTION * 

* 

Function syntax: RCLR(X) * 
* 

NOTE: X = a value of 0 - 6 that represents the - 
color source to read the current color = 

value from ii 

* 

This function will return the current color value * 
(1 - 16) of the color source specified by xX. * 
The possible values of X and their meanings are as * 
* 

* 

* 

* 

* 

* 
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819B;: 
819E; 
81Al1: 
81A2: 
81A4; 
81A5; 
81A7: 
81A8: 
81AA: 
81AB: 
S1AD: 
81AE; 
81BO0: 
81Bl1: 
81B3: 
81B4; 
81B6; 


81B9; 
81BC: 
81BE: 


81C1:;: 
81C3: 
81C6: 
81C8; 
81CB: 
81CD: 
81D0; 
81D3: 
81D6: 
81D8: 
81DA; 


81DC: 


81DE: 


81E0: 
81E3: 


JSR 
JSR 
DEX 
BMI 
DEX 
BMI 
DEX 
BMI 
DEX 
BMI 
DEX 
BMI 
DEX 
BMI 
DEX 
BMI 
JMP 


LDA 
AND 
JMP 


LDA 
JMP 
LDA 
JMP 
LDA 
JMP 
LDA 
JMP 
LDA 
BIT 
BPL 


BMI 


LDA 


STA 
LDA 


oO, i B® W ND 


S87F7 
SA845 


$81B9 


$81C1 


$81C6 


$81CB 


$81D0 


$81D6 


$81DE 
$7D28 


$D021 


#%01111111 


$81EC 


$86 
$81EC 
$84 
$81EC 
$85 
S81EC 
$D020 
$81EC 
SF1 
SD7 
S81EC 


S81E6 
#26 


SD600 
SD601 


Multicolor 1 color 

Multicolor 2 color 

40 column border color 

40 or 80 column character color 
80 column background color 


+ + + + FS 


kakkkkkkkkkkkkkkkkkk kk kkk kkk kkk kkk kkk kk KKK KKK KK KKK KK KKK 


;Get the color source in the X register 

;Switch to BANK 15 

;Subtract one if the value was zero and then get 
;The background color 
;If the value was 1, 
7;Color (PIXEL COLOR) 
s;If the value was 2, then get the Multicolor 1 
7;Text or HI-RES color 

;If the value was 3, then get the Multicolor 2 
7;Text or HI- RES color 

;If the value was 4, then get the 40 column 
;Border color 

;If the value was 5, get the character color 

In 40 or 80 column text 

;If the value was 6, then get the 80 column 
;Background color 

;If the value was greater then six 

;Then ‘ILLEGAL QUANTITY ERROR' 

;Get the background color value into accumulator 
;Drop bit 7 

;Convert the background color value into 
;Floating Point format 

;Get the bitmap foreground color and 

;Convert it to a Floating Point format 

;Get the multicolor 1 color 

;Then convert it to Floating Point format 

;Get the multicolor 2 color 

;Then convert it to Floating Point format 

;Get the border color 

;Then convert it to Floating Point format 

;Get the character color 

;See if you are in the 40 or 80 column screen 
;If you are in 40 columns, branch to convert the 
;Character color into Floating Point format 

;If you are in 80 columns, branch to convert the 
;Foreground color into Floating Point format 
;Read the foreground/background color 

;From the 8563 

780 column chip 


get the HI-RES foreground 
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81E6: 
81E8: 


81E9; 
81EC; 
81EE:; 
S1EF: 
81F0: 


81F3; 
S1F6; 
81F9;3 
81FC; 
S1FF; 
8202: 


AND 
TAX 


LDA 
AND 
TAY 
INY 
JMP 





#SOF ;Drop bit's 4-7 (FOREGROUND COLOR) 
;Move the accumulator to the X register 
;As an index pointer 

$81F3,X ;Get the corresponding color value 

#SOF ;Drop bit's 4-7 (FOREGROUND COLOR) 
;Place the color value in the Y register 
;Add one to the color value 

$84D4 ;Convert the value in the Y register into 
;Floating point format and exit 


KKKKKKKKK KEK KK KKK KKK KE KEKKK KKK KEE KKEKKKEKKEKKKKKEKKKKKKKKKKEK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


BYTE 
BYTE 
BYTE 
. BYTE 
.BYTE 
BYTE 


This table is used to convert the RGBI values from 
the 80 column chip to the proper BASIC color code. 


Example: The RGBI value to produce the color RED is 
8. Using that value as an index to the 
data table, the corresponding BASIC color 
code would be 3, which is derived by getting* 


the value from the table and adding one. * 
* 


+ + + + £ FF 


KEKE KK KKK KK KKK KKK KKK KKK KKK KKKKKKKKKKKEKKKEKKKKKKKKKKKKKKK 


$00,$0C, $06 
SOE,$05,S0D 
$0B, $03,$02 
SOA,$08,S$04 
$09,$07, SOF 
$01 


KKK KK KK KKK KK KK IKK KKK KKK KK KKKKKKKKKKEKKKKKKKKKKKKKKKKKK KKK 


* + © + + + £ + FF FF F F FF HF 


If the fire button is pressed, the corresponding 
value above will have 128 added to it. 


* 

BASIC JOY FUNCTION * 

* 

Function syntax: JOY (joyport #) x 
* 

This function will return the current state of the * 
specified joystick port. * 
* 

The values returned by this function are: * 
* 

O = Center 1 = North 2 = Northeast * 

3 = East 4 = Southeast 5 = South * 

6 = Southwest 7 = West 8 = Northwest * 

* 

* 

* 
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* Example: A value of 129 indicates the fire button * 
* is being pressed while the joystick is * 
* held in the North position. * 
* * 
* * 


KKEKKKKKKKKKKKKKKKKKKKKEKEKKKKKKKKKKKKKKKKKKRKKKKK KKK KKK 


8203: JSR S87F7 ;Convert the ASCII joyport number to 
;A HEX value and store it into the X register 

8206: DEX ;Subtract one from the joyport number 

8207: CPX #2 ;If the value is less than 1 or greater than 2 

8209: BCS $823F ;Branch to generate an 'ILLEGAL QUANTITY! error 

820B: TXA ;Save the value into the accumulator 

820C: EOR #%00000001 ;Invert bit 0 

820E: TAX ;Save the value back into the X register 

820F; PHP ;Save the Status Register 

8210: JSR SA845 ;Switch to BANK 15 

8213: SEI ;Stop the background jobs 

8214: LDA SDCOO ;Get the current value of CIA1 Data Port A 

8217: PHA ;Save it onto the stack 

8218: LDY #SFF ;Initialize CIA1 

821A: STY SDCOO 

821D: LDA SDCOO,X ;Wait until the values 

8220: CMP SDCOO,X ;Have . 

8223: BNE $821D ;Stabilized 

8225: TAX ;Save the current value to the X register 

8226: PLA ;Restore the original value 

8227: STA $DCOO ;Of CIA1 

822A: TXA . 

822B: PLP ;Get back the Status Register 

822C: AND #%00001111 ;Drop bits 7-4 to get the Joystick values 

822E: TAY ;Save the value to the Y register as an index 

822F: LDA $823D,Y ;Get the corresponding direction value from the 
; Table 

8232: TAY ;Save it into the Y register 

8233: TXA ;Check to see if the fire button 

8234; AND #%00010000 ;Is being pressed 

8236; BNE $823C ;If not, then exit 

8238: TYA ;Add 128 to Joystick direction value 

8239: ORA #$80 ;To indicate that the fire button 

823B: TAY ;Is pressed 

823C: JMP $84D4 ;Convert the final value to Floating Point 
;Format and exit 

823F: IMP $7D28 ;Generate an ‘ILLEGAL QUANTITY' error 
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8242: 
8245; 
824A; 
824D;: 


824D: 


8250: 


8253: 
8254: 
8256: 


8258: 
825B: 
825D: 





KKEKKKKKKKKKK KKK KKKEKEKKKKKKKEKKKEKKKKKEKKKKKKKKKKKKKKKKKKKEK 


* * 
* This table is used by the JOY (X) function above to * 
* generate the corresponding HEX joystick direction * 
* values. x 
* * 
KKKK KKK KKK KKK KKK KKK KKK KKKKKKKEKEKKKKEKKEKKKKKKKKKKKKKKKK 


~-BYTE $04,$02,$03 ;SE, NE, E 
~-BYTE $00,$06,$08 ;Center, SW, NW 
-BYTE $07,$00,$05 ;W, Center, S 
-BYTE $01,$00 ;N, center 


KKKKK KKK KKK KK KKK KK KEKE KKKKEKKKKEKKKKKKKKEKKKKKKK KK KKK KK KKK 
BASIC POT FUNCTION 
Function syntax: POT (XxX) 


NOTE: If X = 1, then POT returns the position value 
of paddle number one. 


If X = 2, then POT returns the position value 
of paddle number two. 
of paddle number three. 


If X = 4, then POT returns the position value 
of paddle number four. 


This function returns the position value of the 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* If X = 3, then POT returns the position value 
* 

* 

* 

* 

* 

* 

* paddle number specified by xX. 
* 

* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KHKKKKKKKKKKHK KEKE KKK KEKKEKKEKKKKKEKKKKKKKKEKKKKKKK KKK KKK 


JSR $7956 ;Check for the closing parenthesis ')', if it is 
;Not found, then generate a 'SYNTAX' error 

JSR S87F7 ;Convert the Paddle number to a hex value and 
;Store it into the X register 

DEX ;Subtract one from the Paddle number 

CPX #504 ;If the Paddle number is less than 1 

BCS S$82AB ;Or Greater than 4, then generate 
;An ‘ILLEGAL QUANTITY' error 

JSR SA845 ;Switch to BANK 15 to switch the I/O in 

LDY #0 ;Clear the index to the Paddle register 

TXA ;Transfer the Paddle number minus 
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825E: 
8260: 


8261; 
8263: 
8264; 
8265: 
8267: 
8269: 
826C: 
826D: 
826E: 
8271: 
8272: 
82753 
8277: 
8278: 
827A: 
827D: 
8280: 
8282: 
8285; 
8287: 
828A: 
828C:; 
828D: 
828F: 
8290; 
8292; 
8293: 
8295; 
8298; 
8299; 
829C; 
829E: 
82 9F ; 
82A0; 
82A3: 
82A4: 
82A7: 
82A8: 
S2AB: 


LDX 
LSR 


BCC 
INY 
LSR 
BCC 
LDX 
STX 
PHP 
SEI 
LDA 
PHA 
STX 
LDX 
INX 
BNE 
LDA 
CMP 
BNE 
STA 
LDX 
BIT 
BMI 
INX 
LDA 
DEY 
BMI 
ASL 
LDY 
STY 
INY 
AND 
BNE 
INY 
PLA 
STA 
TYA 
LDY 
PLP 
JMP 
JMP 


#540 


$8264 


$8269 
#$80 
$12B1 


SDCOO 


SDCO0O 
#0 


$8277 


$D419,Y 
$D419,Y 


S827A 
$12B2 
#0 

$12Bl 
$828D 


#504 


$8293 


#SFF 
SDCOO 


SDCOO,X 


$82 9F 


SDCOO 


$12B2 


$84C9 
$7D28 


;One to the accumulator 

;Value for Paddle set A (Port #1) 

;Divide the Paddle number by 2 to calculate 
;The correct register number 

;I1f POT number is equal to 1 or 3, then branch 


;if POT number is equal to 1 or 2, then branch 
;Value for Paddle set B (Port #2) 

;Save i ($40 = Paddle set A,$80 = Paddle set B) 
;Save the Status register 

;Stop all the background operations 

;Save the current value of CIA1 

,;Onto the stack 

;Select the proper Paddle register to read 
;Delay loop 

;For the stabilization 

;Of the values 

;Wait until the values 

;Have stabilized 


s;Save the current Paddle value 


;Check which paddle set 

;If it is set B, then branch 

;Increment the index by one 

;Bit number of Fire button 

;Pot register number 

;If it is set A, then branch 

;Multiply the value by 2, if it is set B 
;Initialize 

;CIA1 

;To zero 

s;Mask to check the Fire button 

;If the Fire button is pressed, then branch 
;The value will be 1 if button is not pressed 
;Get the original value of CIA1 from the stack 
s;Store it to CIA1 

;Save the Y register to the accumulator 

;Load the paddle register value into Y register 
;Restore the flags 

;Convert value to Floating Point format and exit 
;Generate an ‘ILLEGAL QUANTITY' error 
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82AE: 


82Bl1: 
82B4: 
82B6: 
82B8: 
82BA: 
82BC; 
82BF:; 
82C2: 
82C4: 
82C7: 
82C9; 
82CB: 
82CE: 


82D0: 
82D3: 


JSR 


JSR 
CPX 
BCS 
CPX 
BCS 
LDY 
poy bg 
LDA 
STA 
CPX 
BNE 
ASL 
ADC 


LDY 
JMP 


KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKKKKKEKKKKKEKKKKKK 


BASIC PEN FUNCTION 
Function syntax: PEN (X) 


NOTE: If X = 0, then PEN returns the value of the 
X coordinate of the light pen position. 


If X = 1, then PEN returns the value of the 
Y coordinate of the light pen position. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* If X = 2, then PEN returns the value of the 
* X coordinate of the 80 column display. 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


If X = 3, then PEN returns the value of the 
Y coordinate of the 80 column display. 


If X = 4, then PEN returns the value of the 
light pen trigger. 


This function returns the current X & Y coordinates 
of the Light Pen. 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KKKKKKKKKKKKKEK 


$7956 ;Check for a closing parenthesis ')' 
;And if it is not found, then generate a 
; 'SYNTAX' error 


S87F7 ;Get the mode value into the X register 
#5 ;Ilf the value is larger than 4, 
S82AB ;Then generate an 'ILLEGAL QUANTITY' error 
#502 ;If the mode value is larger than 1, then 
$82D6 ;Branch to get the values for 80 column screen 
$11E9,X ;Get the current Light Pen X or Y coordinate 
$12Bl1 ;Save it 
#0 ;Reset the current X or Y coordinate 
$11E9,X ;ToO zero 
#0 ;lf the Y coordinate was selected, 
$82D0 ;Then branch 
$12B1 ;If the X coordinate was selected, then 
#0 ;Multiply the coordinate by 2 and add 
;The carry ,if any, to the accumulator 
$12Bl ;Get the coordinate 
$84C9 ;And convert Y, A (LSB,MSB) to Floating Point 


;Format and exit 


398 


Abacus Software 


C-128 BASIC 7.0 Internals 





82D6: 
82D9: 
82DB: 


82DD: 


82DF: 
82E1: 
82E3: 


82E4: 
82E7: 
S2EA: 


82ED: 
82F03; 
82F2: 
82F4:;: 
82F6; 
82F7; 


JSR 
CPX 
BEQ 


LDY 


CPX 
BEQ 
DEY 


STY 
LDY 
JMP 


LDA 
LDY 
AND 
BEQ 
INY 
JMP 


$SA845 
#504 
$82ED 


;Switch to BANK 15 
;Branch to read the 
;Current Light Pen trigger value 


KK KKK KK KKK KEK KK KK KKK KKK KKK KKK KKK KKKKEKKEKEKKKEKKKK KK KKK KKK KKK 


* 
* 
* 
* 
* 
* 
* 
* 


This routine is used to read the Light Pen 
values for the 80 column screen. 


coordinates instead of the pixel coordinates. 


* 

* 

* 

* 

NOTE: The values returned are the row and column i 
* 

* 

* 


#$11 


#502 
S82E4 


$D600 
$D601 
$84D4 


Fe KKK KKK KH KK KK KK KKK KKK IKK KKK KKK KKK KKK KKK KKK KKKKKKKKKK 


;Select Register 17 of the VDC for the 

;Light Pen X coordinate 

;Check if the X coordinate was selected 

;If so, then branch to read the X coordinate 

;If not, then select Register 16 of the VDC for 
;The Light Pen Y coordinate 

;Select the Register 

;Read the current value from the Register 
;Convert value to Floating Point format and exit 


KK KKK IKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKK KKK 


* 


* 


* 


* 


* 


This routine is used to read the trigger value * 
of the light pen. x 


* 


HK KK KKK KKK KK KK KK KK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KKK 


$Dé600 
#0 


#%01000000 


S$82F7 


$84D4 


;Get the value of the trigger 

;Value for trigger not pressed 

;Check if trigger is pressed 

;If not, then exit with a zero 

;If trigger is pressed, 

;Then exit with a 1 to denote that the 
;Trigger is pressed 
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8S2FA: 
82FD: 


8300: 
8303: 
8305: 


8308: 
8309: 
830A: 
830B: 


830E: 
830F; 
83.10% 
8311: 
8313: 


8315; 
8317: 
8318: 
831B: 


JSR 
JSR 


JSR 
BCC 
JSR 


TAX 
TYA 
PHA 
JSR 


TXA 
TAY 
PLA 
CMP 
BNE 


LDA 
TAY 
JMP 
JMP 





KKKKKKKKKK KKK KKKKKKKKKKKKKEKKKKKKKKKKEKEKKKKKKKKKKKKKKKKKKKEK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


BASIC POINTER FUNCTION 


Command syntax: POINTER(var.) 


NOTE: var. = the name of the variable of which the 


the address is to be found 


This function returns the decimal representation of 
the address of the variable specified by 'var.'. 


The address that is returned by the POINTER command 
is the address of the variable's descriptor in 
RAM BANK 1. 


KKK KK KKKKK KK KKK KKK KKK KKK KKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
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$0380 ;Get the first character after the command 
$7959 ;Check for an opening parenthesis '(' and if it 
;Is not found, then generate a 'SYNTAX' error 
$7B3C ;Check if the first character in parentheses is 
$831B ;A letter. If not then generate a 'SYNTAX' error 
STAAF ;Search for the variable and return with 
;The A,Y registers containing the LSB,MSB of the 
Address to the variable's descriptor in BANK 1 
;Temporarily save the LSB into the X register 
;Save the MSB of the address 
;Onto the stack 
$7956 ;Get the last char. and if it is not a closing 
;Parenthesis ')', then generate a 'SYNTAX' error 
;Restore the LSB into the accumulator 
;And move it into the Y register 
;Get the MSB of the address of the descriptor 
#503 ;Check if the variable was TI, TIS, DS, or DS$ 
$8318 ;If not, convert the address of the descriptor 
;into Floating Point format 
#0 ;Return a zero value 
;If TI or TIS was selected 
$84C9 ;Convert Y,A to Floating Point Format and exit 
$796C ;Generate a 'SYNTAX ERROR' 
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831E: 


8321: 
8322: 
8324: 
8326: 
8327: 
8328: 
832B: 
832E:; 
8331: 
8333: 


JSR 


DEX 
CPX 
BCS 
TXA 
PHA 
JSR 
JSR 
JSR 
CPX 
BCS 


KKKKKEKKEKKKKKKKKKKKKKEKKKKEKKEKEKEEKEKEKKKKKKKKEKKK KKK KKK KKK KE 


* * 
* BASIC RSPRITE FUNCTION - 
* * 
* Command syntax: RSPRITE(spr#,char) * 
* * 
* NOTE: spr# = sprite number * 
= char = characteristic value * 
* * 
* This function will return information about the * 
* characteristic specified by 'char' of the sprite * 
* whose number is specified by 'spr#'. The value of x 
* the sprite number is between 1 - 8 and the x 
* characteristic value is between 0 - 5. The meaning * 
* of the characteristic value is as follows: x 
* * 
* CHARACTERISTIC MEANING OF VALUE . 
* VALUE RETURNED BY RSPRITE * 
Fo mmm mm aa se a a ca SD ce SS ce OE ce SD Se ee * 
* 0 Sprite enabled (1), disabled (0) * 
* 1 Sprite color (1 - 16) * 
* 2 Displayed in front of (0) * 
* or behind (1) the other objects * 
* displayed on the screen * 
* 3 Expand in the X direction (y=1, n=0) * 
* 4 Expand in the Y direction (y=1, n=0) * 
* 5 Multicolor sprite (y=1, n=0) * 
* * 
* NOTE: This function has a flaw in that, even though * 
* there are only eight sprites available on the * 
* 128, a value from 1 to 16 may be specified * 
* for the 'spr#' parameter. * 
* * 
KIKKKKKKKKKKKKKKE KKK KKK KK KEKKKKEKKKEKKKEKKKEKEKKKKKEEKKKKKEEKEK 


$87F7 


#$10 
$8358 


$795C 
S87F4 
$7956 
#$06 

$8358 


;Convert the sprite number to an integer and 
;Store the value in the X register 

;Subtract one from the sprite number 

;If the sprite number is larger 

;Than 16, then 'ILLEGAL QUANTITY' error 
;Save the sprite number 

;Temporarily to the stack 

;Check for a comma after the sprite number 
;Get the second parameter into the X register 
;Check for a closing parenthesis ')' 

;If the second parameter is larger 

;Than 5, then 'ILLEGAL QUANTITY' error 
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8335: PLA ;Get the sprite number off of the stack 

8336: TAY ;And transfer it to the Y register 

8337: JSR SA845 ;Switch to BANK 15 

833A: LDA $D027,Y ;Get the color value of the specified sprite 

833D: AND #50F ;Drop the high nybble 

833F: CLC ;OF the color value and add one to that value 

8340; ADC #1 ;To get the BASIC color code value 

8342: CPX #1 ;If the second parameter was 

8344; BEQ $8354 ;A one, then exit 

8346: LDA $835B,X ;Get the offset to the specified sprite 

8349; TAX ;Characteristic and save it as the index 

834A: LDA $6CB3,Y ;Get appropriate mask value for the specified 

834D: AND $DO00,X ;Sprite and drop the unwanted bits 

8350: BEQ $8354 ;If the value is zero, then exit 

8352: LDA #1 ;Ilf the value is greater than zero, then make 

8354: TAY ;The value equal to one 

8355; JMP $84D4 ;Convert the value to Floating Point Format 
;And exit 

8358: JMP $7D28 ;Generate an 'ILLEGAL QUANTITY' error 


KKKKKKKK KKK KKKKEKKKEKKKKKKKEKKKKKEKKKKKKKEKKKKKKKK KKK KK KRKKK 


TABLE FOR RSPRITE 


of the sprite characteristics. The MSB of the 
address is $DO. 


+ + + + + + F 


* 

* 

* 

This table contains the LSB of the address for each * 
* 

* 

* 

* 


KKEKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKKKKKKKK KKK KKK 


835B: .BYTE $15,$27,$1B 
835E:; .BYTE $1D,$17,$1C 


KK KKK KK KKK KKK KKK KKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKRKEK 
BASIC RSPCOLOR FUNCTION 
Command syntax: RSPCOLOR (xX) 


NOTE: If X equals one, then RSPCOLOR returns the 
sprite multicolor 1 value 


If X equals two, then RSPCOLOR returns the 
sprite multicolor 2 value 


+ + + + + &€ + FF HF F 
+ + + + + + + HF F F 
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8361: 
8364: 
8367: 
8368: 
836A: 
836C: 
836F: 
8372: 
8374: 
8375: 
8376: 


8379: 


837C: 
837F: 
8382: 
8383: 
8385: 
8387: 
8388; 
838B: 


JSR 
JSR 
DEX 
CPX 
BCS 
JSR 
LDA 
AND 
TAY 
INY 
JMP 


JMP 


JSR 
JSR 
DEX 
CPX 
BCS 
SEI 
LDY 
LDA 


* This function returns a value of 1 to 16 that * 
* represents the multicolor 1 or multicolor 2 value * 
* as specified by the value of X. - 
* * 

* 


KK KKK KK KKK KKK KKK KKK KKK KK KK KKK KKK KKKKKKKKEKKKKKKKKKKKKKKEKE 


$7956 ;Check for an opening parenthesis '(' 

S87F7 ;Get the parameter into the X register 
;Subtract one from the value 

#$02 ;If the parameter is less than 1 or greater 

$8379 ;Than 2, then ‘ILLEGAL QUANTITY' error 

SA845 ;Switch to BANK 15 

$D025,X ;Get the current multicolor value 

#SOF ;And drop the high nybble of the color value 


;Add one to the color value 
;To make the BASIC color code 


$84D4 ;Convert the color value to Floating Point 
;Format and exit 
$7D28 ;Generate an ‘ILLEGAL QUANTITY' error 


KKK K KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KEKKEKEKKKEKKKKKKKKKKKKKKEK 


BASIC BUMP FUNCTION 
Function syntax: BUMP (X) 


NOTE: If X equals one, then the value returned by 
BUMP represents which sprites, if any, have 
collided with each other. 


If X equals two, then the value returned by 
BUMP represents which sprites, if any, have 
collided with an object on the screen. 


This function returns sprite collision information 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* as specified by the value of X. 
* 

* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KKK KK KKK KK KKK KKK KKK KKK KK KKK KK IKKE KEKKEKKEKKKKKEKKKKKKKKEKK 


$7956 ;Check for an opening parenthesis '(' 

S87F7 ;Get the parameter into the X register 
;Subtract one from the value 

#$02 ;If the parameter is less than 1 or | 

$8394 ;Greater than 2, then 'ILLEGAL QUANTITY' error 
;Disable the background operations 

$11E7,X ;Get the current sprite collision value 

#0 ;Clear the register 
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838D: 
8390: 
8391: 


8394: 


8397: 
839A: 
839B: 
839D; 
839F; 
83A0; 
83Al1: 
83A4: 
83A7; 
83AA;: 
83AC; 


STA 
CLI 
JMP 


JMP 


JSR 
DEX 
CPX 
BCS 
TXA 
PHA 
JSR 
JSR 
JSR 
CPX 
BCS 


$11E7,X ;After reading it 
;Restart the background operations 

$84D4 ;Convert the collision value into Floating Point 
;Format and exit 

$7D28 ;Generate an ‘ILLEGAL QUANTITY' error 


KKK KKKKEKKKKEKEKKKKEKKKKKKKKKKK KK KKK KKK KKK KK KKK KKK KKK KK KEK 


BASIC RSPPOS FUNCTION 
Function syntax: RSPPOS (spr#,P) 


NOTE: If P equals zero, then RSPPOS returns the 
current X coordinate of the sprite specified 
by the value of 'spr#'. 


* 

* 

* 

* 

* 

* 

* 

* 

If P equals one, then RSPPOS returns the bs 

current Y coordinate of the sprite specified * 

by the value of 'spr#'. ia 

* 

* 

speed value (0-15) of the sprite specified * 
by the value of 'spr#'. 


This function will return speed and position 
information of the sprite specified by the value of 
'spr#'. 


RSPRITE function does, in that even though 
there are only eight sprites available with 
the 128, a value from 1 to 16 may be 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
id If P equals two, then RSPPOS returns the 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
. specified for 'spr#'. 
* 
* 


* 
* 

* 

* 

* 

* 

NOTE: This function has the same flaw that the . 
* 

* 

* 

* 

* 

* 


kakkkkkkkkkkkkkkkkkkkkkkkKKekKeKKk KK KKK KKK KKK KKKKKKKKKKKKK 


S87F7 ;Get the sprite number into the X register 
;Subtract one from the sprite value 

#$10 ;If the sprite number is less than 1 or 

$83DE ;Greater than 16, then 'ILLEGAL QUANTITY' error 


;Temporarily save the sprite number 


;Onto the stack 
$795C ;Check for a comma 
S87F4 ;Get the second parameter into the X register 
$7956 ;Check for a closing parenthesis ')' 
#503 ;If the second parameter is greater 
$83DE ;Than 2, then ‘ILLEGAL QUANTITY' error 
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83AE; 
83AF; 
83B0:; 
83B2: 
83B4; 
83B7: 
83BA;: 
83BD: 
83BE; 
83C1; 
83C4: 
83C6: 
83C8: 
83C9: 
83CA: 
83CB: 
83CC; 
83CD;: 
83CE; 
83D0: 
83D1:;: 
83D2; 
83D4; 
83D5: 
83D8:; 
83D9: 
83DA: 
83DB: 
83DE: 


83E1; 
83E3; 
83E4: 
83E6; 


LDA 
PHA 
LDA 
PHA 


;Get the sprite number back 
,;Off of the stack 
#$02 ;If the second parameter is not equal to 2, 
$83BD ;Then branch to get the sprite coordinates 
S$6DD9,Y ;Get the index to the specified sprite 
S117E,X . ;Get the speed value of the specified sprite 
$84D4 ;Convert it to Floating Point Format and exit 
;Stop all background operations 
$6CB3,Y ;Get the mask for the specified sprite 
$11E6 ;See if the X coordinate is larger than 255 
$83C8 ;And branch if it is not 
#1 ;If it is larger than 255, then save a one 


;As the MSB of the X coordinate value 


;Multiply the sprite number by 2 
;And save it 
;As an index to the sprite coordinate 
;Divide the second parameter by 2 
$83D5 ;And branch if we are need the X coordinate 
s;Increment the index to the Y coordinate 
;Remove the X coordinate MSB from the stack 
#0 ;And replace it 
;With a zero 
$11D6,Y ;Get the LSB of the sprite's coordinate 
;And restart all of the background operations 


;Save the coordinate's LSB to the Y register 
;And save the MSB to the accumulator 
$84C9 ;Convert the value to Floating Point and exit 
$7D28 ;Generate an 'ILLEGAL QUANTITY' error 


KK KKK KK KKK KK KK KKK KKK KKK KKK KKK KKK KEK KEK KEKE KKKKKKKKEKKKKKKKKK 


BASIC XOR FUNCTION 


Function syntax: XOR (x1,x2) 


This function returns a value that is equal to the 


* * 
* * 
* * 
* * 
* * 
* NOTE: x1, x2 = an unsigned value between 0 - 65535 * 
* * 
* * 
* value of 'x1' eXclusive ORed with the value of 'x2'. * 
* * 
* * 


KKK KK KIKI KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KKKKEKKKKKKEKK 


$16 Save these 
;Two values 
$17 ;Temporarily 


;Onto the stack 
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83E7: 
83EA: 


83ED: 
83EE: 
83EF: 
83F0: 
83F3: 
83F6: 
83F7: 
83F9; 
83FA: 
83FB: 
83FD: 
8400: 
8401: 
8403: 
8404; 
8406: 


8407: 
840A: 
840D: 


JSR 
JSR 


PHA 
TYA 
PHA 
JSR 
JSR 
PLA 
EOR 
TAY 
PLA 
EOR 
JSR 
PLA 
STA 
PLA 
STA 
RTS 


JSR 
JSR 
CPX 





S$77DA ;Check on numeral 

$8815 s;Get the first value into the accumulator and 
;The Y register 
;Save the 
;Two values 


;Onto the stack 
S880F ;Check for a comma and get the second value 
$7956 ;Check for a closing parenthesis ')' 

;Get the LSB of the first value and ex- 
$16 ;clusive OR it with the LSB of the second value 


;Save the result to the Y register 


;Get the MSB of the first value and exclusive 
$17 ;OR it with the MSB of the second value 
$84C9 ;Convert the result to Floating Point Format 
;Restore locations $16, $17 
$17 ;To their 
;Original 
$16 ;Values 


s;And exit 


KKEKEKKKEKKKKEKKKKKRKKKKEKKKKKEKKKKKKKEKKKKEKKKEKEKKKEKKKEKKKKKKKKKKKK 


BASIC RWINDOW FUNCTION 
Function syntax: RWINDOW (xX) 


NOTE: If X equals zero, then RWINDOW returns a 
value that represents the number of lines in 
the current window. 


* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 
id If X equals one, then RWINDOW returns a * 
= value that represents the number of rows in al 
* the current window. x 
* * 
* If X equals two, then RWINDOW will return a * 
= value that of 40 if you are in the 40 column * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 


mode or a value of 80 if you are in the 80 
column mode. 


This function returns dimension information about 
the current window. 


KEKKKKEKKKEKKEKKKKKKKKEKKEKEKKKEKKKKKEKKEKKKKEKKKKKKKKKKKKKKKKEKK 


$7956 ;Check for a closing parenthesis ')' 
S87F7 ;Get the parameter into the X register 
#$02 ;Branch if the parameter is equal to 2 
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840F: 
8411: 


8413: 
8415: 


8417: 
8419: 
841A: 


841C: 
841E: 
8420: 
8421: 


8423; 
8425: 
8427: 
8429; 
842B: 
842D: 
842E: 
8431; 


BEQ 
BCS 


CPX 
BNE 


LDA 
SEC 
SBC 


BCS 
LDA 
SEC 
SBC 


BCS 
LDA 
Bit 
BPL 
LDA 
TAY 
JMP 
JMP 


$8425 
$8431 


#0 
$841E 


SE4 


SES 


$842D 
SE7 


SE6 


$842D 
#$28 
SD7 
$842D 
#$50 


$84D4 
$7D28 


C-128 BASIC 7.0 Internals 


;To get the current screen output format 
;If the parameter is greater than two, 

; "ILLEGAL QUANTITY' error 

;If the parameter is equal to one, 

;Then branch to get the number of columns 
jIn the current window 

;Subtract the upper limit of the window 
;From the lower limit of the window 

;To get the number of rows minus one 

;Of the current window 

;And exit 

;Subtract the right margin of the window 
;From the left margin of the window 

;To get the number of columns minus one 
;Of the current window 

;And exit 

;Value of 40 for the 40 column mode 

;Are we in the 40 or 80 column mode 
;Exit with 40 for the 40 column mode 
;Value of 80 for the 80 column mode 


;Move the value to the Y register for conversion 


;Convert the value to Floating Point Format 


;Generate an 'ILLEGAL QUANTITY' error 


KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKKKEKKEKKKKKKKKKKKKKKKEK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


Function syntax: 


NOTE: 


BASIC RND FUNCTION 
RND (X) 


If X is positive, the next RND value is 
generated by multiplying the seed value by 
the multiplication constant for RND (RMULC), 
adding the addition constant for RND (RADDC), 
and then scrambling the resulting bytes. 


If X is negative, the value of X is scrambled 
and the resulting value then becomes the new 
seed. This allows duplication of the random 
numbers that are generated. 


+ € + + &€ € € € FF F FF FF F FF F HF F 


If X is equal to zero, the four bytes of the 
Floating Point accumulator are loaded with the* 
LSB and MSB of CIA1 TIMER A and the seconds & * 


tenths of a second clock registers of CIAl1. * 
* 


Ke KK KK KK KKK KK KKK KKK KKK KKK KKK KKEKKKKKKKKKKKK KKK KK KK KKK EK 
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8434: 


8437: 


8439; 


843B: 
843E;: 
8441; 
8443: 
8446; 
8448; 
844B: 
844D; 
8450: 
8452: 
84553 


8457: 
8459; 
845C: 
845E: 
8460: 


8463: 
8465: 
8467: 
846A: 
846C: 
846E: 
8470: 
8472: 
8474: 
84763 
8478: 
S47A: 
847C; 
847E: 
8480: 
8482; 
8484; 
8486: 
8489; 
848B: 
848D;: 


JSR 


BMI 


BNE 


JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JMP 
LDA 


LDY 
JSR 
LDA 
LDY 
JSR 


LDA 
LDY 
JSR 
LDX 
LDA 
STA 
STX 
LDX 
LDA 
STA 
STX 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
LDX 
LDY 
JMP 


$8C57 


S846A 


$8455 


SA845 
SDCO06 
$64 
$DCO7 
$66 
SDCO4 
$65 
$DCO5 
$67 
S847A 
#$1B 


#$12 
S8BD4 
#$90 
#$84 
$8A08 


#$95 
#$84 
$8A12 
$67 
$64 
$67 
$64 
$65 
$66 
$65 
$66 
#0 
$68 
$63 
$71 
#$80 
$63 
S88B6 
#$1B 
#$12 
$8C00 


;Get the sign of the Floating Point accumulator 
; (FAC1) 

;lf it's negative, then branch to use the 
;Parameter as a seed value 

;If it is greater then 0, then branch to use the 
;Old seed value 

;Switch to BANK 15 

;Get CIA #1 timer B LSB 

;Save it 

;Get CIA #1 timer B MSB 

;Save it 

;Get CIA #1 timer A LSB 

;Save it 

;Get CIA #1 timer A MSB 

;Save it 

;Round it off and assign it to a variable 

;Set the accumulator and Y register to point 
;To RNDX ($121B) 

;Which holds the current seed value 

;And store the seed value in the FAC1 

;Set the accumulator and Y register to $8490 
;Which holds the constant for the RND factor 
;Multiply the value by FAC1 

; (FAC1L = FAC1 * CONSTANT) 

;Set the accumulator and Y register to $8495 
;Which holds the second constant for RND 

;Add the value to FAC1l (FAC1 = FAC1 + CONSTANT) 
;Reverse FAC1, by moving M4 

;To M1 


7;M1 to M4 
;M3 to M2 


;And M2 to M3 

;Make the sign of the Floating Point accumulator 
; (FAC1) positive 

7Use the current exponent of FAC1 

;As the rounding value 

;Make the exponent of FAC1 

sEqual to -1 

;Round off FAC1 

;Set up the X and Y registers 

;ToO point to location $121B 

;Store the value of FAC] to $121B and exit 
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KKKKKKKKKKKKKEKKKKKKKKKKEKKEEKKKKEKKKKKKKKKEKKKKKKKKKKKKKKKK 


RMULC 
Random MULtipication Constant 
The constant value in this table is stored in 


Floating Point format and is used as a multiplier to 
the seed value for obtaining the next RND value. 


+ + + € € FF FF HF 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KEKKKIK KKK KKK KK KKK KKK KKEKKKEKKKKKEKEKKKKEKKEKKKKKKKKKKKKKKKKK 


EX Ml M2 M3 M4 


8490; .BYTE $98,$35,$44,S7A,$00 ;11879546 
KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKEKKKKEKKKKKKKKKKKKKEK 
RADDC 
Random ADDition Constant 
The constant value in this table is stored in 


Floating Point format and is added to the seed 
value in the process of obtaining a RND value. 


+ + + + + FF FF HF F 


* 
* 
x 
* 
* 
x 
# 
* 
x 
x 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKEKKKKKKKKKKKKKKKK 


EX Ml M2 M3 M4 


8495: .BYTE $68,528,$B1,$46,$00 ;3.92767774E-4 


KKK KK KKK KKK KK KKK KKK KKK KKK KKKKKKAKKKKKEKKKKKKKKKKKKKKKKKKKKK 


N32768 


Negative value of 32768 


checking during the process of converting a Floating 
Point number to a signed integer. The minimum 


* * 
* * 
* * 
* * 
* * 
* This Floating Point number is used for range * 
* * 
* * 
* allowable value is -32768. = 
* * 
* * 


KKK KK KKH KK KKK KK KKK KKK KKK KKEKEKKKKEKEKKKKKKKKKKKKKKKKKKK 
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849A: 


849F;: 


84A2: 
84A4: 
S84A6: 


84A7; 
84AA: 
84AD: 
84BO: 
84B2; 


EX Ml M2 
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M3 M4 


.BYTE $90,$80,$00,$00,$00 ; -32768 


JSR 


LDA 
LDY 
RTS 


JSR 
JSR 
JSR 
LDA 
BMI 


KI KKEKKKKKKKKKKKEKKEKKEKKKKEKKKKEKKKKKKKEKKKKEKKEKKKKKKKKKKKKEKK 


Convert a Floating Point Number into a signed 
INTeger. 


in FAC1. 


KKKKKKKKKEKKKKKKKKEKKKEKKKKKKKKEKKEKEKKKKEKKKKKKKKKKKKKKEKKEK 


$84B4 


$66 
$67 


Upon exiting this routine, the accumulator 
will hold the LSB and the Y register the MSB of the 


* 
* 
* 
* 
* 
* 
* The Floating Point value to be converted must be 
* 
* 
* resulting integer. 

* 

* 


FPNINT 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


;Change the Floating Point Accumulator value 
;Into an integer value 

;Get the LSB value of the integer 

;Get the MSB value of the integer 

;And exit 


KREKKEKKKKKKKEKKKKEKERKKEKKEKKEKEKKEKKEKKKKKKKKKKKKKKKKKKKKKEK 


INTIDX 


Change a Floating Point Number to a positive INTeger. 


The Floating Point value to be converted must be 


in FACl. 


Upon exiting this routine, the accumulator 


will hold the LSB and the Y register the MSB of the 


The integer must be positive and it cannot be 
greater than a value of 32768. If the integer is 
either negative, greater than 32768, or both, then 
an 'ILLEGAL QUANTITY' error will result. 


* 

* * 
* * 
* * 
* * 
* * 
* * 
* * 
* resulting integer. ) 
* * 
* * 
* * 
* * 
* * 
* * 
* * 


KEKKKKKKKKEKKKKEKKKEKEKEKKKKKKRKKKKKKKEKKKKKKKKKKKKKEKKKKKKKEK 


$0380 
ST7EF 
S77DA 
$68 

$84C1 


;Get the next character from the BASIC text 
;Evaluate the expression 

;And make sure the expression is numeric 
;Check the sign of FACIL 

;And branch if the value in FAC1 is negative 
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AYINT 


* * 
* * 
* * 
* Convert the Floating Point value in FAC1 to a two * 
* byte integer whose value in stored in $66, $67. > 
* * 
* * 


KKK KKK KKK KKK KKK KKK KKK KK KK KKEKKKEKKKKKKKKKKKKKKKKKKKKK KKK K 


84B4: LDA $63 ;Check if the value in FAC1 

84B6: CMP #$90 ;Is greater than 32768 

84B8: BCC $84C6 ;If the value is less than 32768, then 
;Convert FAC1 to an integer and exit 

84BA: LDA #S9A ;If the value is equal to or greater than 32768 

84BC: LDY #$84 ;Check to see if it is a value of -32768 

84BE: JSR $8C87 ;Compare the Floating Point Accumulator (FAC1) 
;To the CONSTANT value of -32768 

84C1: BEQ $84C6 ;Exit if the value is in the range of -32768 to 
332768 

84C3: JMP $7D28 ;If the value is out of this range then 
;Generate an ‘ILLEGAL QUANTITY' error 

84C6: JMP $8CC7 ;Convert FAC1 to an integer and exit 


KKKKKKKKKEKKKKKKKKKKKKK KKK KKEKKK KKK KKKKKKKKKKKKKKKKKKKKKKKK 


* * 
* GIVAYF1 * 
* * 
* GIVe the Accumulator and the Y register to be = 
* converted to Floating point format. : 
* * 
KEKKKKKKKEKKKKKKKKEKKKKKKKKKKKKKKEKKKKKKKKKKEKKKKKKK KK KK KKKKK 


84C9: JSR S84E5 ;Set up the parameters for the conversion from 
;Fixed to Floating Point 

84CC: SEC ;Set the carry to generate a positive value 

84CD: JMP $8C75 ;Convert the value in locations $64, $65 


;To Floating Point format 
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BASIC POS FUNCTION 


Function syntax: POS (X) 


This function returns a value that indicates where 


the cursor is within the screen window. 


* 
* 
* 
* 
* 
_* NOTE: X = a value that must be specified but is 
* 
* 
* 
* 
KKK KKK KKK KKK KK KKK KK KK KEKE KKEKKKKEKKEKKKKKKKEKKKKKRKKKKK 


* 

* 

* 

* 

* 

ignored by the POS function. * 
* 

* 

* 

* 


84D0: SEC ;Set the carry flag for the GET cursor position 
84D1: JSR $928D ;Get the cursor position into X and Y registers 
84D4: LDA #0 ;Convert the position of the cursor 

84D6: JMP $793C ;From integer format to Floating Point format 


KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKKKKEKKEKKKKKKKKKKEKKKKKKKKKKKK 


ERRDIR 
ERRor if in the DIRect mode 


* * 
* * 
* * 
* * 
* * 
* This routine checks to see if we are in the DIRECT * 
* mode and if so, then the routine issues an error. * 
* This routine is called by other routines that do not * 
* allow certain commands or functions to be executed * 
* in the DIRECT mode. * 
* * 
* * 


KKEKKKKE KKK KKK KKK KKK KKK KKK KKK KKEKKKKKKEKKKKKKKKK KK KK KKK KKEK 


84D9: BIT S7F ;Check for the DIRECT mode 

84DB: BMI S84EF ;If we are in the PROGRAM mode, then exit 
84DD: LDX #21 ; 'ILLEGAL DIRECT! error 

84DF: .BYTE $2C ;Mask to fall through to 

84E0: LDX #27 ; 'UNDEF'D FUNCTION' error 

84E2:; IMP $4D3C ;Jump to the error message routine 


KEKE KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKKKKKKKKKKKKKKKKKKKKEKK 


GIVAYF2 


This routine sets up parameters in order to convert 
a Fixed Point integer value (-32768 to 32768) to 
Floating Point format. 


+ + + + HF 
+ + + + + F 
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84E5; 
84E7;: 
84E9; 
S4EB; 
84ED; 
B84EF: 


84F0: 


84F2; 
84F4; 
84F5: 
84F7: 


LDX 
STX 
STA 
STY 
LDX 
RTS 


BIT 


BMI 
RTS 
LDX 
JMP 


* Enter this routine with the accumulator and * 
* Y register containing the MSB and LSB of the value * 
* to be converted. = 
* * 
* * 


KKK KKK KKK KKK KKK KKK KKK KKK IKK KKKKKKKKKKKKKKKKK KKK KKKKKEKK 


#0 ,set VALTYP 

SOF ;To numeric 

$64 ;Save the MSB 

$65 ;And the LSB of the value to convert 

#$90 ;Set the exponent to maximum allowable of 32768 
;Exit 


KKKKKK HK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKEKKKKKKKKKKKKKKKKEK 


ERRPRG 


ERRor if in the PRoGram mode 


t+ + + +  * 


mode and if so, then the routine issues an error. 

This routine is called by other routines that do not 
allow certain commands or functions to be executed * 
while in the PROGRAM mode. * 
* 


* 


* 
* 
* 
* 
* 
* This routine checks to see if we are in the PROGRAM 
* 
* 
* 
* 
* 
* 


KKK KKK KKK KK KK KH KK KK KKK KKK KKK KK KKK KKK KKKKKKKKKKKKKKKKKKK 


S7F ;Check to see if we are in the PROGRAM mode and 
LE so; 

S84F5 ;Branch to generate a 'DIRECT MODE ONLY!’ error 
sExit 

#34 ; "DIRECT MODE ONLY' error number 

$4D3C ;Jump to the error message routine 
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S84FA;: 
84FD; 
8500: 
8503: 
8505: 
8507: 
850A: 
850D: 
8510: 
8512; 
8515: 
8516: 
8518: 
8519: 
851B: 


JSR 
JSR 
JSR 
LDA 
STA 
JSR 
JSR 
JSR 
LDA 
JSR 
PHA 
LDA 
PHA 
LDA 
PHA 





KAKKKKKKKEKKKKKKEKKKKKKKKKKEKKKKKKKKEKKKKKKKKKKKKEKKKKKKKKKKKE 


* * 
* BASIC DEF FN COMMAND * 
* * 
* Command syntax: DEF FN nm (var.) = exp. * 
* * 
* NOTE: nm = the name of the function preceded by id 
ss the letters 'FN' and followed by any 
* alphanumeric name which begins with a letter. * 
* (example: FNA) * 
* * 
* var. = a dummy numeric variable * 
* * 
* exp. = the formula to be defined * 
* * 
* The function can be executed by replacing 'var.' = 
* with any number as shown below. * 
* * 
* EXAMPLE: 10 DEF FNA(Y) = 2 * Y * 
* 20 PRINT FNA(8) * 
* * 
* In this example, every occurrence of the variable 'y'* 
* is replaced by the number '8' as defined in line 20. * 
* Therefore, the result of line 20 would be 16. * 
* * 
KAKKKKKKKKKKKK KKK KKK KKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 


$8528 ;Check on the proper syntax and variable type 
$84D9 ;Insure that we are in the PROGRAM mode 
$7959 ;Check for an opening parenthesis '(' 
#$80 ;Set the flag to prevent integer 
$12 ;And string variables 
S7AAF ;Get the variable within the parentheses 
S77DA ;Ensure that it is a numeric variable 
$7956 ;Check for a closing parenthesis ')' 
#SB2 ;Check for the equal sign '='! 
$795E ;And get the next character 
;Save the first character after the equal sign 
S4A ;Save the address of the 
;Variable in parentheses 
$49 ;Onto the 
;Stack 
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851C: 
851E: 
851F; 
8521: 
8522: 


8525: 


8528: 
852A: 
852D: 
852F: 
8531: 


8534; 
8536: 
8538: 


LDA 
PHA 
LDA 
PHA 
JSR 


JMP 


LDA 
JSR 
ORA 
STA 
JSR 


STA 
STY 
JMP 


$3E ;Save TXTPTR which points to the first 
;Character of the argument 

$3D ;Onto the 
;Stack 

$528F ;Search for the next statement or an end of line 
;Flag 

S85A0 ;Restore the original value of 


;The variable in parentheses 


KKKKKEKKKKKEKKKKKKKKEKKEKKKKKEKEKKEKKKKKKEKKEKKKKKKKKKKKEKKKKKKK 


GETFNM 


GET the Function NaMe 


an error is encountered, then a 'SYNTAX' error 
message is generated. 


+ + + + + F F H HF 


* 
* 
* 
* 
* 
* This routine checks the FN and DEF syntax and if 
* 
* 
* 
* 


KKKKKKKKKKKKKKKKKEKKEKKKKKKKKEKEKKKKKKEKKKKEKKKKKKKKKKKKKKKKEK 


#SA5 ;Check for the token for 'FN' 

$795E ;And get the Function Name 

#580 sSet bit 7 of the Function Name 

$12 ;And save it 

$7AB6 ;Search for the Function Name and ensure that it 
;Is not an integer or a string 

$50 ;Save the LSB 

$51 ;And the MSB of the address of the Function Name 

S$77DA sEnsure that Function Name is a numeric variable 


KHKKKHKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


FNDOER 


BASIC FN FUNCTION 


This function returns the value that is developed 
by the function that was defined by the DEF FNxx 
function. 


t+ + + + F F F F F F 


* 
* 
* 
* 
* 
* Function syntax: FN xx(x) 
* 
* 
* 
* 
* 
* 


KKKKKKKKKKKKKKKEKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
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853B: 
853E: 
8540: 
8541: 
8543: 
8544; 


8547: 


854A: 
854B: 


854D: 
854E: 


8550: 
8552: 
8555: 
8557: 
8558: 
8559: 
855C: 


855E: 


8560: 


JSR 
LDA 
PHA 
LDA 
PHA 
JSR 


JSR 


PLA 
STA 


PLA 
STA 


LDY 
JSR 
STA 
TAX 
INY 
JSR 
BEQ 


STA 


INY 


$8528 
$51 


$50 


$7950 


S$77DA 


$50 


$51 


;Check on the 'FN' syntax and get Function Name 
;Save the address of the 

;Descriptor for the Function Name 

;Onto the 

;Stack 

;Evaluate the expression within parentheses and 
;Store the result in FAC1 

;Check to see if the expression is numeric and 
;If it is not, generate a 'TYPE MISMATCH’ error 
;Restore the address of the descriptor for the 
;Function Name and store it to locations $50, 
7$51 

;Note: This address is pointing to LSB of the 
;Expression in the DEFine FuNction's descriptor 


Kk KK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK EKKKKKKKKKKKKKKKKKK 


+ + + + + HF F 


This routine gets the address of the variable 
descriptor. 


NOTE: 


This address points to the LSB of the 
exponent in the variable descriptor (byte 2). 


+ + + + + + 


KEKE K KKK KKK KKK KKK KKK KKK KKKKKE KKK KKK KKKKEKKKKKEKKKKKKKKKKEK 


#2 
S$42CE 
$49 


S42CE 
$84E0 


S4A 


;Skip over the expression's address 

;And get the LSB of the variable 

;Descriptor and save it to location $49 

;Then save it in the X register (useless code) 
;Move the Index register over one to 

;Get MSB of the variable descriptor's address 
;And if it is equal to zero then generate 

;An ‘UND'F FUNCTION' error 

;Save the MSB of the address of the variable 
;Descriptor's address 

;Increment the index pointer so that the index 
;Register will point to MANTISSA 4 (byte 7) in 
;The variable descriptor 


KK KK KK KEK KKK KK KKK KK KK KEK KKK KEK KKK KKK KK KKKKKKKKKKKKKKKKKKKEK 


* 
* 
* 
* 
* 
* 


* 
This routine saves the value of the variable that * 
was specified in the original definition just in * 
case a different variable is being used this time. * 
* 
* 


KKK KKK KKK KKK KKK KKK KKK KK KEKKKKKKKKEKKEKKKKKK KKK KK KKK KKK KKKK 
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8561; 
8563: 
8566; 
8567: 
8568: 


856A; 
856C: 
856F: 
8572: 
8574: 
85753 
8577: 
8578: 
857B: 


857D: 
857E: 
8581: 
8583: 
8585; 
8586: 
8588; 
8589: 


858C: 
858D: 
858F: 
8590: 


LDA 
JSR 
PHA 
DEY 
BPL 


LDY 


STA 
JSR 
LDA 
PHA 
LDA 
PHA 
JSR 
STA 


INY 
JSR 
STA 
LDA 
PHA 
LDA 
PHA 
JSR 


PLA 
STA 
PLA 
STA 


#$49 ;Set up an indirect address 

SO3AB ;And get a byte from the variable's descriptor 
;And save it onto the stack 
; (save bytes 2 thru 7) 

$8561 ;Continue until the value is completely saved 


;Onto the stack 


KKK KKK KKK KKK KKK KK KKKKKKKKKEKEEKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* 
* 
* 
* 
* 
* 
* 


This routine moves the value of the variable that 
was specified this time into the variable's 
descriptor that was originally specified. 

original value has been preserved on the stack. 


The 


+ + F F F OF 


KKK KKK KKK KEKE KKK KKEKKKKKEKKEKKKKKKKKKKKKKKKKKKKKKEKKKKKKE 


S4A ;Transfer the value of the expression 

SFFO4 ;In parentheses to the variable descriptor 

$8C00 ;That was originally specified 

$3E ;Save TXTPTR onto 
;The stack. Note: This address points to the 

$3D ;First character after 
;The closing parenthesis 

$42CE ;Get the address of the expression 

$3D ;In the DEF statement (bytes 2 & 3 in DEF 
;Descriptor) 
;And save it as 

$42CE ;The TXTPTR 

$3E 

S4A ;Save the descriptor address of the variable 
sjIn the parentheses of the DEF statement 

$49 ;Onto 
;The stack 

$77D7 ;Obtain the numeric value of the expression 
;That was specified in the DEF statement 
;And place the result into FAC1 
;Restore the descriptor's address 

$50 ;Of the variable in parentheses of DEF statement 
;Into locations 

$51 ;$50, $51 


KKK KKK HK KK KKK KKK KKK KKKEKKKKEKKKEKEKKKKKKKKKKEKKKKKKKKKKKEKK 


* 


+ + + 


* 


This section of code checks to ensure that the 
first character after the expression is an End of 
Line flag or and End of Statement flag (chain flag) * 
If it is not either of these, then a 'SYNTAX' 


* 


* 


error 
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8592: 
8595; 
8597: 
859A; 
859B: 
859D; 
859E: 
85A0: 
85A2: 
85A5; 
85A6: 
85A8: 
85A9; 
SS5SAB: 
85AD: 


85AE; 
85Bl: 
85B3: 
85B6: 
85B7:; 
85B8: 


JSR 
BEQ 
JMP 
PLA 
STA 
PLA 
STA 
LDY 
STA 
PLA 
STA 
INY 
CPY 
BNE 
RTS 


JSR 
LDY 
JSR 
PLA 
PLA 
LDA 





* will result. However, the error is not indicated 

* as being in the DEF statement, but, rather as being 
* in the line the FNxx(x) is used in. This is because 
* the line number where the DEF statement occurs is 

* not moved into OLDLIN at locations $3B, $3C. 

* 

* 


+ + + + 


KEKKKKEKEKKKKKKKK KEKE KKEKKEKKKKKKEKKKKKKKEKKKKKKKKKKKKKKKKK 


$0386 ;If the character after the expression 
$859A s;Is not a colon or an End of Statement, then 
$796C ;Generate a ‘SYNTAX’ error 
;Else restore the TXTPTR back to pointing 
$3D ;To the first character 
;After the 
$3E ;Closing parenthesis 
#0 ;Restore the original 
SFFO4 ;Value of the variable 
;In the parentheses that was used 
($50),Y z;In the DEF statement 
#505 
S$85A5 


sAnd exit with the function value in FAC1 


KEKKIKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


BASIC STRS FUNCTION 
Function syntax: STRS (X) 


NOTE: xX = the numeric value to be converted to a 
string 


This function takes the numeric value specified by 
the argument X and converts it to its string 
equivalent preceded by a space if the value is 
positive or by a minus sign if the value is 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* negative. 
* 

* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KKEKKKIKKKKKK KK KEK KKK KK KKK KEKE KKKKEKKKKKKEKKKKKKK KKK KKK 


S77DA ;Make sure the VALTYP is numeric 
#0 ;Place the string in the buffer starting at $FF 
S8E44 ;Convert FAC1 to an ASCII string 


7;Pull the return address of 
;The routine that called this one off the stack 
#SFF ;The string starts at SFF 
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85BA: LDY #0 ;Index the pointer 
85BC: JMP S869A ;Set up the string and allocate space in memory 

KEKKEKKKKKKKKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KK KK KK KKK 

* * 

ba BASIC CHRS FUNCTION * 

* * 

* Function syntax: CHRS (X) * 

* * 

* NOTE: X = CBM ASCII code number * 

* * 

* This function will return the character that * 

* corresponds to the numeric value of the argument * 

* 'X', %In order to accomplish this, this routine * 

* converts the ASCII value in the parentheses to a x 

* HEX numeric value. The routine then allocates a * 

* space in the string storage area and places the HEX * 

* value in that space. 

* * 

KKKKKKKKKEKKKK KKK KKK KKK KKK KKK KKK KKKKKKKKEKKKKKKKKEKKKKKKKKKK 
85BF: JSR S87F7 ;Convert the ASCII value to a numeric value 
85C2: TXA ;Place the numeric value into the accumulator 
85C3: PHA ;Save it onto the stack for recall later 
85C4: LDA #1 ;Set string length of the string to one char. 
85C6: JSR $8690 ;Allocate the room for the string in RAM BANK 1 

;And create the descriptor in locations $63, $65 

85C9: PLA ;Get the numeric value back off of the stack 
85CA: LDY #0 ;Zero the index register 
85CC: STA SFFO4 ;Enable BANK 15 with RAM BANK 1 enabled 
85CF: STA ($64),Y ;Save the numeric value to the allocated area 
85D1: PLA ;Pull the address off the stack of 
85D2: PLA ;The return address of the BASIC interpreter 
85D3: JMP $86E3 ;Transfer the string's descriptor from $63 - $65 


;Into the currently available temporary string 
;Descriptor pointed to by location $18. Then 
;Save the pointer that is in $18 to location $66 
;To Point to the temporary string descriptor 
;Which holds the string descriptor 


KAKKKKKKKEKKK KKK KKK KKKKKKKKEKKKKKKKKKEKKKKEKKKEKKK KK KKK KKKKKKEKEK 


* 


+ 


BASIC LEFTS FUNCTION 


* 
+ + % 


+ 


Function syntax: LEFTS (string, first para.) 
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85D6: 


85D9: 
85DA: 
85DD: 
85DF: 


85E0: 
85E2: 


85E3: 


85E53 


85F8; 
85E9: 


85EA: 
85EB;: 
85EC; 
85ED: 


85F0: 


JSR 


TAX 
TYA 


PHA 
TXA 
PHA 
JSR 


LDA 


* 
* 
* 
* para.' is greater than the length of the ‘string’, 
* 
* 
* 
* 


This function returns a string that consists of the 
number of leftmost characters of the 'string' that 
is determined by the 'first para.'. If the 'first 


then the entire string is returned by the LEFTS 
function, 


t+ + + OF OF OF 


KAKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK 


$864D ;Get the address of the string descriptor off of 
;The stack and the first parameter 
;Save the first parameter onto the stack 

$42D8 ;Get the length of the string from 

$79 ;String descriptor and save it into location $79 


;Get the length of the 'substring' requested by 
;The first parameter and 

$79 ;Compare to length of string in parentheses 
;Zero the accumulator (The zero in Y register 
;Was placed there by PERAM at $864D.) 


S85EA ;lf the first parameter is less than the length 
;Of the string, then branch 
$42D8 ;If the first parameter is => the length of the 


;String, then get the length of the 

;String from the string descriptor and use it 
;Move the length of the string into X register 
;Move the Index value into the accumulator 


KEKKKKKKKKKKKKKKKKK KKK KKK K KKK KKKKKKKKKKK KKK KKK KR KKK KKKEK 


* * 
* If the first parameter is less than the length of * 
* the string, the accumulator will contain a zero * 
* and the X register will contain the first parameter. * 
* However, if the lst parameter is equal to or greater * 
* than the length of the string, the accumulator will * 
* contain a zero and the X register will contain the * 
* the length of the string. " 
* * 
* * 


KHEKKKKKKK KKK KKK KEKE KKEKKKKKEKKKKKKKEKKKKKK KKK KKKK KKK KKK 


;Place the index value ($00) onto the stack 
;Move the first parameter into the accumulator 
;Place the first parameter onto the stack 

$8690 ;Allocate the room for the ‘substring’ in RAM 
;BANK 1 and create the descriptor for the 
;'Substring' locations $63 - $65 (string length, 
;LSB/MSB of the address of the string) 

$52 ;Get the address of the string's descriptor 
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85F2: 
85F4: 


85F7: 
85F8: 
85F9; 
85FA: 
S5SFB; 
85FD; 
85FF: 
8601; 
8603: 
8604; 


8607: 


860A: 


860D: 
860E: 
8611: 
8613: 
8614: 


LDY 
JSR 


PLA 
TAY 
PLA 
CLC 
ADC 
STA 
BCC 
INC 
TYA 
JSR 


JMP 


JSR 


PHA 
JSR 
STA 
PLA 
CLC 


$53 
$8785 


$24 
$24 
$8603 
$25 


$8763 


$86E3 


C-128 BASIC 7.0 Internals 


;That was placed there by PERAM at $864D 
;Deallocate the temporary string if it is on the 
;Temporary string stack, else place the string's 
;Address in locations $24, $25 

;Get the first parameter off of the stack 

;And place it into the Y register 

;Get the index value off of the stack 

;And add it to the 

;Address of the string in the temporary work 
;Area to index over to the starting position in 
;The string in which the 

;New 'substring' is to be created from 

;Move first parameter back into the accumulator 
;Move the 'substring' into the area in RAM BANK 
;1 that was allocated by the JSR to $8690 above 
;Which placed address into locations $35, $36. 
;Transfer substring's descriptor from locations 
;$63 - $65 into currently available temporary 
;String descriptor pointed to by location $18. 
;Then save the pointer that is in location $18 
;To location $66 to point to temporary string 
;Descriptor which holds substring's descriptor 


KHKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKEKKKKKEKKKKKKKKKKKKKKKKKKEKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


Function syntax: 


BASIC RIGHTS FUNCTION 


RIGHTS (string, first para.) 


This function returns a string that consists of the 


number of rightmost characters of the 
is determined by the 


‘first. para.*. If the *first 


para.' is greater than the length of the 'string', 
then the entire string is returned by the RIGHTS 


function. 


$864D 


$42D8 
$79 


* 
* 
* 
* 
* 
* 
'string' that * 
* 
* 
* 
* 
* 
* 


KKK KKK KKK KKK KKK KK KKK KKKKKEKKEKEKKKKKKKKKKKKKKKKKKKKKKEKK 


;Get the address of the string's descriptor and 
;The first parameter off of the stack and 

;Zero the index register 

;Save the first parameter onto the stack 

;Get the length of the string from 

;The string's descriptor and save it 

;Get the first parameter off of the stack 

;And subtract the length of the string from 
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8615: SBC 
8617: EOR 
8619: JMP 


861C: LDA 
861E: STA 
8620: JSR 
8623: CMP 
8625: BEQ 
8627: JSR 
862A: JSR 


$79 


#SFF 


$85E3 


;The first parameter. Then add #SFF if the 
;First parameter is greater than the 

;Length of the string, clear the carry flag 

;If it is greater, and set the carry flag if it 
jis not 

;Jump to an entry point of LEFTS. If the carry 
;Is cleared, the accumulator will hold the index 
;Value, 

;X register will hold the first parameter, and 
;Y register will hold a zero ( X and Y registers 
;Were set by the PERAM routine). If the carry is 
;Set, accumulator is substituted with the length 
;Of the string and moved into the X register 
;And the Y register will still contain 

;The zero placed there by the PREAM routine. 


KKK KKKKKKKKEKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KE 


the 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


#SFF 
$67 


$0386 
#rys 
$862D 


$795C 


S87F4 


Function syntax: MIDS$(string, lst para., 2nd para.) 


This function returns a substring that consists of 
characters of the 'string' starting at the 


character specified by 'lst para.' and whose length 
is specified by '2nd para.'. 


BASIC MIDS FUNCTION 


+ + + + + + + FF HF F 


KRHRKKKKKEKKEKKKKEKKEKKKKKKKKKKKKKKKaKKKKKKKEKKKKKKKKKKKKKKKKEK 


;Set second parameter to a default value of SFF 
;Which will cause the 'substring' to be created 
;From the first parameter (moving right) to the 
sEnd of the string 

;Get the char. just after the first parameter 
;Is it the closing parenthesis? 

;If so, use the default second parameter and 
;Branch past the check for a comma and the 
;Second parameter 

;If it is not the closing parenthesis, it MUST 
;Be a comma and if so, skip the comma and move 
;TXTPTR 

;To the next ASCII character. If the comma is 
;Not found, then generate a 'SYNTAX' error 
;Convert the ASCII numeric character to a HEX 
;Character value in location $67 and move TXTPTR 
;To point to the next char. If this value is 
;Negative, generate an 'ILLEGAL QUANTITY' error 
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862D: 


8630: 


8632: 
8633: 
8634: 


8635: 


8637: 


8638; 
863B: 
863D: 
863E: 
863F: 
8641; 


8643: 


8645: 
8647: 


86493: 
864B: 


JSR 


BEQ 


DEX 
TXA 
PHA 


LDX 


PHA 


JSR 
STA 
PLA 
CLC 
SBC 
BCS 


EOR 


CMP 
BCC 


LDA 
BCS 


$864D 


$8685 


#0 


$42D8 
$79 


$79 


S85EB 


#SFF 


$67 
S85EC 


$67 
$85EC 


;Get the address of the string's descriptor and 
;The first parameter off of the stack and then 
;zero the Y register 

;If the first parameter is a zero, then generate 
;An ‘ILLEGAL QUANTITY' error 

;Subtract one form the first parameter 

;And move it into the accumulator 

;Then save the first parameter minus one on to 
;The stack for use by the LEFTS routine 

;Set the length of the 'substring' to 0 in case 
;The first parameter is greater than the length 
;Of the string. (the 'substring' will equal 

;A null string) 

;Save the first parameter minus one onto the 
;Stack again for recall by this routine later 
;Get the length of the string from the 

;String's descriptor and save it to location $79 
;Get first parameter minus one off of the stack 
;And subtract the length of the string 

;From the first parameter and if 

;The first parameter is greater than the length 
;Of string, create 'substring' as a null string 
;Add #SFF to the result to create the new second 
;Parameter (Note: If the first parameter and the 
;Length of the string are the same, a zero is 
;Returned here) 

;Compare the result to the second parameter 

;And if the result is less than, then use that 
;Value as the second parameter 

;Else, use the default value of SFF as 

;The second parameter and jump to the middle of 
;The LEFTS function routine in order 

;To create the 'substring' 


KKKKKKKKKEKKKKKKEKKKKKKEKKKKKEKKKKKK KK KEKE KKKEKKKKEKKKKKKKKKKKEKK 


RIGHTS, 


+ + + + € €  F F 


PERform Address Manipulations 


This routine pulls the string's address and the 
first parameter off of the stack for the LEFTS, 
and MID$ functions. These values were 
placed onto the stack by the routine at $4C16. 


PERAM 


+ + + + + £ FF F 
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864D: 


8650: 


8651: 
8652: 
8653: 


8655: 


8656: 
8657: 
8658: 
8659; 
865A: 
865C: 
865D: 
865F 3 
8661: 
8662: 
8663: 


8664: 
8666: 
86673 


JSR 


PLA 


TAY 
PLA 
STA 


PLA 


PLA 
PLA 
TAX 
PLA 
STA 
PLA 
STA 
LDA 
PHA 
TYA 
PHA 


LDY 
TXA 
RTS 


They are placed on the stack in the following order: 


The 
The 
The 
The 


* 
* 
address of the string * 
first parameter that follows the string - 
return address to the BASIC Interpreter . 
return address of the string function * 

* 

* 


KKK KK KH KKK KK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKEKKKKKKKKKKK 


$7956 


$57 


$52 


$53 
$57 


#0 


;Check for closing parenthesis and if it is not 
;Found, then generate a 'SYNTAX’ error 

;Get return address of string function routine 
,Off of the stack 

;And place the LSB of address into Y register 
;Get the MSB of the address and 

;Save it to location $57 for recall after the 
;Execution of this subroutine 

;Pull the return address of the JSR to $0056 
;Which was 

;Performed in routine at $4C16, discard them 
;Get the first parameter off of the stack 

;And place it into the X register 

;Get the address of the string descriptor that 
;Was in parentheses 

;And save it 

;Into locations $52, $53 

;Get the address of string function routine that 
;Called this subroutine 

;And push it onto the stack so 

s;That this routine will return there after the 
*;RTS below is executed 

;Zero the Y register 

;Place the first parameter into the accumulator 
;And exit the routine 


KKKK KK KK KKK KKK KK KKK IKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


BASIC LEN FUNCTION 


Function syntax: LEN (string) 


length of the string. If the string contains spaces 
Or non-printable characters, these are also 
included in the LENgth count. 


* 
* 

* 

* 

* 

This function returns a number that represents the * 
* 

* 

* 

* 

* 


KKK KKK KKK KKK IKK KKK KKK KKK KKK KK KKKKKKKKKKKKKKKKKKKKKKKKKK 
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8668: JSR S866E ;Get the length of the string and place that 
| ;Value into the accumulator 
866B: JMP $84D4 ;Change the value to Floating Point format 


KEKE KKK KKKKKKKKK KK KKKKKKK KKK KEKE KKK KK KKK KKKKKKKKKKKKKKKKK 


* * 
x Get/Set the parameters of a string = 
* * 
* Set the VALTYP flag at location SOF to zero to * 
* indicate a numeric value. - 
* * 
* The registers represent the values as follows: is 
* * 
* A = The length of the string = 
= X = Is equal to zero x 
* Y = The length of the string * 
* * 
KKK KKK IK IK KKK KKK KKK KKK KKK KKK HK KKK KKK KKK KKK KKK KKKKKKKKKKKEK 


866E: JSR S877E ;Get the length of the string 
;And place it in accumulator 
8671: LDX #0 ;Flag for numeric 
8673: STX SOF ;Set the flag 
8675: TAY , ;Move the length of string into the Y register 
8676: RTS ;Exit the routine 


KKEKKKKKKKKKKKKKKKKKK KK KK KK KKK KEKKKKKKEKKKKKEKKEKKKKKKKKKEKE 


* * 
* BASIC ASC FUNCTION * 
* * 
* Function syntax: ASC (string) x 
* * 
* This function returns the ASCII code of the first * 
* character that is contained in the string. ig 
* * 
KK KK IKK KKK IKK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KAKKKKKKKKEKEKE 
8677: JSR S866E ;Get the string's location (pointer) 
867A: BEQ $8682 ;If length is 0, then 'ILLEGAL QUANTITY' error 
867C: LDY #0 ;Zero the index pointer 
867E: JSR $03B7 ;Get the first character from the string 
8681: TAY ;Place the ASCII code in the Y register 
8682: JMP $84D4 ;Change the value to Floating Point format 
8685; JMP $7D28 ;Generate an 'ILLEGAL QUANTITY' error 
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KKK KK KK KKK KKK KKK KKK KEKE KK KKK KK KKK KKKKKKKKE KK KKKKK KKK KK KKK 


* * 
me CALCULATE THE STRING VECTOR * 
* * 


KKK KKK KKK KKK KKK KK KEKKK KK KKKKKKKKKKKKKKKKKKKKKKKK KK KK KK KKK 


8688: LDX $66 ;Get the address of the 

868A: LDY $67 ;String and store 

868C: STX $52 ;The address to 

868E: STY $53 ;A temporary work area 

8690: JSR $9299 ;Create room in RAM BANK 1 for the string 


;Whose length is in the accumulator. Add 2 to 
;The length for the descriptor pointer 


8693: STX $64 ;Save the address of the next available 
8695: STY $65 ;String descriptor in RAM BANK 1 

8697: STA $63 ;Save the length of the string 

8699; RTS ;Exit 


KKK KE KKK KKK KKKKKKKKK KKK KKK KEK KEK KKKKEKKKKKKKKKKKKKKKKEKKEK 


STRLIT 


* * 
* * 
* * 
* Set up and allocate space in memory for the string. * 
* * 
* * 


KKK KKK KKK KKK KKK KKK KKK KKK EKKKKKKKKKKKKKKKKKKKK KKK KK KKK 


869A; LDX ee ;Set the beginning and the 

869C: STX $09 ;Ending delimiter 

869E:; STX SOA ;TO a quote 

86A0: STA $70 ;Store the beginning address of the 

86A2: STY $71 ;String into locations $70, $71 

86A4: STA $64 ;And also in 

86A6: STY $65 ;Locations $64, $65 

86A8: LDY #SFF ;Set the index pointer to $FF so that the next 
;Instruction will increment the value to $00 

86AA: INY ;Add one to the index pointer 

86AB: JSR S42F1 ;Get the first character from the string 

86AE: BEQ $86BC ;If it is the End of the Line Flag, then branch 

86B0: CMP $09 ;Is it the first delimiter? 

86B2: BEQ S86B8 ;If yes, then branch 

86B4: CMP SOA ;If it is not the second delimiter, then branch 

86B6: BNE S86AA sto continue obtaining the length of the string 

86B8: CMP fre ;If the delimiter is a quote, 

86BA: BEQ $86BD ;Then branch 

86BC: CLC ;Clear the carry flag for addition 

86BD: STY $63 ;Save the index value as length of the string 

86BF: TYA ;Move the length of the string into accumulator 
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86CO0: 
86C2: 
86C4; 
86C6: 


86C8: 
86C9: 


86CB: 


86CC: 
86CF: 
86D0: 


86D2: 
86D3: 


86D4: 
86D7: 
86DA: 


86DC: 
86DD: 
86DF: 
86E0: 


ADC 
STA 
LDX 
BCC 


INX 
STX 


TYA 


JSR 
TAY 
BEQ 


PHA 
DEY 


JSR 
STA 
STA 


TYA 
BNE 
PLA 
JSR 


$70 
$72 
$71 
$86C9 


$73 


;And add it to the address (LSB) of the string 
;And save it as current char. being processed 
;Get the MSB of the address of the string 

;And if there is no overflow from the previous 
;Addition, then branch 

;If an overflow did occur, add one to the MSB 
;Save the value back as the MSB of the current 
;Character being processed 

;Move the index value back into the accumulator 


KREKEKKKKKKKKKKKEKKKK KKK KKK KKK KEKKKKKEKEKKEKKKKKEKK KKK KKK KEKKKKKK 


* 
* 
* 
* 
* 
* 
* 


* 


This routine will move the string into the address * 
stored in locations $70,$71 and will store the length* 
of the string into the accumulator. The routine then * 
moves the string from RAM BANK O into RAM BANK 1. * 


$8688 


$86E3 


$42F1 
SFFO4 
($37) ,Y 


$86D3 


$8771 


* 


KAKI KKK KKK KKK KK KK KKK KKKKKKKKKK KKK KKK KKK KKK KKK KK KKK KK KEK 


;Allocate the space for the string in RAM BANK 1 
;Move the length of string into the accumulator 
;If length of the string is equal to zero, then 
;Branch to move the length and address of the 
;String into the temporary string stack 

;Save the length of the string onto the stack 
;Subtract one to use the length of the string 
;As a true index value 

;Get a character from the string in RAM BANK 0 
;Enable BANK 15 with RAM BANK 1 enabled 

Place the character into the area in RAM BANK 1 
;That was allocated by the routine at $86CC 
;Move the index pointer back into accumulator 
s;If there are more characters to move, branch 
;Get the true length of string off of the stack 
;Update FRESPC to indicate last used string area 


KKEKKK KKK KKK KKK KKK KKK KE KKKKKEKKKKKKEKKKKKKKEKKEKKKEKKKKKKKKKEKK 


* 
* 
* 
* 
* 
* 
* 
* 


This routine will move the string descriptor from 
locations $63 - $65 into the temporary string stack 


full, then location $18 will have a value of $24 


in it anda 


"FORMULA TOO COMPLEX' error will result. 


* 

* 

* 

pointed to by TMPPT ($18). If the string stack is * 
* 

* 

* 

* 


KK KK KKK KKK KKK KKK KKK KKK KKK KKK KEKKKKKKKKKKKKEKKEKK KKK KKK KKEK 
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86E3: 
86E5: 
86E7: 
86E9; 
86EB: 
86EE: 
86F0: 
86F2: 
S64; 
86F6: 
86F8: 
S6FA: 
86FC: 
86FE: 
8700: 
8702; 


8703: 
8705: 


8707: 
8708: 
8709: 
870A; 
870C: 


870D: 
870F: 
8710: 
8712: 
8713: 


8716: 


8719: 
871A: 


LDX 
CPX 
BNE 
LDX 
JMP 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
STX 
STY 
STY 
DEY 


STY 
STX 


INX 
INX 
INX 
STX 
RTS 


LDA 
PHA 
LDA 
PHA 
JSR 


JSR 


PLA 
STA 


$18 
#524 
S86EE 
#25 
$4D3C 
$63 
$00,X 
$64 
$01,X 
$65 
$02,X 
#0 
$66 
$67 
$71 


SOF 
$19 


$18 


;Get pointer to the next avaliable string stack 
;Is the stack full? 

;If not, then branch 

;If the string stack is full, then generate 

;A "FORMULA TOO COMPLEX! error 

;Get the length of the string 

;And place it into the temporary string stack 
;Get LSB of the string'’s address in RAM BANK 1 
;And place it into the temporary string stack 
;Get MSB of the string's address in RAM BANK 1 
;And place it into the temporary string stack 


;Save the address of the string stack 
;Which was indicated by TEMPPT ($18) 


sInto locations $66, $67, and $71 


;Subtract one from the zero to obtain the flag 
;For a string 

;Set the flag for 'string' 

;Save the string stack address we just used, as 
;The last string stack that was used 

;Add three 

;To TEMPPT to 

;Indicate which temporary descriptor 

;Stack is available next 

s;Exit the routine 


KKK KKK KK KKK KKK IKK KI KK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKE KKK KEK 


example: 


CAT 


* 
* 
* 
* This routine is used when the text of one string is 
* 
* CS = (AS + BS). 

* 

* 


KKK KKEKKKKKKKKKKKKKKKKKKKKKKKKKkKkKkK KKK Kk KKK KKK KKK KKK KKK K 


$67 


$66 


$78D7 


$77DD 


$70 


* 

* 

* 

* 

to be added to the text of a second string. For * 
* 

* 

* 


;Save the address of the 

;First string's variable 

;Descriptor onto the stack 

;For recall later 

;Get address of the second string's descriptor 
;And place the address into locations $66, $67 
;Insure that the second string is indeed a 
;String and not a numeric value. If it is not a 
;String, then generate a 'TYPE MISMATCH' error 
;Obtain the address of the first 

;String's descriptor off of the stack 
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871C: 
871D: 
871F: 
8721; 
8724; 
87263 


8729; 
872A: 


872C: 


872E: 


8731: 


8734: 
8737; 
8739; 
873B: 
873E: 
8741; 
8743: 
8745: 
8748: 


874B: 


874E: 
8750: 


PLA 
STA 
LDY 
JSR 
STA 
JSR 


CLC 
ADC 


BCC 


JMP 


JSR 


JSR 
LDA 
LDY 
JSR 
JSR 
LDA 
LDY 
JSR 
JSR 


JMP 


LDY 
JSR 


$71 
#0 
$42F6 
$79 
$42E7 


$79 


$8731 


SA5ED 


$8688 


S874E 
$52 
$53 
$8785 
$8763 
$70 
$71 
$8785 
S86E3 


$7809 
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;And save it 

;Into locations $70, $71 

;Get the length of the first string from 
;Nominal byte zero of the variable descriptor 
;And save it 

;Get length of the second string from nominal 
;Byte zero of variable descriptor. The address 
;Of the descriptor is in locations $66, $67 
s;Clear the carry for addition 

;Add the length of the first string to the 
;Length of the second string 

sIf the length of both strings combined is 
s;Less than 255, then branch 

;If the length value is greater than 255, then 
, Generate a ‘STRING TOO LONG!’ error 

;Allocate a space in the string storage area for 
;The new string with the above length result 
;Move the first string into the new space 

;Get the address of the descriptor for 

;The second string 

;And de-allocate the second string 

;Move the second string into the new space 
;Get the address of the first 

;String's descriptor 

;And de-allocate the first string 

;Move the concatenated string descriptor from 
;Locations $63-$65 to the temporary string 
;Stack. If there is no room left on the stack, 
;Then generate a 'FORMULA TOO COMPLEX’ 
;Continue evaluating the expression 


error 


KKK K KK KKK KKK KKK KK KKK KK KKK KKK KK KKK KE REK EK KKKEKKEKKEKKKKKKEKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


* 


MOVINS * 


* 


This routine sets up the address of the string to be * 


moved. On entry into this routine, 


locations $70, $71* 


contain the address of the string's descriptor. This * 
routine will then fall through to the next routine * 
with the length of the string in the accumulator, the* 
the LSB of the address of the string in the X regis- * 


ter, 


#0 
$42F6 


and the MSB of that address in the Y register. * 


* 


KKK KI KK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KK KKKKKKKKKKKEKKKKKKEKK 


;Index pointer 
;Get the string length 
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8753: 
87543 
8755: 
8758; 
8759: 
875A: 
875D: 
875E;3 


875F:3 
8761: 
8763: 


8764: 
8766: 
8767: 
8768: 
876B: 


876D: 


876E: 


8770: 
8771: 
8772: 
8774; 
8776: 
8778: 
877A; 


PHA 
INY 
JSR 
TAX 
INY 
JSR 
TAY 
PLA 


STX 
STY 
TAY 


BEQO 
PHA 
DEY 
JSR 
STA 


TYA 


BNE 


PLA 
CLC 
ADC 
STA 
BCC 
INC 
RTS 


;Save it onto the stack 
;Increment the pointer 
S42F6 ;Get the string address LSB 
;Save it in the X register 
;Increment the pointer 
S42F6 ;Get the string address MSB 
;Save it in the Y register 
;Get the string length back 


KK KKK KKK IKK KKK KKK KKK KKK KK KKK KKK KKK KEK KKK KKK KEKKKKKKKEKK 


* * 
* This routine will move the string whose address is = 
* stored in the X and Y registers and whose length is * 
* in the accumulator to the address pointed to by * 
* locations $37, $38. This address is usually the * 
* last allocated string area. * 
* * 
* * 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KEK KKKKKKKKEKKKKKKEKKKKK 


$24 ;Save the string's address LSB 

$25 ;Save the string's address MSB 
;Move the string's length into the Y register 
;To be used as an index value 


$8771 ;Ilf the length is equal to zero, then branch 
;Save length onto the stack 
;Subtract one from the length 
$03B7 ;Get a byte of the string that is in RAM BANK 1 
($37) ,Y ;And place it into the new address that is also 


;In RAM BANK 1 
s;Move the length of the old string 
;Back into the accumulator 
$8767 ;If the entire string has not been moved, then 
;Branch to continue moving the string 


;Get length of the original string off of stack 
;Clear the carry for addition 

$37 ;Add the length of the original string to 

$37 ;Update the end of the allocated area 

S877A ;No overflow, then branch 

$38 ;Add one to the MSB due to overflow 


;Exit the routine 


KKK KKK KKK IKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKK KKK KEKE 


* 


FRESTR 


This routine will call FRETMS ($87E0O) to clear a 
temporary string from the temporary string stack. 


+ + + 
+ + + 
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877B; 
877E: 


8781; 
8783: 
8785: 
8787: 
8789; 


878C: 


878E: 


8791: 


8793: 
8794; 


8796: 
8799: 
879B: 


879C; 
879D; 
879F: 
87A0: 
87A2: 
87A3:3 
87A5: 
87A7: 
87A9: 
87AA: 
87AC; 
87AE: 
STAF: 
87BO: 
87B2: 
87B4: 
87B6; 


JSR 
JSR 


LDA 
LDY 
STA 
STY 
JSR 


BNE 


JSR 


BCC 


DEY 
LDA 


STA 
STA 
DEY 


TXA 
STA 
PHA 
EOR 
SEC 
ADC 
LDY 
BCS 
DEY 
STA 
STY 


* 
* 
* 
* 
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If the string is deleted, the Y register will then * 
be set to a value of zero and this routine will * 
set various pointers to reflect the deletion. - 
* 
* 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKK KKK KKK KKK KK 


TAX 


PLA 


CPY. 


BNE 
CPX 
BNE 


S77EF 
$77DD 


$66 
$67 
$24 
$25 
$87E0 
S87CA 


S54F6 


$87CA 


#SFF 


SFFO4 


($24) ,Y 


($24),Y 


#SFF 


$24 
$25 
S87AA 


$24 
$25 


$36 
S87F0 
$35 
$87F0 


;Evaluate the expression 
;Insure the VALTYP is a string and if it is not, 
;Then generate a 'TYPE MISMATCH' 
;Move the address of the 
;String descriptor 


error 


z;Into a temporary 

;Sstorage area 

;If the string is on the temporary string stack 
;Delete it and if it is deleted, then set the 
7;Y register to zero 

;If the string descriptor was on the 

;String stack, then branch 

;Check if the string is in the proper memory 
;Area and clear the carry if it is 

;If the string was 'IN RANGE', then branch to 
;Move the index to the second character 
;After the string 


;Value to allow garbage collection to erase 
;The string 

;Enable BANK 15 with RAM BANK 1 

;Store the delimiter after the string 

;Move the index to the first character 

;After the string 

;Save the length of the 

;String directly after the string 

;Save the length onto the stack 

;Invert the length so 

;The following will subtract 

;The length of the de-allocated string 

;From the string's address 

;Handle the underflow by 

;Decrementing the MSB of the string's address 
;And save the address of the string 

;Back to memory 

;Save LSB of the string's address to X register 
;Get the length of the string off of the stack 
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87B8: 
87B9; 
87BA: 
87BC: 


87BE: 
87CO0: 


87C2: 
87C43 
87C6: 
87C8; 
87C9: 


87CA: 
87CC: 
S7ICF: 
87D0: 
87D1: 
87D4: 
87D5: 
87D6: 
87D9: 
87DA: 
87DC: 
87DE: 
87DF: 


PHA 
SEC 
ADC 
STA 


BCC 
INC 


INC 
BNE 
INC 
PLA 
RTS 


LDY 
JSR 
PHA 
INY 
JSR 
TAX 
INY 
JSR 
TAY 
STX 
STY 
PLA 
RTS 


$35 
$35 


$87C2 
$36 


$35 
$87C8 
$36 
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;Save length of the string back onto the stack 
;Add the length of the 

;String to the 

;String address to move the FRETOP pointer 

;To point to the second character after the 
;String to de-allocate the string in RAM BANK 1 
;If no overflow occurred, then branch 

;If an overflow did occur, then add one to the 
;MSB of the FRETOP pointer 

;Add one to the FRETOP pointer 

;If no overflow occurred, then branch 

;Add one to the MSB of the FRETOP pointer 

;Get length of the string back off of the stack 
;And exit the routine 


KKK KK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKKKKKKKKKE KKK KK KKK KK 


* 
* 
* 
* 
* 
* 
* 


* 


This routine moves the index pointer to point to the * 
second character after the string. The routine exits * 
with the X and Y registers holding the address of the* 
string and the accumulator holding the string length.* 


#0 
$03B7 


$03B7 


$03B7 


$24 
$25 


* 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKEKKKKKK KKK 


;Zero the index pointer 

;Get the length of the string 

;And save it onto the stack 

;Move the index pointer to the LSB of 

;The string's address and 

;Save it into the X register 

;Move the index pointer to the MSB of 

;The string's address and 

;Save it into the Y register 

;Place the address of the string 

s;Into locations $24, $25 

;Get the length of the string off of the stack 
;And exit the routine with the X and Y registers 
;Holding address of string and the accumulator 
;Holding the string length 


KK KK IK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKKKKKKKKKKKKKKKKKKKKKEK 


+ + + + + F 


This routine compares the current string with the 
strings that are on the string descriptor stack and 
if a match is found, that string is removed from the 


FRETMS 


t+ + + OF OF 
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87E0: 
87E2: 


87E4: 
87E6: 
87E8: 


STEA: 
8TEC: 


87EE: 
87TFO: 


87F1: 


CPY 
BNE 


CMP 
BNE 
STA 


SBC 
STA 


LDY 
RTS 


JSR 


stack. Upon entry to this routine the following 
exist: 


A = The LSB of which descriptor 
is being used 


Y = The MSB of which descriptor 
is being used 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* X = Is not used or affected 
* 

* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KKK IKK KKK KKK KKK KKKKKKKKKKKKKK KKK KK KKK KKK KK KKKKKK KK KK KK 


S1A ;If the MSB of the string descriptor's address 
S87F0 ;Does not equal, then it cannot be in the 
;Temporary string stack 
$19 ;Is it the temporary descriptor used last? 
$87F0O ;No, then branch to exit 
$18 ;Save the pointer to the LSB of the 3 BYTE 
;String descriptor 
#3 ;Delete the string from the stack 
$19 ;By decrementing the LSB pointer of 
;Last string stack address 
#0 ;Flag for STRING DELETED 
sExit 


KKKKKKKKKKKK KE KEKE KKK KK KEKE KK KKK KKKKEKEKKKKKKKKKKKKKKKKEK 


GETBYTC 


This routine converts an ASCII character into an 
integer value. It also makes sure the value is 
between 0 - 255 and if it is not, then the routine 
generates an 'ILLEGAL QUANTITY' error. 


On entry to this routine, you MUST have the TXTPNTR 
set up to point to the character before the ASCII 
character to be converted. 


+ + € © € € FF HF F 


* 


* 
Upon exiting this routine, the X regsiter will have * 
the value of 0 - 255 in it. m 
* 
* 


* + + + + + FF £ € FF FF F FF HF F 


KK KKK KKK KKH KK KKK KKK KKK KKK KKK KK KKK KEKKKKEKKKKKKKKKEKKEKKKKK 


$0380 ;Get the next character 
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KKKKKKKKKEKKKKKKKK KK KKKKKKEKKKKKEKEKKKKKEKKKKKKKKKKKKKKKKKK 


CONVASCN 


This routine will decrement TXTPTR and then convert 
the ASCII character it points at to a numeric value. 


Upon exiting this routine, the X register will have 
the value of 0 - 255 in it. 


+ + + + + ££ FF F F 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KAKKKEKKKKKKKKKKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKK 


87F4:; JSR $77D7 ;Evaluate expression and check for numeric 


KHKKIKKKKKKKKKKKKHEKKKKKKKEKKKKKKKKKKKKKKKKKK KKK KKKKKKKKKKK 


ASCIIHEX 


This routine converts and ASCII value to a HEX value. 


+ + + + 


* 
* 
* 
* 
* 
* 


KKKKIKKKKEKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKEKK 


87F7: JSR $84AD ;Turn the ASCII value into integer format 

87FA: LDX $66 ;Get the sign of the value 

87FC: BNE $882B ;If the sign is negative, then branch to 
;Generate an 'ILLEGAL QUANTITY' error 

87FE: LDX S67 ;Return the numeric value into the X register 

8800: JMP $0386 ;Update TXTPTR 


KKK KKK KKK KKK KKK KKK KKKE KKK KEKKEKKKKEKEKKEKEKKKKKKKAKKKKKEKKKEK 


GETADR 


* 

* 

* This routine is used to get address parameters by 

* first checking to see if the value in the Floating 

* Point accumulator is a positive number that is less 
* than the value 65536. If the value is indeed less 

* than 65536, then this routine calls the routine that 
* converts the value from Floating Point format into a 
* two byte unsigned integer. This routine is used by 
* such routines as the PEEK and POKE routines. 

* 
* 


+ + + F + F F F OF F FF OF 


KKK KIKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKEKKKKKKKKKKKKKKKKK 


8803: JSR $77D7 ;Evaluate the expression 
8806: JSR $8815 ;Get the 16 bit address into locations $16, $17 
8809: JSR $795C ;Search for ','. If it is not found, then 


434 


Abacus Software C-128 BASIC 7.0 Internals 





880C: 


880F: 


8812: 


8815: 
8817: 


8819: 
881B: 
881D: 


881F: 
8822: 
8824; 
8826; 
8828: 
882A: 
882B: 


JMP 


JSR 


JSR 


LDA 
BMI 


LDA 
CMP 
BCS 


JSR 
LDA 
LDY 
STY 
STA 
RTS 
JMP 


;Generate a ‘SYNTAX’ error 
S87F4 ;Get the next integer value into the X register 


KKKKKKKKKKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KK KKK 


COMADR 


not found, an error will be generated. 


+ + F * % OF 


* 
* 
* 
* This routine will search for a comma and if it is 
* 
* 
* 


RAEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


$795C ;Search for ','. If it is not found, then 
;Generate a 'SYNTAX' error 
$77D7 ;Evaluate the expression 


KKKKKKKKKKKKKEKHKKEKKEKKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* 

* GETADDRESS * 
* * 
* This routine will convert a Floating Point number * 
* into a two byte unsigned integer. It is called by * 
* the GETADDR routine above. When this routine is * 
* exited, the registers will hold the following items. * 
* * 
* A = The MSB of the address td 
* * 
* Y = The LSB of the address * 
* * 
= X = Not used * 
* * 


KKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKEKKKKEKKEKKKKKKKKKKKK 


$68 ;Check the sign of the Floating Point value 

$882B ;And if it is negative, then branch to generate 
7An ‘ILLEGAL QUANTITY! error 

$63 ;Check the exponent of the Floating Point value 

#145 z;And if the value of the number 

$882B ;Is greater than the value 65535, then branch to 
;Generate an 'ILLEGAL QUANTITY' error 

$8CC7 ;Convert the Floating Point value 

$66 ;In FAC1 to an integer in 

$67 ;Locations $66, $67 (MSB, LSB) 

$16 ;Save the LSB of the value 

$17 ;Save the MSB of the value 
;Exit the routine 

$7D28 ;Generate an 'ILLEGAL QUANTITY' error 
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882E: 


8831: 
8833: 
8835: 
8837: 


8839; 
883B: 
883D: 
8840; 
8843: 


Keke kkk KKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KK KKEKK 


JSR 


LDA 
EOR 
STA 
EOR 


STA 
LDA 
JMP 
JSR 
BCC 


FSUB1 
FAC2 = MEMORY - FAC1 


* 

* 

* 

* 

* 

* This routine subtracts FAC] from the number stored 

* in RAM BANK 1 whose address is in the Y register and 
* 
* 
* 
* 
* 


+ + + +  F F F 


the accumulator (LSB,MSB). This is accomplished by 
moving the number stored in memory into FAC2 and then* 
falling through to the routine below (FSUBT). ~ 


* 


KkakkkkkkkkkekkkkkKekKkkKkK KKK KKK KKKKK KK KKK KKKKKKK KKK KR KKK K 


S8AB4 ;Move the Floating Point number stored in RAM 
;BANK 1 into FAC2 


kkkekkkkkkkkkekkkekkk Kk KKK KRKKRKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK 


* 
* FSUBT * 
* * 
* BASIC MINUS (-) FUNCTION * 
* * 
* Function syntax: first exp. - second exp. ial 
* * 
* This routine performs subtraction by changing the * 
* sign of the FAC] and adding the value to FAC2. = 
* * 
Kk KKK KK KKKKK KK KKK KKKKKKKKKKKKKKKK KKK KKKKKKKKKK KKK KKKKKEKK 

$68 ;Invert the sign of FAC1 

#SFF ;And save it back 

$68 ;Into the FAC1 sign flag 

S6F ;Compare the sign of FAC] to FAC2 

3 ($00 = the same, SFF = different) 

$70 ;Save the result 

$63 ;Get the exponent of FAC1 

$8848 And add FAC1 to FAC2 

$8979 ;Shift result right 

$8882 ;Check if a borrow was done and if so, result 


ssign (-) 


KHKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* * 


* FADD x 
* * 
* * 


FAC1 = FAC1 + FAC2 
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* This routine adds FAC1 to a number stored in memory * 
* whose address is in the Y register and the * 
* accumulator (LSB,MSB) by moving the number that is * 
* stored in memory into FAC2 and then falling through * 
* to the routine below (FADDT). “ 
* * 
* * 


KKEKKKKKKKKKKKKKKKKEKKKKEKEKEKKKKKKKEKKEKKKKKKKKKK KK KKK KKK 


8845: JSR S8AB4 ;Add floating point value, that is pointed to 
;By the accumulator and the Y register to FAC1 


KKEKKKKHK KKK KKK KK KKK KKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKEKK 


* * 
* FADDT * 
* * 
* BASIC PLUS (+) FUNCTION * 
* * 
* Function syntax: first exp. + second exp. * 
* * 
* This routine adds FAC] to FAC2 and then stores the * 
* result into FAC1. * 
* * 
KKEKEKKKKKKKKKEKKKK KKK KKK KKK KKKKKKEKKKKKKKKKRKRKR KK KRKEK 


8848: BNE $884D ;Move FAC2 (ARG) to 

884A; IMP $8C28 s;FAC1. If FAC1 = zero, 

884D: LDX $71 ;Save the 

884F: STX $58 ;Rounding flag 

8851: LDX #S6A ;Set up an index to FAC2 (ARG) 

8853: LDA S6A ;Get the exponent of FAC2 

8855: TAY ;Save it in the Y register 

8856: BNE $8859 sExit if the value in FAC2 

8858; RTS ;Is zero 

8859: SEC ;Subtract the exponent of FAC1 from the 

885A: SBC $63 ;Exponent of FAC2 to calculate the difference 

885C: BEQ $8882 ;If there is no difference, then branch to act 
;On fractions 

885E: BCC $8872 ;Branch if FAC1 is larger than FAC2 

8860: STY $63 ;Save the exponent of FAC2 into FAC1. If FAC2 is 
;Greater than FACI1, 

8862: LDY S6F ;Save the sign byte of FAC2 as 

8864: STY $68 ;The sign byte of FAC1 

8866: EOR #SFF ;Compute the two's 

8868: ADC #0 ;Complement of the difference 

886A: LDY #0 ;Between FAC] and FAC2 

886C: STY $58 ;Clear temporary storage area for rounding flag 

886E: LDX #563 ;Set up an index to FAC1 
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8870: BNE $8876 ;Branch to skip the clearing of rounding flag 

8872: LDY #0 ;Clear the 

8874: STY $71 ;Rounding flag 

8876: CMP #SF9 ;If the difference between FAC1 and FAC2 is 
;Greater than 8, 

8878; BMI $8840 ;Then branch to do the preshifts 

887A: TAY ;Save the number of preshifts in the Y register 

887B: LDA $71 ;Get the rounding flag 

887D: LSR $1,X 

887F: JSR $8990 ;Do the preshifts 

8882: BIT $70 ;If the signs of FAC1 and FAC2 are the same, 

8884: BPL $88DD ;Then add the fractions 


KKKKKKEKKEKKKKKEKKKEKKEKKKEKKKEKKKKEKKKEKKKKEKEKKEKKKKKKEKKKKKKKKKKKK 


FADD4 


* * 
* * 
* * 
* This routine makes the result negative if a borrow * 
* was done. . 
* * 
* * 


KKEKKKKK KKK KKKKK KKK KE KEKE KKK KKKKKKEKKKKKKKKEKEKKEKKKKKKKKKKKK 


8886: LDY #563 ;Make the Y register to point to 
8888: CPX #S6A ;The larger, FAC1 or FAC2 

888A: BEQ S888E 

888C;: LDY #S6A 


888E: SEC 

888F:; EOR #SFF ;Compute the borrow 
8891: ADC $58 ;From the rounding flag 
8893: STA $71 ;And save it 


KAKKKKKKKKKKKKEKKKKKKKKKKKKKKKKEKKKKKEKKKEKKKEKKKKKEKKKKKKEKKKKKK 


FAC] = FACI1 - FAC2 or FAC1 = FAC2 - FAC1 


* * 
* * 
* * 
* Upon entry into this routine the X register points * 
* to the Floating Point accumulator that holds the * 
* smaller value and the Y regsiter points the the * 
* Floating Point accumulator that holds the larger is 
* value. This determines whether FAC2 will be * 
* subtracted from FAC1 or vice versa. * 
* * 
* * 


KKEKKK KK KKEKK KK KE KKK KKK KKK KKK KE KKK KE KKKKEKKKEKKKKKKKKKKKKKKEK 


8895: LDA $4,Y ;Compute the difference between 
8898: SBC S$4,X ;The two Floating Point accumulators 
889A: STA $67 7;M4 


438 


Abacus Software 


C-128 BASIC 7.0 Internals 





889C; 
889F; 
88A1: 
88A3: 
88A6;: 
88A8; 
88AA; 
88AD: 
88AF; 
88B1: 
88B3: 
88B6: 
88B8; 
88B9:; 
88BA: 
88BC: 
88BE: 
88C0; 
88C2: 
88C4; 
88C6: 
88C8; 
88CA: 
88CC; 
88CE; 
88D0: 
88D2: 
88D4:; 
88D6; 
88D8: 
88DA: 
88DC: 


88DD: 
88DF; 
88E1: 
88E3: 
88E5:;: 


LDA 
SBC 
STA 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
BCS 
JSR 
LDY 
TYA 
CLC 
LDX 
BNE 
LDX 
STX 
LDX 
STX 
LDX 
STX 
LDX 
STX 
oly 
ADC 
CMP 
BNE 
LDA 
STA 
STA 
RTS 


ADC 
STA 
LDA 
ADC 
STA 


$3,Y 
$3,X 
$66 
$2,Y 
$2,X 
$65 
$1,¥ 
$1,X 
$64 
$88B6 
$8926 
#0 


$64 
$8908 
$65 
$64 
$66 
$65 
$67 
$66 
$71 
$67 
$71 
#8 
#32 
S88BA 
#0 
$63 
$68 


;M1 

;Branch if there is no borrow 
;Negate FAC] if there was a borrow 
;Clear the Y register 

;And the accumulator 


;If Ml is equal to zero, then 
;Shift the fraction over 
;One byte 


;Update the exponent by 8 
;And continue until 

74 bytes are shifted 
;Make FAC] equal to zero 


;Clear the sign byte of FAC1 
;And exit the routine 


KKK KK KK KKK KKK KK KK KKKK KKK KKK KKKKKKKKEKKKKKKKKEKKKKKKKKKKEK 


* 
* 
* 
* 
* 
* 
* 


into FAC1. 


$58 
$71 
$67 
S6E 
$67 


FAC] = FAC1 + FAC2 


* 

* 

* 

This routine adds FAC1 to FAC2 and places the result * 
* 

* 

* 


KHRKKKKKKK KKK KKK KKKKKKKEKKKKKKKKKKKKKKKKKKK KK KK KKKKEKK 


;Compute the initial fraction 
;And save as the rounding flag 
;Add M4 of FAC1 

7;TO M4 of FAC2 

;Save in FAC1 
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88E7; 
88E9; 
S88EB:; 
88ED: 
S8EF; 
88F1: 
88F3; 
88F5: 
88F7; 
88F9; 


88FC; 
88FE; 
8900: 
8902; 
8904; 
8906: 
8908: 
890A: 
890B: 
890D: 


890F; 
8911: 
8913: 
8915; 
8917: 
8919; 


S89O1B: 


891D; 
89l1F: 
8921; 
8923: 
8925; 


LDA 
ADC 
STA 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
JMP 


ADC 
ASL 
ROL 
ROL 
ROL 
ROL 
BPL 
SEC 
SBC 
BCS 


EOR 
ADC 
STA 
BCC 
INC 
BEQ 


ROR 


ROR 
ROR 
ROR 
ROR 
RTS 


$66 ;Add M3 of FAC1 

$6D ;To M3 of FAC2 

$66 ;Save in FAC1 

$65 ;Add M2 of FAC1 

$6C ;To M2 of FAC2 

$65 ;Save in FAC1 

$64 ;Add Ml of FAC1 

S6B ;To Ml of FAC2 

$64 ;Save in FAC1 

$8915 ;Normalize FAC1, if needed, and exit 


KAKKKKKKKEKKKKKKKKKKEKKKKKKKKKEKKKKAKKKKKKKKKKKKKKKKKKKKKKKEK 


NORMAL 


Normalize the Floating Point number. 


+ + + + 
+ + + + OF 


Kak kKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KK KK KKK KKKKKKKKKK KKK 


#1 ;Increase the exponent by 1 

$71 ;Shift the fraction left 

$67 ;One bit 

$66 

$65 

$64 

S88FC ;Continue until an overflow from Ml occurs 
;Subtract the correction 

$63 ;From the exponent 

S88D6 ;If there was an underflow, then make FAC1 
;Equal to zero and exit 

#SFF ;Invert the value 

#1 ;Increase the value by 1 

$63 ;And save it as the new exponent 

$8925 ;If no overflow occurred, then exit 

$63 ;If there was overflow, increment exponent by 1 

$895D ;If the exponent overflows, then generate an 
; "OVERFLOW! error 

$64 ;If there was not an overflow, then after 
;Incrementing the exponent, 

$65 ;Shift the fraction right 1 bit 

$66 

$67 

$71 
;And exit 
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KKK KKKKKKEKEKKKKKEKKEKEKKKKEKKEKKEKKKEKKKKKKKKKKKKKKKKKKKKKKK 


NEGFAC 


two's complement of that value, and places the value 


* 
* 
* 
This routine takes the value in FAC], generates the * 
* 
back into FAC1. * 

* 

* 


+ + + + F 


KKKKK KEKE KKKKKEKKKKKKKKKKKKKEKKKKKEKKKKKKKKKKKEKKKKKKKKKKEK 


8926: LDA $68 ;Generate the complement of 
8928:  EOR #SFF ;The sign of FAC1 
892A: STA $68 ;And save it 


KKKKKKKKKKKKKKKKKKKKKKKEKEKKKEKKEKEKKKKEKKKKKKKKKKKKKKKKK KKK 


* * 
* Invert the mantissa of FAC1 * 
* * 


KKEKKKKKKKKKKKEKKEKKKKKKEKKEKEKKKEKKKKKKKEKKEKKKKKKKKEKKEKKKKKKKKKKEK 


892C: LDA $64 ;Invert Ml 
892E; EOR #SFF 

8930; STA $64 

8932: LDA $65 ;Invert M2 
8934: EOR #SFF 

8936: STA $65 

8938: LDA $66 ;Invert M3 
893A; EOR #SFF 

893C;: STA $66 

893E: LDA $67 s;Invert M4 
8940: EOR #SFF 

8942: STA $67 

8944: LDA $71 ;Invert the rounding byte 

8946: EOR’ #S$FF 

8948: STA $71 


894A: INC $71 ;Add 1 to the rounding byte 
894C: BNE $895C ;And exit if mantissas do not need rounding 
894E; INC $67 ;Add 1 to M4 

8950: BNE $895C ;Exit if there is no carry 
8952; INC $66 ;Add 1 to M3 

8954: BNE $895C ;Exit if there is no carry 
8956: INC $65 ;Add 1 to M2 

8958: BNE $895C ;Exit if there is no carry 
895A: INC $64 ;Add 1 to Ml 

895C: RTS ;Exit the routine 

895D: LDX #15 ;Generate an 

895F: JMP $4D3C ; 'OVERFLOW' error 
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8962: 
8964; 
8966: 
8968; 
896A: 
896C: 
896E: 
8970: 
8972; 
8974: 
8977: 
8979: 
897B: 
897D: 
897TF: 
8981: 
8982; 
8984; 
8986: 
8988; 
898A; 
898C:;: 
898E: 
8990: 
8992; 
8994; 
8996: 
8997: 
8998; 
899A; 
899B; 


LDX 
LDY 
STY 
LDY 
STY 
LDY 
STY 
LDY 
STY 
LDY 
STY 
ADC 
BMI 
BEQ 
SBC 
TAY 
LDA 
BCS 
ASL 
BCC 
INC 
ROR 
ROR 
ROR 
ROR 
ROR 
ROR 
INY 
BNE 
CLC 
RTS 


KEKKKKKKKKEKKEKKEKKEKKKKEKKEKEKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


MULTSHF 


* * 
* * 
* * 
* This routine shifts the result of a multiplication * 
* to the right. 3 
* * 
* * 


KKK KKKKKKKKKKKKKKKKKKKEKEKKKKEKKKKEKEKKKKEKKKEKKKKKKKKKKKKKKKK 


#$27 ;Index to the address of the result 
$4,X ;Shift the fraction 
$71 ;Right one byte 
$3,X 
S4,X 
$2. X% 
$3,X 
$1,X 
S25 
SO3DF ;Overflow marker for FAC1 
Sax 
#8 ;Increment the exponent by 8 
$8964 ;And continue 
$8964 
#8 ;Create a shift counter 
;In the Y register 
S71 ;Check the rounding flag 
$899A ;Ilf the exponent is zero, then exit 
$1,X ;Otherwise shift 
$898C ;The fraction right one bit 
$1,X 
Si»>X 
$1,X 
525% 
S3.7X% 
$4,X 
;Put the last bit into the accumulator 
;Continue until the shift 
$8986 ;Counter equals zero 
;And exit. 


KKKKKEKKKEKKEKKKKKKEKKEKKKEKKEKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKK 
* * 


FONE 


Constant For ONE (1) 
The five bytes from $899C to $89A0 represent the 


+ + + OF 
t+ + + OF 
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value of one in Floating Point format. This value is* 
used by the Floating Point routines and also as a de-* 


* 
* 
* fault value for the STEP value for the FOR statement.* 
* * 
* 


KHKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKEK 


EX Ml M2 M3 M4 


899C: .BYTE $81,$00,$00,$00,$00 ;1 


KKKHK KKK KKK KK KKK KK KKK KKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KK 


* * 
* LOGCN2 * 
* * 
* This table of Floating Point numbers are the * 
* constants that are used by the LOG function. x 
* * 
KAKKK KKK KKK KKH KKK KK KKK KKK KKKKKEKKKKKKKKKKKKKKKK KKK KKK KKKK 


EX Ml M2 M3 M4 


89A1: .BYTE $03 

89A2: .BYTE S7F,S$5E,$56,SCB,$79 
89A7: .BYTE $80,513,5$9B,S0B, $64 -976584541 
89AC: .BYTE $80,$76,5$38,$93,$16 -961800759 


3 = Polynomial degree then 4 
89Bl: .BYTE $82,$38,SAA,$3B,$20 ;2.88539007 


~434255942 / coefficients 


89B6: .BYTE $80,5$35,$04,5$F3,$31 .707106781 = 1/SOQR(2) 
89BB: .BYTE $81,535,504,5F3,$34 1.41421356 = SOR(2) 
89C0;: .BYTE $80,5$80,5$00,500,$00 =0:..5 

89C5: .BYTE $80,$31,$72,$17, SF8 -693147181 = LOG(2) 


KHEKKKKKKKKKKKKKKKKKKKK KKK KKK KKKKKEKKKKKKKKKKKKKKKKKKKKKKK 


BASIC LOG FUNCTION 


Function syntax: LOG (X) 


EXAMPLE: PRINT LOG (2) 


* 
* 
* 
* 
* 
* This function returns the natural log of the number 
* 
* 
* 
= .693147181 

* 

* 


* 
* 

* 

* 

* 

specified by 'X'. ’ 
* 

* 

* 

* 

* 


KKK KKK KKK KKK KKK KKK KKK KKK KKKKEKKEKKKEKKEKEKKKKKKKKKKKKKK KK KK 


89CA: JSR $8C57 ;Get the sign of FAC] into the accumulator 
89CD: BEQ $89D1 ;If FAC] equals O, then ‘ILLEGAL QUANTITY' error 
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89OCF: 


89D1; 
89D4; 
89D6; 
89D8: 
89D9:; 
89DB: 
89DD: 
89DF: 
89F1; 
89E4: 
89E6: 
89E8: 
89OEB: 
89ED: 
89EF: 
89F2; 
89F4: 
89F6; 
89F9:; 
S9OFB;: 
89FD: 
8A00: 
8A01; 
8A04: 
8A06: 


8A08: 
SAOB: 


BPL 


JMP 
LDA 
SBC 
PHA 
LDA 
STA 
LDA 
LDY 
JSR 
LDA 
LDY 
JSR 
LDA 
LDY 
JSR 
LDA 
LDY 
JSR 
LDA 
LDY 
JSR 
PLA 
JSR 
LDA 
LDY 


$89D4 


$7D28 
$63 
#S7F 


#$80 
$63 
#5B6 
#$89 
$8A12 
#SBB 
#$89 
S8A1E 
#$9C 
#$89 
$8A18 
#SA1 
#$89 
$9086 
#SCO 
#$89 
$8A12 


S8DBO 
#SC5 
#589 
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;If FAC1 equals one, then the value is positive 
;So branch 

;Generate an ‘ILLEGAL QUANTITY' error 

;Get the exponent of FAC1 


';Keep the sign of the exponent on the stack 


;Save the bit 7 value onto the stack 
;Make the FAC1 exponent sign positive 
;Save it 

;Pointer to 

;CONSTANT 1/SQR(2) 

;FAC1L = FAC1 + CONSTANT 1/SQOR(2) 
;Pointer to constant SOQR(2) 


;FAC1]L = SOR(2) /FACL1 
sPointer to constant 1 


;FAC2 = 1 - FACI 

;Pointer to the polynomial 
;Coefficients 

;Calculate the polynomial 
;Pointer to 

;Constant -0.5 

;FAC]L = (-.5 + FAC1) 

;Get bit 7 of the exponent back 
;FAC1 = FAC1 + BIT 7 of the FAC1 mantissa 
;Pointer to 

;Constant LOG(2) 


KKK KKK KKK KKK KKK KK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


JSR 
JMP 


FMULT 


FAC2 = FAC] * MEMORY 


multiplies FAC1 by FAC2, then places the result 


into FAC2. 


$8A89 
$8A27 


* 

* 

* 

* 

* 

This routine moves the value in MEMORY into FAC2, - 
* 

* 

x 

* 


KKKKKKKKEKKEKKEKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK 


;FAC2 = CONSTANT 
;BASIC MULTIPLY 
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KKEKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KK 


x * 
* FAC] = - 0.5 * 
* * 


KKEKKKKKK KK KKK KKK KKKKKKEKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KK 


8AOE: LDA #576 ;Pointer to 

8A10: LDY #S8F ;Constant 0.5 (1/2) 
8A12: JSR S8A89 ;FAC2 = 0.5 

8A15: JMP $8848 ;Add FAC1 to FAC2 


KKK KKKKKKKKKKKKKKaKKKKKK KKK KKK KKK KKK KKK KK KKK KKK KK KK KK KK KKK 


FSUBO 


* * 
* * 
* * 
* FAC2 = MEMORY - FAC1 * 
* * 
* This routine subtracts FAC] from the number stored x 
* in RAM BANK 0 whose address is in the Y register * 
* and the accumulator (LSB,MSB). This is accomplished * 
* by moving the number that is stored in memory into * 
* FAC2, then subtracting FAC] from FAC2, and then * 
* placing the result into FAC2. - 
* * 
* * 


KKKKKKKKK KKK KKK KKK KKK Kk Kk KK KKK KKK Kk kk KKK kkk Kk kkk Kk Kk kkk KKK 


8A18: JSR S8A89 ;Move the Floating Point number stored in RAM 
;BANK O into FAC2 
8A1B: JUMP $8831 ;BASIC SUBTRACTION FUNCTION 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKEKKK 


FDIV 
FAC2 = MEMORY / FAC1 


* 
* * 
* * 
* * 
* * 
* This routine divides a number that is stored in * 
* memory by FAC1. This is accomplished by moving the * 
* number that is stored in memory into FAC2, * 
* then performing the division, and finally placing * 
* the result into FAC2. is 
* * 
* * 


KI KKK KI KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKEK 


8A1E: JSR $8A89 ;Move constant whose address is pointed to by 
;The accumulator and Y register into FAC2 (ARG) 
8A21: JMP S8B4C ;Perform the division 
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8A24: 


8A27: 
8A29; 
8A2C: 
8A2F: 
8A31: 
8A33: 
8A35: 
8A37: 
8A39: 
8A3B; 
8A3E: 
8A40; 
8A43; 
8A45: 
8A48; 
8A4A; 
8A4D; 
SA4F; 
8A52: 


8A55: 
8A57: 
8A58: 


JSR 


$8AB4 


;Move the value to FAC2 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk kkk k kkk 


BNE 
JMP 
JSR 
LDA 
STA 
STA 
STA 
STA 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
JMP 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


Function syntax: 


FMULT 


BASIC MULTIPLY (*) FUNCTION 


This function returns the result of multiplying 
the 'first expression' by the 'second expression’. 


$8A2C 
S8A88 
$S8AEC 
#0 
$28 
$29 
$2A 
$2B 
$71 
S8A55 
$67 
S8A55 
$66 
$8A55 
$65 
$8A55 
$64 
S8A5B 
$8BC1 


* 
* 

* 

* 

* 

first exp. * second exp. = 
* 

* 

* 

* 

* 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk kkk kkk kk kkk kkk 


;If not equal to zero, then branch 
7;RTS 

;Add the exponents of FAC1 and FAC2 
;zZero the temporary storage area 


;Get the overflow flag and multiply it 

;By FAC plus the value in the storage area 
7;Do the same for M4 

;And M3 

7;And M2 


;And M1 


sMove the result into FAC] and exit 


Kk kK KK KK KKK KKK KKKKKKKEKKKEKKEKKKKKKKKKKKKKKKKKKKKKK KKK KKK K 


* 
* 
* 
* 
* 
* 
* 


BNE 
SEC 
JMP 


MLTPLY 


the number of times indicated by the accumulator. 


* 

* 

* 

This subroutine adds a mantissa byte of FAC2 to FAC1 * 
* 

* 

* 


$8A5B 


$8962 


KKKKKAKKKKKKKEKKKKKKKKKK KK KKK KKKKKKKKKKKKKKKKKKKKKKKK KKK 


;If there is a number to multiply, then branch 
;set the carry for later use 
;Shift the value right 
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8A5B: LSR ;Divide by 2 | 

8A5C: ORA #$80 ;Set bit 7 of the accumulator 

8A5E: TAY ;Save the value to the Y register 

8A5F: BCC S8A7A 

8A61: CLC 

8A62: LDA $2B ;Add the temporary storage value of M4 

8A64: ADC S6E ;To M4 of FAC2 

8A66: STA $2B ;And save it back to the temporary storage area 
8A68: LDA S2A 

8A6A: ADC $6D ;Do the same for M3 


8A6C: STA S2A 
8A6E: LDA $29 
8A70: ADC S6C ;And M2 
8A72: STA $29 
8A74: LDA $28 


8A76: ADC $6B ;And Ml 

8A78: STA $28 

8A7A: ROR $28 ;Shift the value of FAC1 
8A7C: ROR $29 ;Right one bit 


8A7E: ROR S2A 
8A80: ROR $2B 


8A82: ROR $71 ;Including the rounding flag 
8A84: TYA ;Get back the accumulator value 
8A85: LSR ;Continue until eight 

8A86: BNE S8A5E ;Shifts are done 

8A88: RTS ;And exit 


kkkkkkkkkkekekkKkekkkkkekekkkkkkkkeKeKKKKKKKKKKKKRKKKKKKKKKKK KKK 


CONUPK 
Move a Floating Point number from RAM BANK O to FAC2 


This routine will move the Floating Point number 
that is stored in memory into FAC2. Upon entry into 
this routine the accumulator and the Y register hold 
the LSB and MSB of the address that points to the 
Floating Point number to be moved from memory into 
FAC2. 


+ + + + &€ € FF F&F FF FF F F 
+ +€ + © + &€ FF F FF FF F F 


Kkakkkkk kk kk kkk KKK KKK KKKKKKKKKKKKKKKRKRKKKKKKKKKRKKKK KKK KKK K 


8A89: STA $24 ;Address of where the 

8A8B: STY $25 ;Floating Point value is stored 
8A8D: LDY #4 ;Index for 5 bytes to read 
8A8F:; LDA ($24),Y ;Get M4 from memory 

8A91: STA S6E ;Save it into FAC2 
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8A93: 
8A94;: 
8A96: 
8A98: 
8A99: 
SA9B;: 
8A9D; 
SA9E: 
SAA0; 
8AA2;: 
8AA4: 
SAA6: 
SAAB: 
SAAA: 
SAAC; 
SAAD; 
SAAF : 
8AB1: 
8AB3: 


8AB4: 
8AB6: 
8AB8: 
SABB: 
8ABC: 
8ABE: 
8AC1; 
8AC3; 
8AC4; 
8AC7: 
8AC9: 
8ACA: 
8ACD: 
8ACF: 
8ADO;: 
8AD3: 
8AD5: 
8AD7: 


DEY 
LDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 
STA 
EOR 
STA 
LDA 
ORA 
STA 
DEY 
LDA 
STA 
LDA 
RTS 


STA 
Sry 
LDA 
PHA 
LDY 
JSR 
STA 
DEY 
JSR 
STA 
DEY 
JSR 
STA 
DEY 
JSR 
STA 
EOR 
STA 


($24),Y 
S6D 


($24) ,Y 
$6C 


($24),Y 
S6F 

$68 

$70 

S6F 
#580 
S6B 


($24),Y 
S6A 
$63 


i Gas ae Cae aE 
;Get M3 from memory 
;Save it into FAC2 


;Get M2 from memory 
;Save it into FAC2 


;Get Ml from memory 

;Save as the sign of FAC2 

;Compare the sign of FAC2 into FAC1 
;And save the result 

;Set bit 7 of Ml 

;And store it back into FAC2 


;Get the exponent of the value in memory 

;Save it into FAC2 

;Get the exponenet of FAC1 into the accumulator 
;And exit 


KKKKKKK KKK KKK KKK KKK KEK KKKKKKEKKKKKKKEKKKKKKKK KKK KKK K KKK KKK 


* 
* 
* 
* 
* 
* 
* 


$24 
$25 
SFFOO 


#4 
$03B7 
S6E 


$03B7 
S6D 


$03B7 
S6C 


$03B7 
S6F 
$68 
$70 


* 
This routine reads a Floating Point number from RAM * 
BANK 1 into FAC2. Upon entry to this routine the * 
accumulator and the Y register hold the LSB and MSB * 
of the address that points to the number to be moved. * 

* 

* 


KKK KK KK KKK KKK KKK KKK KKKKKKKEK KKK KKK EKKKEKKEKKEKKKKKKKKKK 


;Save the Address of where in RAM BANK 1 the 
;Floating point value is stored 

;Save the current memory configuration 

,;Onto the stack 

;Index for 5 bytes to read 

;Get M4 of the value in memory 

;Save it into FAC2 


;Get M3 of the value in memory 
;Save it into FAC2 


;Get M2 of the value in memory 
;Save it into FAC2 


;Get Ml of the value in memory 
;Save it into FAC2 

;Compare the sign of FAC2 to FAC1 
;And save the result 
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8AD9; 
SADB: 
8ADD: 
SADF: 
8AEO: 
8AE3: 
8AE5: 
SAE6: 
8AE9; 
SAEB: 


8AEC: 
SAEE; 
SAFO; 
SAF 1: 
8AF3: 
8SAFS;: 


SAF7: 
SAF8: 
SAFS9: 
SAFB: 
8AFD: 
SAFF: 
8B01:; 
8B04: 
8BO6: 
8BO08; 


LDA 
ORA 
STA 
DEY 
JSR 
STA 
PLA 
STA 
LDA 
RTS 


LDA 
BEQ 
CLC 
ADC 
BCC 
BMI 


CLC 
BY 
BPL 
ADC 
STA 


BNE 


JMP 
LDA 
STA 
RTS 


S6F ;Set bit 7 of Ml 
#$80 ;And store it back in FAC2 
$6B 
$03B7 ;Get the exponent of the value in memory 
S6A ;Save it into FAC2 
;Restore the original memory configuration 
SFFOO 
$63 ;Get the exponent of FAC] into the accumulator 


sAnd exit 
KKK K HK KK KKH KKK KK KKK KKK KKK KKH KKK KKK K KKK KKK KKK KKK KR KKK KKK KK 
MULDIV 


Add the exponent of FAC1 to the exponent of FAC2 


+ + * * 


* 
* 
* 
* 
* 
* 


KKKKKKKKKKKEKKEKKEKKKKKKKKKKKKKKKKKKKK KK KK KKK KKK KKK KKK KK KK 


S6A s;If the value of FAC2 is zero, 

S8BOF ;Then exit 
;Clear the carry flag for ADDITION 

$63 ;Add the exponent of FAC2 to exponent of FAC1 

S8AF9 ;Branch if there was no overflow 

$8B14 ;If there was an overflow and the result is 
;Negative then generate an 'OVERFLOW' error 
;Clear the carry flag for addition 

TE $2C ;Skip next instruction 

S8BOF ;If sum of two exponents is less than 128, exit 

#580 ;Set bit 7 of the exponent 

$63 ;Save the exponent of FAC1 

$8B04 ;If the result is zero, 

S88DA ;Save it as the sign of FAC1 and exit 

$70 ;Save the result of the comparison 

$68 s;As the sign of FAC1 
;And exit 


KKK KI KKK KKK KKK IKK KKK KKK KKK KKK KK KKKKKEKKKKKEKEKKKKKEKKKKKKKKK 


* 
* MLDVEX so 
* * 
* This routine handles the 'OVERFLOW' and 'UNDERFLOW' * 
* errors. ™ 
* * 
* * 


KKK KKK KKK KKK KKK KKK KKK KE KKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKK 
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8B09: LDA $68 ;Get the sign of FAC1 

8BOB: EOR #SFF ;Reverse it (+ = -) or (- = +) 

8BOD: BMI $8B14 ;If it is '-', then 'OVERFLOW' error 

8BOF: PLA ;Pull the return address 

8B10: PLA ;Off the stack 

8B11: JMP $88D6 ;Make the sign and exponent of FAC1 = to zero 
8B14; JMP $895D ;Generate an 'OVERFLOW' error 


KkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkKkekKkkkeK KKK KKK KKK KKK KKKKK 


* * 
* MULT10 * 
* * 
= FAC1 = FAC1 * 10 is 
* * 
* This routine multiplies FAC] by 10 to aid in ~ 
* converting a Floating Point number to a series of * 
* ASCII numerals. = 
* * 
kkkkkkkkkkkkkkkkekkke kkk kkekekkek kkk KKK KKK KKK KKK KKK KKK K KKK KK KK 
8B17: JSR $8C38 ;Round off and place the Floating Point number 
;From FAC1 to FAC2 
8B1A: TAX ;Save the sign of the exponent into X register 
8B1B: BEQ $8B2D ;If FAC] equals zero, then exit 
8B1D: CLC ;Clear the carry flag for addition 
8B1IE: ADC #2 ;Exponent = Exponent +2(EXPONENT = EXPONENT * 2) 
8B20: BCS $8B14 ; 'OVERFLOW' error 
8B22: LDX #0 ;Make the result 
8B24: STX $70 ;Of the sign zero 
8B26: JSR $8855 | 
8B29: INC $63 ;Increase the exponent by one 
8B2B: BEQ $8B14 ; ‘OVERFLOW! error 
8B2D: RTS ;Exit 


kkkkkkkkkkkkkkkkkkkKkkkkkkkkkkkkkkkkkkkkkKk KKK kkk kk kkk kkk kk 


* * 
* Constant for Floating Point * 
* * 


KKKKKKKKKKKKKKKKHKKEKKEKKKKKKKKKKKKEKKKKKKKKKKKKKkKkkkkkKKKKKK 


EX Ml M2 M3 M4 


8B2E: .BYTE $84,$20,$00,$00,$00 ; 10 
8B33: LDX #20 ; "DIVISION BY ZERO' error 
8B35: JMP $4D3C ;Jump to the error message routine 
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8B38:; 
8B3B: 
8B3D: 
8B3F: 
8B41: 
8B43: 
8B46: 
8B49; 


8B4C: 


8B4E; 
8B51: 
8B53: 
8B54: 
8B56: 
8B58; 
8B5B: 
8B5D; 


8B5F; 
8B61; 
8B63: 
8B65; 


C-128 BASIC 7.0 Internals 


Kkkk kkk kkk kk KKK KKK KKK KKKKRKKKKKKKKKK KK KK KKK KKK KKK KKK KR KKK 


* 
* 
* 
* 
* 
* 
* 
* 


BEQ 


JSR 
LDA 
SEC 
SBC 
STA 
JSR 
INC 
BEQ 


LDX 
LDA 
LDY 
CPY 


DIV10 


This routine the value in FAC1 by 10. 


$8C38 
#52E 
#$8B 
#0 
$70 
S8BD4 
S8B4C 
S8AB4 


* 
* 
* 
FAC] = FAC1 / 10 * 
* 
* 
* 
* 


KKKKKKKRKKKKKKKKKKKKKKKKRKKKKKKKKRKKKKKKKKKKKKKKKKKRKKKKKEK 


;Move FAC] to FAC2 (ARG) 
;Pointer to the Floating Point 
;Constant of 10 

;Clear the sign comparison flag 


;Move the constant of 10 to FAC1 
;And divide FAC1 by 10 

;Get Floating Point value from the address in 
;Pointed to by the accumulator and Y register 
s;And it into FAC2 (ARG) (BANK 1) 


KKKKHKKKHKKIKKKKHKKKKKKKAKKKKEKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 


Function syntax: 


This function will return the result of the 
expression’ divided by the 'second expression’. 


KHKKKIKKKKKKKKKKKKKKKKKKKKKKKKKKEKKEKKKAEKKKKEKKKKKKKKEKKEKSK 


$8B33 


$8C47 
#0 


$63 
$63 
S8AEC 
$63 
$8B14 


#SFC 
#1 
S6B 
$64 


BASIC DIVISION (/) FUNCTION 
first exp. / second exp. 


* 
* 
* 
* 
* 
fi ese * 
* 
* 
* 


;If FAC1L equals zero, then 
;Generate a 'DIVISION BY ZERO' 
;Round off FAC1 

;Calculate the 

;Two's complement of the exponent of FAC1 


error 


;Add the exponents of FAC] and FAC2 together 
;Increment the exponent by one 

;If there was an overflow, then 

;Generate an 'OVERFLOW' error 

;Index to the storage area for FAC 

;Set up for eight shifts 

;Compare M1 of FAC2 

;To Ml of FAC1 
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8B67: 
8B69: 
8B6B; 
8Bé6D: 
8B6F; 
8B71; 
8B73; 
8B75:; 
8B77: 
8B79; 
8B7A:; 
8B7B: 
8B7D: 
8B7E: 
8B80; 


8B82; 
8B84: 
8B86: 
8B87; 
8B89: 
8B8B: 
8B8D; 
SB8F; 
8B91; 
8B93; 
8B95:;: 
8B97; 
8B98;: 
8B9A: 
8B9C: 
8B9E: 
8BAO; 
8BA2; 
8BA4: 
8BA6: 
8BA8: 
8BAA: 
8BAC: 
8BAE: 
8BBO: 
8BB1: 
8BB4: 
8BB6: 
8BB8: 
8BB9; 
8BBA;: 


BNE 
LDY 
CRY 
BNE 
LDY 
CPY 
BNE 
LDY 
CPY 
PHP 
ROL 
BCC 
INX 
STA 
BEQ 


BPL 
LDA 
PLP 
BCS 
ASL 
ROL 
ROL 
ROL 
BCS 
BMI 
BPL 
TAY 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
TYA 
JMP 
LDA 
BNE 
ASL 
ASL 
ASL 


$8B79 
S6C 
$65 
$8B79 
$é6D 
$66 
$8B79 
S6E 
$67 


$S8B86 


S2B,X 
S8BB4 


$8BB8 
#1 


$8B97 
$6E 
$6D 
$6C 
$6B 
$8B79 
$8B63 
$8B79 


S6E 
$67 
S6E 
$6D 
$66 
$6D 
S6C 
$65 
S6C 
S6B 
$64 
$S6B 


S8B89 
#$40 
$8B86 


;Branch if they are not the same 
;Compare M2 of FAC2 

;To M2 of FAC1 

;Branch if they are not the same 
;Compare M3 of FAC2 

;TO M3 of FAC1 

;Branch if they are not the same 
;Compare M4 of FAC2 

;TO M4 of FAC1 

;Save the result of the comparison 

;See if we have done eight shifts yet 
s;And Branch if not 

;Increment to the next byte in storage 
;Save the result 

;If the byte just saved was M4, then branch to 
;Do the overflow byte 

;If the overflow byte is done, then exit 
;Set up for eight shifts 

;Restore the result of the comparison 
;If the dividend is larger, branch to subtract 
;Shift the dividend 

;Left one bit 


;Branch with comparison equal to one 
;Branch to compare FAC2 to FAC1 
;Branch with comparison equal to zero 
;If the dividend is larger, then 
;Subtract M4 of FAC1 

;From M4 of FAC2 


;Subtract M3 of FAC1 
;From M3 of FAC2 


;Subtract M2 of FACI1 
;From M2 of FAC2 


;Subtract Ml of FACI1 
;From Ml of FAC2 


;Repeat until complete 
;Perform two more iterations 
;For the overflow byte 
;Shift the result of 

;The overflow byte 

;6 bytes to the left 
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8BBB: 
8BBC:; 
8BBD: 
S8BBE: 
8BCO: 


8BC1: 
8BC3:; 
8BC5: 
8BC7: 
8BC9; 
8BCB: 
8BCD; 
8BCF: 
8BD1: 


8BD4: 
8BD6: 


8BD8; 
8BDA: 
8BDC: 
8BDE: 
8BDF: 
8BE1: 
8BE3: 
8BE4 3: 
8BE6: 
8BE8: 
8BE9; 
8BEB: 
8BED: 
8BEF: 
8BF1; 


ASL 

ASL 

ASL 

STA $71 ;Save the result 

PLP ;Get back the result of the last comparison 


KKEKKKK KK KKK KKK KK KKK KEK KEKE KKK KKK KEKKKKKEKKKEKKKKKKKKEKKKKKKK 


* * 
* Move the result into FAC1 * 
* * 


KKEKKKKEKKKKEKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKEKK KK KKK KKKK 


LDA $28 ;Transfer 

STA $64 ;The resulting floating point 
LDA $29 ;Value from $28 - $2B 

STA $65 ;To FACL 

LDA S2A 

STA $66 

LDA $2B 

STA $67 

JMP S$88B6 ;Normalize FAC1 and exit 


KEKKKKKKKKKKKEKKKKKEKKKEKKKKKKK KKK KKKKKKKEKKKKKKEKKKKKKKKKKKKK 
* * 
* This routine transfers the constant whose address is * 
* stored in the accumulator and the Y register to FAC1.* 
* * 


KEKKKKKKKKKKKKKKKKKKEKKEKKKKKKEKKKEKKEKKKKEKKKKKKKKKKK KKK KKKKEK 


STA $24 ;Save the LSB 

STY $25 ;And the MSB of the address of the Floating 
;Point value 

LDY #4 

LDA ($24) ,Y ;Read M4 from memory 

STA $67 ;Save it into FAC1 

DEY 

LDA ($24),Y ;Read M3 from memory 

STA $66 ;Save it into FACI1 

DEY 

LDA ($24),Y ;Read M2 from memory 

STA $65 ;Save it into FAC1 

DEY 

LDA ($24) ,Y ;Read Ml from memory 

STA $68 ;Save as the sign of FAC1 

ORA #580 ;Set bit 7 of Ml 

STA $64 ;And save it into FAC1 

DEY 
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8BF2: 
SBF 4; 
SBF6; 
8BF8:; 


8BF9: 
8BFB; 
8BFC: 
8BFE: 
8C00;: 
8C03; 
8C05; 
8C07: 
8C09; 
8COB: 
8COD: 
8COE: 
8C10; 
8C12: 
8C13: 
8C15:; 
8C17: 
8C18; 
8C1A; 
8C1C; 
8C1E: 
8C20: 
8C21: 
8C23: 
8C25; 
8C27: 


8C28: 
8C2A: 


LDA 
STA 
STY 
RTS 


($24) ,¥ 


$63 
$71 


;Read the exponent from memory 
;Save it into FAC1 

;Clear the rounding flag 

;Exit 


KKKKKKEKKKKKKEKKKKK KK KKK KEKE KKKKKKKEKKKEKKKKKKKKKKKKKKKKKEK 


* 


* 


* 


* 


* 


This routine moves FAC1 to either temporary buffer * 
number three or four. * 


* 


KRKKKKKKKKKEKKKKKKKKKEKKKKEKEKKKKKKKKEKKKEKKKKKKKKEKKKKKKKKK 


LDX 


. BYTE 


LDX 
LDY 
JSR 
STX 
STY 
LDY 
LDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 
ORA 
AND 
STA 
DEY 
LDA 
STA 
STY 
RTS 


#SSE 
$2C 
#559 
#0 
$8C47 
$24 
$25 
#4 
$67 


($24) ,Y 


$66 


($24),Y 


$65 


($24),Y 


$68 
#S7F 
$64 


($24),Y 


$63 


($24),¥Y 


$71 


;SO5E, Temporary buffer #3 

;MASK 

;$059, Temporary buffer #4 

;High byte of the address of the buffer 
;Round off FAC] 

;Store the target 

;Address in locations $24, $25 

;Number of bytes minus one to move 
;Transfer M4 

;To target address 


;Transfer M3 
;To target address 


;Transfer M2 
;To target address 


;Compute the sign bit 
;OF M4 

;And store at 

;The target address 


;Transfer exponent 
;To target address 


;And exit. 


KHKKKKKKKKKKKKKKKEKKEKKKEKKEKEKKEKKEEKKEKKKKEKKEKKKKKEKKEKKEKKKEK 


* 


* 


* 


* 


MOVE FAC2 to FAC1 * 
* 


KKKKKH KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKEK 


LDA 
STA 


S6F 
$68 


;Transfer the sign of ARG (FAC2) 
7;To FACIL 
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8C2C: LDX #5 ;Transfer the 5 byte floating point value 
8C2E;: LDA $69,X ;From ARG (FAC2) 

8C30: STA $62,X ;To FAC1 

8C32: DEX 

8C33: BNE $8C2E ;Clear the sign comparison 

8C35: STX $71 ;Flag 

8C37: RTS sExit 


KKKKKKKEKKKKEKKEKEKKKEKKKEKKKKKKKKKEKKKKKEKKKKKKKKKKKKKKKKKK KK KK 


* : * 
. MOVE FAC1 to FAC2 . 
* * 


KKKKKKEKKKHEKEKKKKKKKKEKEKEKEKKKKKEKKEKEKKEKKKKKKKKKKKKKK KK KK KKK 


8C38: JSR $8C47 ;Round off FAC1 

8C3B: LDX #6 ;Transfer 5 bytes 

8C3D: LDA $62,X ;From FAC1 

8C3F: STA $69,X ;To ARG (FAC2) 

8C41: DEX 

8C42: BNE $8C3D ;Clear the sign comparison 
8C44: STX $71 ;Flag 

8C46: RTS ;Exit 


KKKKKKKKKEKKKKKKEKKKKKKKKKKKKEKKEKKKKKEKKKKKKKKKKKKKKKKRKKKKKKEK 


* * 
* ROUND OFF FAC1 * 
* * 


KKEKKKKKKKKKKKKKKKKKEKKEKKKKKKKKEKKKKKEKKKKKKKKKKKKKKKKKKKKKEK 


8C47:; LDA $63 ;If the value in FAC1 

8C49:; BEQ $8C46 s;Is zero, then exit 

8 4B: ASL $71 ;If the flag is not set 

8C4D: BCC $8C46 ;For rounding, then exit 

8C4F; JSR $894E ;Round off FAC1 

8C52: BNE $8C46 ;If the value does not read normalizing, exit 
8C54;: IMP $8917 ;Normalize FAC] and exit 


KKK KKK K KKK KKK KKK KKK K KKK KKKKKKKKEKKKEKKKKKKEKKKKKKKKKKKRKKKEK 


GET THE SIGN OF FAC1 


This routine gets the sign of FAC1 and then sets 
the accumulator equal to the following values: 


$00 - if FAC1 equals zero 


+ + ££ + + FF FF F F 


+ + + F F F HF 


$01 - if FAC] is positive 
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* SFF - if FAC] is negative * 


* * 


KK KKK KKK KKK KI KKK KK KKK KK KKK KKKKEKKKEKKKKKKKKKKK KKK KKKKKK 


8C57: LDA $63 ;If the value in FAC] is zero, 

8C59: BEO $8C64 ;Then exit 

8C5B: LDA $68 ;If the value in FAC1 

8C5D: ROL ;Is negative, 

8C5E: LDA #SFF ;Then exit with a value of SFF in accumulator 
8C60: BCS $8C64 ;If the value in FAC1 

8C62: LDA #1 ;Is positive, then exit with 

8C64: RTS ;The accumulator containing the value of $01 


KKKKKKKKKEKKKKKKKKKEKKKEKKKKKEKKKKEKKKKEKKKKKKKEKKEKKKKKKKKKKKEKK 


BASIC SGN FUNCTION 


Function syntax: SGN (X) 


sign of the number specified by 'X'. The value 
returned will be '+1' for values of 'X' greater than 
zero, 'O' if the value of 'X' is zero, and '-1' if 


* * 
* * 
* * 
* * 
* * 
* This function returns a value which represents the - 
* * 
* * 
* * 
* the value of 'X' is less than zero. * 
* * 
* * 


KEK KK KK KKK KK KK KKK KKK KKK KKK KKK KKK KEKKKKEKKKKEKKKKKKKKKKKK 


8C65: JSR $8C57 ;Get the sign of FAC1 ($01 = Positive, SFF = 
;negative) 

8C68: STA $64 ;Save the sign of FACIL 

8C6A: LDA #$00 ;Clear M2 

8C6C: STA $65 ;Of FACL 

8C6E: LDX #$88 ;For exponent of 7 + 129 = 136 ($88) 

8C70: LDA $64 ;Iinvert the sign of FAC1 

8C72: EOR #SFF ;And shift the result 

8C74: ROL ;Into the carry bit 

8C75: LDA #0 ;Clear the remainder of FAC1 

8C77: STA $67 ;Clear mantissa 

8C79: STA S66 ;LSB high/low bytes 

8C7B: STX $63 ;Save the exponent of 7 

8C7D: STA $71 ;Clear the rounding byte 

8C7F: STA $68 ;And the sign byte of FAC1 

8C81:  JMP $88Bl ;Convert the SGN value to Floating Point 


;Format and exit 
3; (1 = positive, O = value zero, -1 = negative) 
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KKKKKEKKKKKKKKKKKKKEKKEKKKKKKKKKKKKKKK KKK KK KKK KKK kkk Kk kkk kkk 


BASIC ABS FONCTION 
Function syntax: ABS (X) 


This function returns the absolute (positive value) 


* 
* 
* 
* 
* 
* 
* of the number or expression specified for 'X'. 
* 

* 


* 
* 
* 
* 
* 
* 
* 
* 
* 


Kak KKK KKK KK KK KKK KKK KKK KK KKK KK KK KKK KKKKKK KKK KK KKK KKK KK KK 


8C84: LSR $68 ;Make the sign bit positive for FAC1 
8C86: RTS ;Exit routine 


KKKKKEKKKKKKKKKEKKEKKKKKKKKEKKKEKEKKKK KK KKK KKKKKKKKKKK KKK KKKK 


FCOMP 
COMPare memory with FAC1 


* * 
* * 
* * 
* * 
* * 
* This routine compares the Floating Point value in * 
* memory whose address is contained in the accumulator * 
* and Y register to the Floating Point value in FAC]. * 
* Upon return from this routine, the accumulator will * 
* hold a zero if the two values were identical anda * 
* non-zero value if there was no match. = 
* * 
* * 


KKK KK KKK KK KKK KKK KKK KK KK KEKE KKKKKHEKKKKKKKEKKKKKKKKK KKK KKK 


8C87: STA $26 ;Save the LSB and 
8C89: STY $27 ;The MSB of the address in memory of 
;The Floating Point value 
8C8B: LDY #0 ;Zero the index pointer 
8C8D: LDA ($26),Y ;Get the exponent of the Floating Point value 
8C8F: INY ;Increment the index pointer to MANTISSA 1 (M1) 
8C90: TAX ;Place the exponent in the X register 
8C91: BEQ $8C57 ;If the Floating Point value in memory 
;Is equal to zero, then exit 
8C93: LDA ($26) ,Y ;Get Ml of the value in memory 
8C95: EOR $68 ;Compare the signs of FAC1 and MEMORY 
8C97: BMI $8C5B ;If they are different, then exit 
8C99; CPX $63 ;Compare the exponents of the two values 
8C9B: BNE S8CBE ;And branch if they are different 
8C9D: LDA ($26),Y ;Get Ml of the value in memory 
8C9F: ORA #580 ;Set bit seven 
8CA1: CMP $64 ;And compare it to Ml of FAC1 
8CA3: BNE S8CBE ;Branch if the two values are different 


457 


Abacus Software 


C-128 BASIC 7.0 Internals 





8CA5: 
8CA6; 
8CA8; 
8CAA;: 
8CAC: 
8CAD; 
8CAF;: 
8CB1; 
8CB3: 
8CB4:; 
8CB6; 
8CBB8; 
8CBA: 
8CBC: 
8CBE: 
8CCO; 
8CC2: 
8CC4; 


8CC7: 
8CC9: 
8CCB;: 
8CCC; 
8CCE?: 
8CDO; 
8CD2; 
8CD3: 
8CD5: 
8CD8; 
8CDB: 
8CDC: 
8CDE: 
8CE0O:; 
8CE2; 
8CE5; 


INY 
LDA 
CMP 
BNE 
INY 
LDA 
CMP 
BNE 
INY 
LDA 
CMP 
LDA 
SBC 
BEQ 
LDA 
BCC 
EOR 
JMP 


LDA 
BEQ 
SEC 
SBC 
BIT 
BPL 
TAX 
LDA 
STA 
JSR 
TXA 
LDX 
CMP 
BPL 
JSR 
STY 


($26) ,Y¥ 


$65 
S8CBE 


($26) ,Y 


$66 
S8CBE 


#S7F 
$71 


($26),Y 


$67 
$8CE8 
$68 
$8CC4 
#SFF 
$8C5D 


;Increment the index pointer to MANTISSA 2 
;Get M2 of the value in memory 

;Compare it to M2 of FAC1 

;Branch if the two values are different 
;Increment the index pointer to MANTISSA 3 
;Get M3 of the value in memory 

;Compare it to M3 of FACIL 

;Branch if the two values are different 
;Increment the index pointer to MANTISSA 4 
;If the value is to be 

;Rounded, then compensate by setting carry flag 
;Get M4 of the value in memory 

;Compare it to M4 of FAC1 

;And exit if the two values are the same 

;Get the sign of FAC1 

;If M4 in memory is larger than M4 in FAC], exit 
;Result smaller, then invert the sign 

;Exit 


(M2) 


(M3) 


(M4) 


KKEKKKKKKKEKKKKEKKEKKEKE KEKE KEKE KEKKKEKE KEK KKK KKKKEKEKRKKKKEKKKKKKKKEK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


This routine converts the value that is in FAC1 into 
a four byte signed integer in locations $64 - $67 
with the most significant byte first. 


$63 
$8D18 


#SA0 
$68 
$8CDC 


#SFF 
$03DF 
$892C 


#$63 
#S5F9 
$8CE9 
$8979 
$SO3DF 


Convert FAC] into an INTeger within FAC1 


QINT 


+ + + + £ € FF F 


KREKEKKKKKKKKKEKKK KKK KKK KE KKKKKKEKKEKKKKEKKEKEKKKKKEKKEKEKKKKKKEKK 


;lf the value in FAC] is zero, 

;Then exit 

;Subtract 160 

;From the exponent of FAC1 to check for a whole 
;Number, if the exponent of FAC] is positive, 
;Then branch 

;Ilf the result is negative, save accumulator 
;Overflow marker for FAC1 

;Negate FAC1 

;Restore the accumulator 

;Set the index to the FAC] address 

;Branch if eight or more places 

;To be shifted 

;Perform the shift 

;And reset the OVERFLOW marker 
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8CE8: RTS ;Exit the routine 

8CE9: TAY ;Save the accumulator 

8CEA: LDA $68 ;Save bit seven 

8CEC: AND #580 ;Of the sign byte of FAC1 

8CEE: LSR $64 ;Shift Ml right one bit 

8CFO: ORA $64 ;Condition bit seven of Ml to indicate the sign 

8CF2: STA $64 ;Bit seven set = negative sign 

8CF4; JSR $8990 ;Normalize M2, M3, and M4 

8CF7:; STY SO3DF ;Reset the OVERFLOW marker 

8CFA: RTS ;And exit the routine 
KKKK KKK KKK KIKI KKK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK K 
* * 
* BASIC INT FUNCTION * 
* * 
* Function syntax: INT (X) * 
* * 
* This function returns the integer form of the number * 
* specified for 'X'. It accomplishes this by taking * 
* the value contained within the parentheses and * 
* removing the fractional portion of the number. vi 
* * 
* Enter this routine with the value to be converted * 
* in FAC1. The routine will return the integer form * 
* to FACIL. * 
* * 
KK HHH KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK 

8CFB: LDA $63 ;Get the exponent of FAC1 plus 129 

8CFD: CMP #SAO0 ;lf the exponent is greater than 30, then exit 

8CFF: BCS $8D21 ;Because, there cannot be any fractional values 

;Above the exponent of 30 

8D01i: JSR SAA68 ;Change FAC1 to a four byte signed integer 

8D04;: STY $71 ;Clear the OVERFLOW flag 

8D06: LDA $68 ;Get the sign of FAC1 

8D08: STY $68 ;Make the sign of FAC1 positive 

8DOA;: EOR #580 ;Invert the sign 

8DOC:; ROL ;And put the value into the carry flag 

8DOD: LDA #SA0 ;Make the exponent equal to 30 + 129 

8DOF: STA $63. ;Save the exponent 

8D11: LDA $67 s;Move M4 into a 

8D13: STA $9 ;Temporary storage area 

8D15: JMP $88B1 ;Make FAC1 left binding. 

8D18: STA $64 ;Fill the 

8D1A; STA $65 ;MANTISSA of 

8D1C: STA $66 ;FAC1 with 

8D1E: STA $67 ;Zeros 
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8D20: TAY ;Zero the Y register 
8D21: RTS ;Exit the routine 


KKKKKKKKKKKKKKKKKKKKKKKKKKAKK KK KKEKKKKKKKKKKKKKKKKKKKKKKKK 


ASCFPN 
Change an ASCII number to a Floating Point Number 


* 
* 
* 
* 
* 
This routine converts an ASCII number to its * 
Floating Point equivalent in FAC]. For ASCII values * 
stored in BANK 0, point TXTPTR to the first * 
character of the ASCII string and put the first * 
character in the accumulator. Also, set location : 
SO3DA to zero for BANK 0. Set $03DA to a value * 
greater than zero for BANK 1 and put the address of * 
the ASCII string into locations $24, $25. * 

* 

* 


+ £ + € + £ FF F F F F F FF F 


KAKKK KKK KKK KKK KKK KKK KKK KK KKKEKKKKEKKKKKKKKKKKKKKKKKEKEKKEKKKKK 


8D22: STX SO3DA 


8D25: LDY #0 ;Clear FAC1 

8D27: LDX #SA ;And FAC2 with zeros 

8D29; STY SSF,X 

8D2B: DEX 

8D2C: BPL $8D29 

8D2E: BCC S8D3F ;Branch if the first character is numeric 
8D30: CMP $t-! ;If not, then check for a minus sign '-' 
8D32: BNE $8D38 ;If it is not a minus sign, then branch 
8D34: STX $69 ;If it is a minus sign, then set flag negative 
8D36: BEQ $8D3C ;Branch to get the next character 

8D38: CMP #'+! ;Is the first character a plus sign '+'? 
8D3A: BNE $8D41 ;No, then branch 

8D3C: JSR S8DF5 ;Get the next character from the string 
8D3F: BCC $8D9C ;Branch if the character is a digit 0 - 9 
8D41: CMP ree ;Is the character a decimal point '.'? 
8D43: BEQ $8D73 ;If it is, then branch 

8D45: CMP -° ER ;Is the character an 'E' for exponentiation 
8D47: BNE $8D79 ;No, then branch 

8D49: JSR S8DF5 ;Get the next char from the string after the 'E! 
8D4C: BCC S$8D65 ;If it is a digit 0 - 9, then branch 

8D4E: CMP #'-' ;Is it the token for minus? 

8D50: BEQ $8D60 ;If so, then branch 

8D52: CMP f= ;Is it the minus sign? 

8D54: BEQ $8D60 ;If so, then branch 

8D56: CMP #'+! ;Is it the token for plus? 

8D58: BEQ S$8D62 ;If so, then branch 
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8D5A: 
8D5C: 
8D5E: 


8D60; 
8D62: 
8D65: 
8D67: 
8D69:;: 
8D6B: 
8D6D: 
8D6E:; 
8D70: 
8D73: 
8D75: 
8D77: 
8D793 
8D7B: 
8D7C3 
8D7E: 
8D80; 
8D82: 
8D84: 
8D87:; 
8D89; 


8D8B: 
8D8D: 
8D90: 
8D92; 


8D943; 
8D96; 
8D98: 
8D99; 
8D9C; 
8D9D: 
8D9F:; 
8DA1; 
8DA3: 
8DA6;: 
8DA73; 
8DA8:;: 
8DAA: 
8DAD: 


CMP 
BEQ 
BNE 


ROR 
JSR 
BCC 
BIT 
BPL 
LDA 
SEC 
SBC 
JMP 
ROR 
BIT 
BVC 
LDA 
SEC 
SBC 
STA 
BEQ 
BPL 
JSR 
INC 
BNE 


BEQ 
JSR 
DEC 
BNE 


LDA 
BMI 
RTS 
JMP 
PHA 
BIT 
BPL 
INC 
JSR 
PLA 
SEC 
SBC 
JSR 
JMP 


fry 
S$8D62 
$8D67 


$62 
S8DF5 
$8DC3 
$62 
$8D79 
#0 


$60 
$8D7B 
$61 
$61 
$8D3C 
$60 


S5F 
$60 
$8D94 
$8D8D 
$8B38 
$60 
$8D84 


$8D94 
$8B17 
$60 

$8D8D 


$69 
$8D99 


S8FFA 


$61 
$8DA3 
SSF 
$8B17 


#$30 
$8DBO 
$8D3C 


;Is it the plus sign? 

;If so, then branch 

;If it is not the plus sign, then combine the 
;Exponent and the fraction 

;Set the flag for a negative exponent 

;Get the next character of the string 

;Branch if it is a digit 0 - 9 

;If the sign of the exponent 

;Is positive, then branch 

;Calculate the two's complement 

;Of the exponent 

;And save it 

;Combine the exponent and the fraction 

;Set the flag for decimal point 

;If a decimal point was already found, 

;Then branch - this is the end of the number 
;Get the two's complement of the exponent 
;Subtract the number of digits 

;After the decimal point from the exponent 
;And save the result 

;If there are no digits after dec. point, exit 
;If value is positive, then multiply FAC by 10 
;If value is negative, then divide the FAC by 10 
;Increase the exponent by one 

Continue until the decimal point has been 
;Completly shifted 

;Exit 

;Multiply the FAC by 10 

;Subtract one from the exponent 

s;Continue until the decimal point has been 
;Completely shifted 

;If the value is negative, 

;Then branch to set the negative flag for FAC] 
;Else, exit 

;Adjust the negative flag in FAC1 

;Save character from the string onto the stack 
;Check if there was a dec. point before number 


;Increment the decimal place counter by one 
;Multiply FAC1 by 10 

;Get character from string back off the stack 
;Convert the ASCII digit 

;To its HEX equivalent 

;Add the value in the accumulator to FAC1 
;Continue with the next character 
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8DBO:; 
8DB1: 
8DB4 3 
8DB5: 
S8DB8: 
8DBA: 
8DBC;: 
8DBE: 
8DCO: 
8DC3: 
8DC5: 
8DC7: 
8DC9; 
8DCB: 
8DCD: 
8DCF: 


8DD2: 
8DD3:; 
8DD4; 
8DD5: 
8DD7: 
8DD8: 
8DD9: 
8DDB: 
8DDD: 
8DEO: 


8DE2; 
8DE5: 
8DE8: 


8DEB: 
8DED: 
8DEE: 


KKK KKK KKK KKK KIKKK KKK KK KKK KKK KKK KKK KK KHKKKKKKKKKKKKK KK KKK 


* * 
* FINLOG * 
* * 
* FAC1 = FAC1 + Accumulator x 
x * 
* This routine takes the numerical value that is in : 
* the accumulator and adds that value to the Floating * 
* Point value that is in FAC1. * 
* * 
KEKKKKKKKKKKKRKKKKK KKK KKK KKK KKEKKKKKKEKEKKEKKKKKKKKKKKKEK 


PHA 
JSR 
PLA 
JSR 
LDA 
EOR 
STA 
LDX 
JMP 
LDA 
CMP 
BCC 
LDA 
BIT 
BMI 
JMP 


ASL 
ASL 
CLC 
ADC 
ASL 
CLC 
LDY 
STA 
LDA 
BNE 


JSR 
JMP 
JSR 


ADC 
SEC 
SBC 


$8C38 


$8C68 
$6F 
$68 
$70 
$63 
$8848 
$60 
#S50A 
$8DD2 
#564 
$62 
$8DFO 
$895D 


$60 


#0 
$79 
$03DA 
S8DE8 


$03C9 
S8DEB 
$03B7 


$79 


#530 


;Save the value to be added onto the stack 
;Transfer FAC] to FAC2 

;Get the value to be added off the stack 

;Put the value in the accumulator into FAC1 
;Get the sign from FAC2 

;Compare the sign of FAC] to the sign of FAC2 
;And save the result 

;Get the exponent of FAC1 into the X register 
;Add FAC] to FAC2 

;Get the exponent of the Floatino Point number 
;If the value of the exponent is less 

;Than 10, then branch 

;lf the sign of the exponent 

;Is negative, 

;Then branch 

;If the sign of the exponent is positive, 
;Then and error will result 

;Multiply the exponent by 2 

;By 4 


;By 5 
;By 10 


;zZero the index pointer 

;Save the exponent 

;Get the bank number to get the character from 
;If the bank is not zero, then get the character 
;From BANK 1 

;Get the character which is pointed to by TXTPTR 
;Add it to the exponent 

;Get the char. which is pointed to by locations 
3$24, $25 from BANK 1 

;Add it to the exponent 

;Subtract $30 

;To create the HEX equivalent 
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8DFO: STA $60 ;And save it 

8DF2: JMP $8D62 ;Continue to the next character 

8DF5: LDA $O03DA ;Get the bank number to get the character from 

8DF8: BNE S8DFD ;If the bank number is not zero, then branch to 
;Get the character from BANK 1 

8DFA: JMP $0380 ;If the bank number is zero, then get the next 


8DFD: 
8DFF; 
8EO1: 
8E03:;: 
8EO5; 
8EO8: 
8EOA: 


8EOC: 
8SEOE: 
8E10: 
8E11: 
8E13: 
8E14: 


8E16: 


INC 
BNE 
INC 
LDY 
JSR 
CMP 
BCS 


CMP 
BEQ 
SEC 
SBC 
SEC 
SBC 


RTS 


;Character from the CHRGET routine 


HK KK KK KKK KK KKK KKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 


If this routine is entered at this point, you can 
get a character from BANK 1 and process it the same 
way that CHRGET does. 


+ + + & 
+ + + + 


KH KKK KKK KKK KKK KKK KKHKKEKKKKKKEKKKKK KKK KKKKKKKKKKKKKKKKKKK 


$24 ;Add one to the pointers LSB 
S$8E03 ;No carry, then branch 
$25 ;If there is a carry, add one to the MSB 
#0 ;Zero the index pointer 
$03B7 ;Get the next character 
#'3! ;Is it => than the statement delimiter 
S8E16 ;If it is equal to or greater than 
;The delimiter ':', then exit 
#520 ;Is it a space? 
S8DFD ;Skip the space and get the next character 
;Set the carry for subtraction 
#'0! ;Convert from ASCII to numeric digit 
;Set carry for subtraction 
#SDO ;If the value is less than the ASCII value for 


;Zero, then set the carry flag 
;The carry flag is cleared for a numeric 
;Character or the delimiter, exit the routine 


KK KKK KKK KK KKK KKK KK KKK KKKKKKKKKKKKKKEKKKKEKKKKKKK KKK KKK KKK 


NO999 


Constants for Floating Point Numbers 


by the different routines when converting a string 


* 
* 
* 
* 
* 
* 
* 
to a Floating Point number. x 
* 
* 


* 
* 
* 
* 
* 
* The Floating Point numbers listed below are used 
* 
* 
* 
* 


KKK KK KIKI KI KK KKK KKK KKKKKKKKKKKKKKKKKAKKKKKKKKK KK KKK K KKK 
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EX Ml M2 M3 M4 


8E17: .BYTE $9B,$3E,$BC,$1F,SFD ; 99,999,999.9 
8E1C: .BYTE S$9E,S6E,$6B,$27,SFD ; 999,999,999 
8E21: .BYTE $9E,S6E,$6B,$28,$00 ;1,000,000,000 1E9 


KH HH HK KKK HH KK KKH HK KKK KKK KHKKKKEKKKKKKKKKKKKKKRKKEKKEKKKKKEKKKKEK 
INPRT 
PRinT 'IN' followed by the line number 


current BASIC line number pointed to by locations 
$3B, $3Cc. 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


* 
* 
* 
* 
* 
* This routine prints the text 'IN' followed by the 
* 
* 
* 
* 


KaKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKK 


8E26: JSR $9281 ;Print 'IN' 

8E29: TXT ran 

8E2D: .BYTE $00 ;End of text flag 

8E2E: LDA $3C ;Get the MSB of the line number we are on 
8E30: LDX $3B ;Get the LSB of the line number we are on 


;And fall through to print the line number 


wa kkkkkkkkkkkkkkk kkk kk KK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


LINPRT 
Output the ASCII characters of a number 


This routine is used to output an ASCII number 

whose value is held in the accumulator (MSB) and the 
X register (MSB). This process is accomplished by 
first converting the value of the ASCII number to 
its Floating Point equivalent and then to its ASCII 
form. The series of ASCII characters that 

represent the ASCII number are then stored starting 
at location $0100. 


+ + + + + FF ££ FF FF FF F&F FF HF F 
+ + + + + + FF FF FF FF FF HF HF F 


Kak Kk KKK KKK KKK KKK KKK KKK KK KKKK KKK KKK KK KK KK KK KK KKKKK KKK KK KKK 


8E32: STA $64 ;Save the MSB and 

8E34: STX $65 ;The LSB of the value 

8E36: LDX #$90 ;Set the maximum exponent allowed (15) 
8E38:;: SEC ;Set the flag to generate a positive value 
8E39: JSR $8C75 ;Convert the integer value to 
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8E3C: 
SE3F: 


8E42; 
8E44;3 
8E46: 
8E48:; 
SE4A;: 
8E4C; 
SE4F: 
8E51: 
8E53: 
8E54; 
8E56; 
8E58: 
8ESA: 


8E5D: 
SESF: 
8E61: 
8E63: 


8E653 
8E67: 
8E69; 
8E6C: 
SE6E; 
8E70: 
8E72; 
8E743 
8E773 
8E79:; 


JSR 
JMP 


LDY 
LDA 
BIT 
BPL 
LDA 
STA 
STA 
roe i g 
INY 
LDA 
LDX 
BNE 
JMP 


LDA 
CPX 
BEQ 
BCS 


LDA 
LDY 
JSR 
LDA 
STA 
LDA 
LDY 
JSR 
BEO 
BPL 


S8E44 
S5SE2 


C-128 BASIC 7.0 Internals 


;Floating Point format in FAC1 
;Convert FAC1 to an ASCII string at $0100 
;Print the ASCII string 


KKEKKKEKKKKKKKKKEKKKKK KKK KKK KEKKKEKKKKKKKKKKKKKKKEKKKKKK KKK KKKK 


FOUT 


Convert the contents of FAC1 into an ASCII string 


and converts it to an ASCII string. 


It then stores 


the ASCII string starting at address $0100. The 
ASCII string is delimited at the end by a zero. 


* 
* 
* 
* 
* 
This routine takes the Floating Point value in FAC1 * 
* 
* 
* 
* 
* 


#1 
#32 
$68 
S8E4C 
$i! 


SOOFF,Y 


$68 
$72 


#1Q! 
$63 
S8E5D 
S8F69 


#0 
#$80 
S8E65 
S8E6E 


#$21 
#$8E 
$8A08 
#SF7 
SSF 
#$1C 
#S8E 
$8C87 
$8E97 
S8E8D 


KEKKKKEKKKK KKK KKK KKKKKKEKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


;Index the first byte of the buffer 

;Value for a space 

;If the value 

;In FAC1 is negative, 

;Then store a minus sign '-' 

;As the first character of the number 

;If the value is positive, 

;Then store a space 

;Move the index to the next byte in the buffer 
;Value for an ASCII '0O' 

;Get the exponent of FACI1 

;And branch if it is not equal to zero 

s;Ilf FAC1L equals zero, then store an ASCII zero 
;In the buffer and exit 

;Zero the accumulator 

;Compare the exponent to an exponent of '‘'-1' 
;If it is a '-1', then branch 

;If the exponent is => than zero 

;Then branch : 
;Pointer to the constant 

;'1E0O9! 

s;Multiply FAC1 by '1E09' 

;Set the exponent to '-09! 

;And save it 

;Pointer to constant 

7999,999, 999 

;Compare FAC] to the constant — 

;If they are equal, then branch 

;Branch if FAC1 is less than 999,999,999 
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8E7B: 
8E7D: 
SETF; 
8E82: 
8E84; 


SE86:;: 
8E89: 
SE8B: 
8E8D: 
8E90: 
8E92: 


8E94: 
8E97:; 
SE9A: 
8E9C; 
SESE: 
8E9SF; 
8EA1;: 
8EA3; 
SEAS: 
SEA?7: 
SEAQ; 
SEAA: 
8EAC: 
SEAD: 
SEAF: 
8EB1: 
8EB3; 
SEB4: 


LDA 
LDY 
JSR 
BEQ 
BPL 


JSR 
DEC 
BNE 
JSR 
INC 
BNE 


JSR 
JSR 
LDX 
LDA 
CLC 
ADC 
BMI 
CMP 
BCS 
ADC 
TAX 
LDA 
SEC 
SBC 
STA 
STX 
TXA 
BEQ 


C-128 BASIC 7.0 Internals 





KEKKKKKKEKKKKKKKKKEKKKKKKKKKKEKEKKEKKEKKKEKKKKEKKKKKKEKKKEKKEKKKKKKK 


* 
* 
* 
* 
* 
* 


At this point in this routine, if the two 
aforementioned branches were false, 
in FAC1 is greater than 999,999,999, 


KAEKKKKKKKKKKKKKKEKKEKEKKKEKKKEKKKKKKKKEKKKEKKKKKKEKKKKKKKKKKK 


#$17 
#S58E 
$8C87 
$8E86 
S$8E94 


* 
* 
then the value * 
* 
* 
* 


;Pointer to constant 

799,999,999.9 

;Compare FAC1 to 99,999,999.9 

;Branch if they are equal 

;Branch if FAC] is less than 99,999,999.9 


KKKKKKKKKKKKKKKEKKKKKKKKKEKKKKKKKKEKKKKKKEKKEKKEKKKKKKKEKKKKKKK 


t+ + + % OF 


At this point in this routine, 
aforementioned branches were false, 


if the two 
then the value 


* 

* 

* 

in FAC] is greater than 99,999,999.9, * 
* 

* 


KKKKKKKKKKKKEKKKKKKKKKKEKKKKKKKKKEKKEKKKKKKKKEKKKKKKKKKKKKKKK 


$8B17 
SSF 
S8E7B 
$8B38 
SSF 
$8E70 


S8A0E 
$8CC7 
#1 
SSF 


#SOA 
S8EAC 
#S$0B 
S8EAD 
#SFF 


#2 
#2 
$60 
S5F 


$8EB8 


;FAC1 = FAC1 * 10 

;Decrement the exponent by one 
;Continue until FAC1 = FACI1 > X.9 
7;FAC1L = FAC1 / 10 

;Increment the exponent by one 


;Continue until FAC1 is greater than 999,999,999 


;Or until nine shifts have been completed 
;FAC1 = FAC] + 0.5 
;Convert FAC1 to a four byte signed integer 


; Index pointer to position of the decimal point 


;Get the exponent 

;Clear the carry flag for addition 

;Add 10 to the exponent 

;If smaller then 10, then branch 

;If greater then 10, 

;Then branch 

;Invert the exponent 

;Save it in the X register 

;Set up to end with a zero for the exponent 


;Subtract 2 from the exponent 

;Save the exponent 

;And the place of the decimal point 
;Restore the accumulator 

;If the value is equal to zero, then branch 
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8EB6: BPL S8ECB ;If the exponent is positive, then branch 
8EB8: LDY $72 ;Get the index to the next byte in the buffer 
8EBA: LDA #S2E ;Value for a decimal point 

8EBC: INY s;Move to the next free byte in the buffer 
8EBD: STA SOOFF,Y ;Save the decimal point in the ASCII number 
8ECO: TXA ;Restore the accumulator 

8EC1: BEQ S8EC9 ;If the value is equal to zero, then branch 
8EC3: LDA #$30 ;Store the ASCII value 

8EC5: INY ;For a zero into the next 

8EC6: STA SOOFF,Y ;Available space in the buffer 

8EC9: STY $72 ;Save the index 

8ECB: LDY #0 ;Clear the index 

8ECD: LDX #$80 ;Set up the initial digit 

8ECF:; LDA $67 ;Get MANTISSA 4 (M4) of FAC1 

8ED1: CLC 

8ED2: ADC S8F7E,Y ;Add M4 of the table entry to it 

8ED5: STA $67 ;Save it back to FAC1 

8ED7: LDA $66 ;Do the same 

8ED9; ADC S8F7D,Y ;For M3 

8EDC: STA $66 

8EDE: LDA $65 ;And M2 


8EEO: ADC S8F7C,Y 

8EE3: STA $65 

8EE5: LDA $64 ;And M1 
8EE7: ADC S8F7B,Y 

S8SEEA: STA $64 


8EEC: INX ;Add one to the digit 

8EED: BCS S8EF3 ;If there was not any overflow 

8EEF: BPL S8ECF ;And the result is positive, then repeat 

8EF1: BMI £S$8EF5 ;If result is negative without overflow, branch 

8EF3: BMI S8ECF ;If the result is negative and there was an 
;Overflow then repeat 

8EF5;: TXA ;Save the digit into the accumulator 

8EF6: BCC S8EFC s;If there is no overflow, then branch 

8EF8: EOR #SFF jInvert the digit 

8EFA: ADC #SA ;Add 10 to the digit 

8EFC: ADC #S52F ;And add 47 to the digit 

S8EFE: INY ;Move the index 

SEFF: INY ;To the next table entry 

8FOO: INY 

8FO1: INY 

8FO2: STY $49 ;Save the table index 

8F04: LDY $72 ;Get the index to the string buffer at $0100 

8FO6: INY ;Increment it by one 

8FO7: TAX ;Move the digit to the X register 

8F08: AND #S7F ;Drop bit seven of the digit 

8SFOA: STA SOOFF,Y ;And save it in the buffer 
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8FOD: 
8FOF: 
8F11: 
8F13:; 
8F14; 
8F17: 
B8F19; 
8F1B: 
8F1C:; 
SPIE: 
8F20; 
8F21:;: 
8F23;: 
8F25; 
8F27:3 
8F29; 
8F2B;: 
8F2E:; 
8F2F; 
8F31: 
8F33; 
8F35;: 
8F37:; 
8F38; 
SF3A: 
B8F3C3 


SF3E: 


8F 40; 
8F42:;: 
8F43; 
SF45; 
8F46;3 
8F 48: 
SF 4B; 
8F 4D: 
8F50: 
8F51: 
8F53:; 
8F54; 
SEOD'. 
8F 573 
8F59: 
SFOB: 
8F5E: 
SFSE 


DEC 
BNE 
LDA 
INY 
STA 
STY 
LDY 
TXA 
EOR 
AND 
TAX 
CPY 
BEQ 
CPY 
BNE 
LDY 
LDA 
DEY 
CMP 
BEQ 
CMP 
BEQ 
INY 
LDA 
LDX 
BEQ 


BPL 


LDA 
SEC 
SBC 
TAX 
LDA 
STA 
LDA 
STA 
TXA 
LDX 
SEC 
INX 
SBC 
BCS 
ADC 
STA 
TXA 
STA 


SSF 
S8F17 
#S2E 


SOOFF,Y 


$72 
$49 


#SFF 
#580 


#$24 
S8F29 
#$3C 
S8ECF 
$72 


SOOFF,Y 


#$30 
S8F2B 
#S$2E 
$8F38 


#S2B 
$60 
S8F6C 
S8F48 
#0 


$60 


#t5 


$0101,Y 


#tRt 


$0100,Y 


#S2F 


#SOA 
S8F54 
#S3A 


$0103,Y 


$0102,Y 


;Subtract one from the position of decimal point 
;Branch if we have not reached the decimal point 
;Get the value from the decimal point 

;Move to the next place in the buffer 

;Save decimal point to the number in the buffer 
;Save the index to the buffer 

;Get the table index 

;Move the digit to the accumulator 

;Return it to its original form 

;Preserve bit seven 

;And save the result to the X register 

;Ilf we are at the nineth table entry, 

;Then branch 

;Ilf we are at the fifteenth table entry, 

;Then branch 

;Get the buffer index 

;Get the last character that was put into buffer 
;Decrement the index by one 

;Is this character a zero? 

;If so, then move to the next character 

;If it is not a zero, is it a decimal point? 

;If so, then remove it 

;Move to the next character in the buffer 

;Get the value for a plus sign '‘'+'! 

;Get the exponent of the value 

;If it is equal to zero, then place delimiter 
;In the buffer and exit 

;If it is positive, then place the plus sign 
;'+' into the buffer 

,;Generate the two's 

;Complement of 

;The exponent 

;Save the complemented exponent into X register 
;Get the value for a minus sign '-' 

;Save the ASCII sign into the buffer 

;Get the value for 'E' 

;Store it into the buffer 

;Move the complemented exponent to accumulator 
;Get the ASCII base digit of '-1' 


;Add one to the ASCII base digit 

;Subtract 10 from the exponent 

;Continue until an underflow occurs 

;Convert the second exponent digit to ASCII 
;Save it into the buffer 

;Move exponent's first digit into accumulator 
;Store it into the buffer 
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8F 62: 
8F64: 
SF67: 
8F69; 
8SF6C: 
8SF6E: 
SF71; 
8F73: 
8F75: 


SF76: 


SF7B; 
SFTE: 
8F83:; 
8F87; 
SF8B;: 
SF8F: 
8F 93: 
8F 97; 
SF 9B; 


LDA 
STA 
BEQ 
STA 
LDA 
STA 
LDA 
LDY 
RTS 


. BY 


- BY 
éBY. 
. BY 
. BY 
. BY 
. BY 
. BY 
. BY 
-BY 


#0 ;Get the delimiter value of zero 

$0104,Y ;And store it into the buffer 

S8F71 sExit 

SOOFF,Y ;Store the accumulator into the buffer 

#0 ;Place the delimiter value of zero 

$0100,Y ;After the string in the buffer 

#0 ;Exit with the address of the ASCII string 

#1 ;In the accumulator and Y register (LSB/MSB) 
;Exit 


KKK KKK KK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKKKKKKKKKKKKKKKKKKK 


FHALF 


Constant for the SOR and for rounding numbers 


1/2 and is used for the SQR function and for 
rounding numbers. 


+ + + + + FF F F 


* 
* 
* 
* 
* 
This five byte Floating Point number is the value of * 
* 
* 
* 
* 


KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKEKKKKKKKKKKKKKKKEK 


EX Ml M2 M3 M4 


TE $80,$00,$00,$00,$00 ; 0.5 

KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKKKKKKKKKKKEKKKKKKEK 
FOUTBL 

Table of divisors for conversion to decimal. 


This table of powers of ten is used when converting 
a number to decimal format. 


+ + ££ € € F 


+ + + € € FF F F 


KKK KKK KKK KK KKK KKK KKK KEKE KKK KEKE KKEKKKKKKEEKKKKKKEKKEKKKKK 


TE SFA,SOA,$1F,$00 7-100, 000, 000 
TE $00,$98,5$96,580 ;+ 10,000,000 
TE SFF,S5F0,$BD,$CO 7;- 1,000,000 
TE $00,$01,$86,SA0 r+ 100, 000 
TE SFF,SFF,$D8,SF0 om 10, 000 
TE $00,$00,$03,SEB ;+ 1,000 
TE SFF,SFF,SFF,$9C ae 100 
TE $00,$00,$00,S0A 10 
TE SFF,SFF,SFF,SFF = a8 
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SF OF: 
8FA3: 
SFAT: 
SFAB; 
8FAF: 
8FB3: 


8FB7; 
8FBA; 
8FBC; 
8FBE: 


JSR 
LDA 
LDY 
JSR 


KHKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKK 


FDCEND 
Constants for TIS conversion 


This table contains the Floating Point number values 


* 
x 
* 
* 
* 
x 
necessary when converting TIS to ASCII. * 
x 
* 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKEKKKKKKKKKEKK 


TE SFF,SDF,$0A,$80 ; 2,160,000 
TE $00,503,54B,$C0 ; 216,000 
TE SFF,SFF,$73,$60 ; 36,000 
TE $00,500,S0E,$10 ; 3,600 
TE SFF,SFF,SFD,SA8 ; 600 
TE $00,$00,$00,$3C ; 60 


KEKKKKKKHKKKK KK KKK KK KKK KK KKK KKKKKKKKKKKEKKKKEKKKKKKKKKKKKKK 
BASIC SQR FUNCTION 
Function syntax: SQR (xX) 


This function returns the square root of the number 


* 
* 
* 
* 
* 
* 
* or expression specified for 'X', 
* 

* 


* 
* 
* 
* 
* 
* 
* 
* 
* 


KKK KKK KKK KK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKK 


$8C38 ;Move FAC1 to FAC2 

#$76 ;Pointer to the constant 

#58F 7 (0.5) 

$8BD4 ;Transfer the constant into FAC1 


KKKKKKKKKKKKKK KK KK KK KK KKK KKKKKKEKKKEKKKEKKKKKKKKKKKKKKKKKKKEK 


BASIC EXP FUNCTION 


Function syntax: EXP (X) 


the value of 2.7182813 to the power specified by 


* * 
* * 
* * 
* * 
* * 
* This function returns a value which is equal to * 
* * 
* the value of 'X'. i 
* * 
* * 


KHKAKKKKKKK KKK KKKKKKKKKKKK KEKE KEKKEKKKKKKKKEKKEKKEKKKKKKKKK 
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8FC1: BEQ $9033 


8FC3: LDA S6A ;If FAC2 does not equal zero, 

8FC5: BNE S8FCA ;Then branch 

8FC7: JMP $88D8 ;If FAC2 is equal to zero, then exit 
8FCA: LDX #$50 ;Transfer the contents 

8FCC: LDY #0 ,Of FAC 

8FCE: JSR $8C00 ;To location $0050 

8FD1: LDA S6F ;Check the sign of FAC2 

8FD3: BPL S8FE4 ;And branch if it is positive 

8FD5: JSR S8CFB ;Convert FAC1 to integer format 
8FD8: LDA #$50 ;Set the accumulator and Y register to point to 
8FDA: LDY #0 ;The constant 

8FDC: JSR $8C87 ;Compare FAC1 with the constant 
8FDF: BNE S8FE4 ;If they are not equal, then branch 
8SFE1: TYA 

8FE2: LDY $09 ;Get the sign change flag 

8FE4: JSR S8C2A Move FAC2 to FAC1 

8FE7: TYA ;Save the sign change 

8FE8:; PHA ;flag onto the stack 

8FE9: JSR S$89CA ;Perform the BASIC log function 
8FEC: LDA #$50 ;Set the accumulator and Y register to point to 
8FEE: LDY #0 ;The constant 

8FFO: JSR $8A24 ;Move the constant from BANK 1 to FAC2 
8FF3: JSR $9033 ;Perform the BASIC EXP function 
SFF6: PLA ;Get the sign change flag back 

8FF7: LSR ;Shift it into the carry flag 

8FF8: BCC $9004 ;If the carry is clear then exit 
8FFA: LDA $63 ;Else check the exponent 

8FFC: BEQ $9004 ;If it is equal to zero, then exit 
SFFE: LDA $68 

9000: EOR #SFF ;Else invert the exponent 

9002: STA $68 ;And save it as the sign byte 

9004: RTS ;Exit the routine 


KKKK KKK KKK KKK KKK KKK KEKE KK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* * 
* Constants for EXP = 
* * 


KKK KK KK KKKKKKKKKKKKKKKKKKKK KK KK KKK KKK KKK KKKKKKKKKKKKKKKK 


EX Ml M2 M3 M4 
9005: .BYTE $81,5$38,S$AA,$3B,$29 
900A: .BYTE $07 
900B: .BYTE $71,$34,$58,S$3E,$56 
9010: .BYTE $74,$16,$7E,$B3,$1B 
9015: .BYTE $77,S$2F, SEE, $E3,$85 


1.44269504 
7 
2.14987637E-5 
1,.4352314E-4 
1.34226348E-3 


1/LOG (2) 
POLYNOMIAL DEGREE 


we =e ve ™e 


we 
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901A: .BYTE $7A,$1D,$84,$1C,$2A ; 9.61401701E-3 
901F: .BYTE $7C,$63,$59,$58,S9A ; .055505129 
9024: .BYTE S7E,$75,SFD,SE7,S$C6 ; .240226385 
9029: .BYTE $80,$31,$72,$18,$10 ; .693147186 
902E: .BYTE $81,$00,$00,$00,$00 ; 1 


KKK KK KKK KKK KKK KK KKK KKK KKK KKKKKKKKEKKKKKKKKKKKKKK KKK KK KK KKK 


BASIC EXP FUNCTION 


Function syntax: EXP (X) 


* * 
* * 
* * 
* * 
* * 
* NOTE: X = the power that e (2.7182813) is to be * 
* raised to x 
* * 
* This function will return a value that is the result * 
* * 
* * 
* * 
* * 


of the value e (2.7182813) raised to the power 
specified by 'X'. 


Kkkk kk kkk kkk kkk kk kk kkk kkk kkk kk kkk KKK KKK KKK KKK KK KK KKK KKK 


9033: LDA #$05 ;Pointer to constant 

9035; LDY #$90 31/LOG (2) 

9037: JSR $8A08 sMultiply FAC1l BY 1/LOG(2) 

903A: LDA $71: ;Get the overflow byte 

903C: ADC #$50 ;Add 80 to it 

903E: BCC $9043 ;If there was no overflow, then branch 

9040: JSR S8C4F ;Round FAC1 

9043: STA $58 ;Save the overflow value temporarily 

9045: JSR $8C3B ;Move FAC1 to FAC2 

9048: LDA $63 ;Get the exponent of FAC1 

904A: CMP #588 ;If the exponent of FAC1 

904C;: BCC $9051 ;Iis less than 8, then branch 

904E: JSR $8B09 ;If it is equal to or greater than 8, then 
;Generate an overflow error 

9051: JSR S8CFB ;Convert the value in FAC] to integer format 

9054: LDA $09 ;Get the integer format value 

9056: CLC ;Clear the carry for addition 

9057: ADC #$81 ;Add 129 to it to create an exponent 

9059; BEQ S904E ;If the value was equal to or greater than 127, 
;Then generate an overflow error 

905B: SEC ;Set the carry for subtraction 

905C: SBC #S$01 ;Subtract one to restore the value 

905E: PHA ;Save it onto the stack 

905F: LDX #5 ;Transfer the five bytes 

9061: LDA S6A,X ;Of FAC2 

9063: LDY $63,X ;To FAC1 
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9065: 
9067: 
9069; 
906A: 
906C: 
S906E: 
9070: 
9073: 
9076: 


9078: 
907A; 
907D: 
907F: 
9081: 
9082; 
9085; 


9086: 
9088: 
SO8A: 


908D: 


908F: 
9092; 
9095; 
9097: 
9099; 


C-128 BASIC 7.0 Internals 


STA $63,X 
STY S6A,X 
DEX 
BPL $9061 
LDA $58 ;Restore the 
STA $71 ;Overflow byte 
JSR $8831 ;Subtract FAC2 from FAC1 
JSR S8FFA ;Invert the sign of FAC] if FAC1 > 0 
LDA #S0A ;Get the LSB of the number of the 
;Polynomial coefficient and the 
LDY #$90 ;MSB of the address of the polynomial degree 
JSR $909C ;Calculate the polynomial of the value in FAC1 
LDA #0 ;Clear the sign comparison flag 
STA $70 ;For FAC1 and FAC2 
PLA ;Get the original exponent back off the stack 
JSR S8AEE ;Add it to the present exponent of FAC1 
RTS ;And exit the routine 


KEKE KK KKK KKK KKK KKKKKKKKKKKK KKK KKK KKK KKK KK KkKkK KKK KKK KK KKK 


* 
* 
* 
* 
* 
* 


Formula: 


POLYNOMIAL CALCULATION 


* 

* 

* 

= Al * X + A2 * X*3 + AB * X*5 * 
* 

* 


KKK KI KK KKK KKK KKKKKEKKKKKEKKKKKK KKK KKK KK KK KK KKKK KK KKK KKK 


STA $72 ;Save the LSB and the MSB of the address 

STY $73 ;Of the polynomial degree 

JSR S8BFC ;Move the value to caiculate the polynomial from 
;FAC1 to location $59 

LDA #$59 ;Get the pointer to the address of the value to 
;Calculate the polynomial of 

JSR $8A24 ;Square it (value %2) 

JSR $90A0 ;Calculate the polynomial of the value in FAC1 

LDA #$59 ;Get the address of the value 

LDY #0 ;To calculate the polynomial of 

JMP $8A24 ;Multiply FAC1 by that value 


Kak Kk KKK kK KK kK KKK Kk Kk kkk kk kkk kkkk kkk kkk kkk kkk kkk kkk kkk kkk K 


POLYNOMIAL CALCULATION 


* 
* 
* 
* Formula: Y = AO + Al * X + A2 * X*%2 + AZ * K%*3 
* 
* 


* 
* 
* 
* 
* 
* 


kkk KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK 


473 


Abacus Software 





909C: 
909E: 
S9OA0: 


90A3; 
90A5: 
90A7: 
90A9: 
90AA; 
Q9OAB: 
9OAD: 
9OAF: 
90B1: 
90B3: 
90B6: 
S90B8: 
90BA: 
S9OBB: 
S9OBD: 
9OBF: 
90C0; 
90C2: 
90C4;: 
90C7: 
90C9; 
SOCB: 
90CD: 
90CF: 


90D0: 
90D1: 
90D3: 


STA 
STY 
JSR 


LDA 
STA 
LDY 
INY 
TYA 
BNE 
INC 
STA 
LDY 
JSR 
LDA 
LDY 
CLC 
ADC 
BCC 
INY 
STA 
STY 
JSR 
LDA 
LDY 
DEC 
BNE 
RTS 


TAX 
BNE 
LDX 


$72 
$73 
S8BF9 


($72),Y 


$69 
$72 


S90AF 
$73 
$72 
$73 
$8A08 
$72 
$73 


#505 
$90C0 


$72 
$73 
$8A12 
#$5E 
#0 
$69 
$90B3 


C-128 BASIC 7.0 Internals 


;Save the LSB and the 

;And the MSB of the address of the polynomial 
;Move the value to calculate the polynomial of 
;From FAC1 to location $5E 

;Get the polynomial degree 

;Save it 

;Get the LSB of the address 

;Increment it to the first coefficient 
;Move the LSB to the accumulator 

;lf there was an overflow, then branch 
;Add one to the MSB of the address 

;Save the LSB 

;Get the MSB of the coefficient address 
;Multiply FAC1 by the coefficient 

;Get the LSB and the 

*;MSB of the address to the coefficient 
;Clear the carry for addition 

;Add 5 to move to the next coefficient 
;If there was an overflow, then branch 
;Increment the MSB by one 

;Save the address 

; Back 

;Round FAC1 by adding 0.5 to it 

;Get the address of the value 

;To calculate the polynomial of 
;Subtract one from the polynomial degree 
;Continue until the degree equals zero 
;Exit the routine 


KKEKKKKKEK KEKE KKK K KKK KK KKK KKK KK KKK KKEKKEKKKKKKKKKKKKKKKKKEK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


IOERR 


I/O ERRor message handler 


This routine handles the interface from KERNAL to 


operation. 
accumulator contains the error number. 


the 
If the error 


On entry to this routine, 


number is 0, then the error number is changed to 


30 to indicate a 


$90D5 
#30 


* 
* 

* 

* 

* 

* 

BASIC whenever an ERROR occurs during a KERNAL I/O = 
* 

* 

* 

* 

* 

* 


"BREAK error. 


KKEKKKKKKKKKEKKKK KK KKKEKKKKKKKKEKKKKKKKKKKKKKKEKKKKKKKKEKKKKK 


;Save the error number into the X register 
;If the error number is greater than 0, branch 
; 'BREAK' error 
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90D5: JMP $4D3C ;Jump to the error message routine 


KKKKKEK KKK KKK KKK KKK KKKK KKK KKK KKK KK KKK KKKKEKKKKKKKEKKKKKEKEK 


BSOPEN 


* 
* 
* 
This routine does a BANK 15 command and then calls - 
the KERNAL OPEN routine. Note: You must handle the * 
error checking. After calling this routine, if an * 
error occurred, the carry flag will be set and the * 
error number will be in the accumulator. me 

* 

* 


+ + + + + € F 


KH KKK KKK KKK KKK KK KKK KKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKEK 


90D8: JSR SA845 BANK 15 
90DB: JSR SFFCO sKERNAL OPEN routine 
90DE: RTS s;Exit the routine 


KIKK KKK KHKKAKKKKKKKKKKKKKEKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKEKK 


BSOUT 


* 
* 
* 
This routine does a BANK 15 command and then calls % 
* 
the value to output stored in the accumulator. ig 

* 

* 


* 
* 
* 
* 
* the KERNAL CHROUT routine. Enter this routine with 
* 
* 
* 


KIK KKK KK KHKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK K 


SODF: JSR $9269 ;BANK 15, JMP CHROUT 
90E2: BCS $90D0 ;If an error occurred, then branch (C=1) 
S90E4: RTS sExit the routine 


KK KKK KKK KKK KK KKK KKK KKK KKKHKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


BASIN 


the .KERNAL CHRIN routine. 


+ +€£ ££ + F 


* 
* 
* 
* This routine does a BANK 15 command and then calls 
* 
* 
* 


KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKK KKK KKK KKKKKKKKK 


90E5: JSR $9263 ;BANK 15, JMP TO CHRIN 
SO0E8: BCS $90D0 sIf an error occurred, then branch 
90EA: RTS s;Exit the routine 
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SOEB: 
SOEC: 
SOEF: 


90F2: 
S90F5: 


90F6: 
90F7; 
90F9; 
90FA: 
SOFC: 


SOFD: 
9100: 


9103: 
9106: 
9108: 


PHA 
JSR 
JSR 


JSR 
TAX 


PLA 
BCC 
TXA 
BCS 
RTS 


JSR 
JSR 


JSR 
BCS 
RTS 


KKKKKKKKKKKKKKKKKKKKEKEKKKKKKEKKKKKKKKKKKKKK KKK KKKKKKKK KK KKK 


BASIC CHKOUT 
Set the Output Device 


* 
* * 
* * 
* * 
* * 
* This routine is used bu the BASIC CMD command to set * 
* the current output device. If an error occurs, then * 
* TOERR is automatically called. On entry to this * 
* routine, the X register contains the Logical File * 
* number. | * 
* * 
* * 


KKK KK KKKK KKK KKK KKK KKK KKKKKKEKKKEKKKKKKKKKEKKKKKK KKK KKK K KKK 


;Save the accumulator onto the stack temporarily 
SA845 ;BANK 15 


SFFC9 ;Kernal CHKOUT, set the device in the X register 
;To output 
$9243 ;Set the flag to obtain a new DSS 


;Move the error number to CHKOUT, if any, to the 
;X register 


;Restore the accumulator 
S90FC ;If no error, then exit 

;Move the error number to the accumulator 
$90D0 *;Branch to handle the error 


s;Exit the routine 


KKKKKKKKEKKKKKKKKKKEKEKKKEKKKKKKEKEKKKEKKKKKKKKKKKKKKKKKK KK KKK 


* * 
* BASIC CHKIN * 
* * 
* This routine does a BANK 15 command and then calls e 
* the KERNAL CHKIN routine. is 
* * 
KEKKEKKKEKKKKEKKKKKKKK KKK KKK KKK KKK KKK KkKkKkKKkKkK kkk kkk kk kkk kkk KK 

SA845 ;BANK 15 

SFFC6 ;Kernal CHKIN, set the device in the X register 

;To input 
$9243 ;Set the flag to obtain a new DSS 
$90D0 ;If an error occurred, then branch 


;Exit the routine 
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KKKKKKKKKKKKK KKK KKK KKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 


BASIC GETIN 


the KERNAL GETIN routine. 


+ + + OF 


* 
* 
* 
* This routine does a BANK 15 command and then calls 
* 
* 
* 


KIKKKKKK KK IKK KK KKK KKK KKKKEKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKK 


9109: JSR SA845 ;BANK 15 

910C;: JSR SFFE4 ;Kernal GETIN, Get a character from the currrent 
;Input device into the accumulator 

910F; BCS $90D3 ,;If an error occurred, then branch 

9111: RTS ;Exit the routine 


KKEKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


BASIC SAVE COMMAND 


Command syntax: SAVE "filename"([,DV] 


This command allows you to save a program to the 


* * 
* * 
* * 
* * 
* * 
* NOTE: DV = the device number to save to * 
* * 
* * 
* device specified by 'DV'. * 
* * 
* * 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKKKKK KKK KKKKKK 


9112: JSR $91AE ;Set up the parameters for the SAVE command 
9115; LDX $1210 ;Get the LSB and 
9118: LDY $1211 ;The MSB of the end address of the BASIC program 
911B: LDA #S2D ;Set the pointer to the start of the 
;BASIC program 
911D: JSR SA845 ;BANK 15 
9120: JSR SFFD8 ;KERNAL SAVE 
9123: JSR $9243 ;Set the flag to obtain a new DSS 
9126: BCS $90D0 s;If an error occurred, then branch 
9128: RTS ;Exit the routine 


KKK KI KK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KKKKEKKKKKKKKKKKKKKKKK 


BASIC VERIFY COMMAND 


Command syntax: VERIFY "filename"[,DV] 


* + + * 
+ + + + FF 


NOTE: DV = the device number to verify from 
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9129: 
912B: 


912C: 
912E: 
9130; 
9133: 
9136: 
9138: 
913A: 


913C; 
913F: 
9140: 
9143; 
9144; 
9146; 
9148; 
914A; 
914C; 
914F; 
9151; 


LDA 


+ + + 
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This command allows you to verify a program that = 
is stored in memory with the one that is saved on * 
tape or disk. bs 

* 


KKEKKKKEKEKKKEKEKKKEKEKEKEKEKEEKEKEKKEKKKEKEKKKKKKKKKKKKKEKKKK 


#1 


~BYTE $2C 


LDA 
STA 
JSR 
JSR 
LDA 
LDX 
LDY 


JSR 
PHP 
JSR 
PLP 
BCS 
LDA 
BEQ 
LDX 
JSR 


;Flag for VERIFY 
;MASK To skip to $912E 


KKKKKKKKKEKKKEKEKKKEKKEKEKEKKKKKEKKKKKKKKEKKKKKKKKKKKKKKKKKKK 


* + + + € € © £ F FF FF FF F EF F F 


Command syntax: 


NOTE: 


This command allows you to load a program from the 
device specified by 'DV'. 
is equal to zero, then the program will be loaded 

to memory starting with the start of BASIC address. 


DV 
RF 


However, 


if the relocate flag is equal to one, then 
the program will be loaded to the address that it 
was originally saved from. 


BASIC LOAD COMMAND 
LOAD “filename"([(,DV] [, RF] 


the 
the 


device number to load from 
relocate flag 


If the relocate flag 'RF' 


t+ *€ + + ££ & € FF F FF FF F HF HF F 


KHKKKKEKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


AND 


BNE 


#0 
SOC 
S91AE 
SA845 
S0C 
$2D 
$2E 


SFFD5 


$9243 


$91AB 
$OC 
$9160 
#28 
$9251 


#%00010000 


$9169 


Flag for LOAD 

7;Set the flag for LOAD/VERIFY 
;Set the parameters for the LOAD/VERIFY command 
*;BANK 15 

;Get the flag for LOAD/VERIFY 

;Get the LSB and the 

*;MSB of the address of the start of BASIC 
;Program area 

;KERNAL LOAD/VERIFY 

;Save the STATUS register 

;Set the flag to obtain a new DSS 

;Restore the STATUS register 

s;If an error occurred, then branch 

;Get the flag for LOAD/VERIFY 

;If the flag equals zero, then branch to LOAD 
; 'VERIFY' message 

;BANK 15, READST - Read the serial bus status 
;Check bit 4 (1 = verify error) 

;If an error occurred, then branch 
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9153: BIT S7F ;Check if we are in the DIRECT mode 
9155: BMI $915F ;If not, then do not print 'OK', instead exit 


KRKKEKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK 


* * 
* Print OK to the current output device and exit. i 
* * 


KEKKKKKKEKKKKKKKKKEKKKEKKKKKEKKKKKKKKKKEKKKKKKKKEKKKKKKKKKKKKKK 


9157: JSR $9281 ;Print the following message 
915A; .BYTE SOD 3<cr> 

915B: TXT ‘ok! 

915D: .BYTE SOD ;<cer> 

915E: .BYTE $00 ;Delimiter of zero 

915F: RTS ;Exit the routine 


KKEKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKkKkKKKK 


* * 
* This subroutine will ensure that no errors have * 
* occurred by reading ST. If any of the bits are set * 
* with the exception of bit 6 which indicates the end * 
* of Information, a ‘LOAD’ error will be generated. * 
* * 
* * 


KkKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKEKK 


9160: JSR $9251 ;BANK15, READST - Read the serial bus status 
9163: AND #%10111111 sMask the error (bit 6 EOF is not an error) 
9165: BEQ $916C ;Bits if no error occurred, then branch 
9167: LDX #29 ;Error number for 'LOAD' error 

9169:  JMP $4D3C ;Jump to the error message routne 


KRAKKKKKKKKKKKKKKKKKKKEKKKKKEKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKK 


* 
This subroutine will save the ending address of the * 
program. It will restart the program without * 
performing a BASIC CLR command. If you are not in * 
the program mode, the routine will test to see if * 
you have entered the RUN "Filename" command and if * 
so, then the routine will exit with an RTS. If * 
none of the aforementioned items hold true, the * 
routine will print the 'READY' prompt to the * 
screen, relink the program lines, and then jump to * 
the main loop which will place you into the direct * 
mode. % 

* 

* 


t+ + + + + F F  F F H H F 


KK KKK KKK HK KKK KKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


479 


Abacus Software C-128 BASIC 7.0 Internals 





916C: STX $1210 ;Save the LSB and 

916F;: STY $1211 ;The MSB of the end of the program address 

9172: BIT STF ;Check if we are in DIRECT mode 

9174: BMI $9184 ;If we are not in the DIRECT mode, then branch 

9176: BVS $915F ;If this routine was called by RUN "Filename", 
;Then branch 

9178: JSR S4D2A ;Print 'READY' 

917B: JSR S4F4F ;Relink the BASIC PROGRAM lines 

917E: JSR $5S1F3 ;Reset the program pointer and perform a BASIC 
;CLR Command 

9181: IMP $4DC3 ;Exit to the input waiting Loop 


KKKK KKK KHKKKKK KKK KK KE KKKKEKKKKKKKKKKKEKKKKKKKKEKKEKKKKKKKKKKEKK 


* 
* This routine is used to terminate a LOAD/VERIFY 

* command within a BASIC program by pointing TXTPTR 

* to the start of the Basic Program and Relinking the 
* Basic Text (line links). This is why you are 

* advised to use the new DLOAD command. 

* 

* 


+ + + + OF OF OF 


KKK KKK KKK KK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKK 


9184: JSR $5254 ;Set TXTPTR to the start of BASIC text 
9187: JSR S4F4F ;Relink the BASIC program lines 
918A:  JMP $5235 ;Reset the stack pointer, perform restore, and 


;Reset the temporary string descriptor to $1B 
KK KKK KKK IKK KK KK KI KKK KKK KKK KKK KKKKKKKKKEKKKKKKKKKKKKKKKKEKKK 
BASIC OPEN COMMAND 
Command syntax: OPEN lfn,DV[,sa] 
NOTE: lfn = the logical file number 


DV = the device number 
sa the secondary address 


t+ + + + FF H OF 


This command allows you to access a file whose number* 
is specified by 'lfn' to the device whose number is * 
specified by 'DV'. This command is used to prepare * 
for writing to or reading from a file with BASIC * 
commands such as PRINT# and INPUT# respectively. > 

* 

* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KEKE KKKEKKEKKKKKKKKKKKKEKKKKKKEKKKKKKKKKKKKKKKKK KKK KKK KKKEK 


918D;: JSR S91FE6 ;Set the parameters for OPEN 
9190; CLC ;Clear the carry flag for error checking below 
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9191; 
9194; 
9197: 
9199; 


919A; 
919D:; 
91A0: 
91A2; 
91A3: 


91A6: 


91A9: 


91AB: 


91AE: 
91B0: 
91B3: 
91B5: 
91B7: 
91BA: 


JSR 
JSR 
BCS 
RTS 


LDA 
JSR 
LDX 
LDY 
JSR 
JSR 


$90D8 
$9243 
$91AB 


;KERNAL open routine 

;Set the flag to obtain a new DSS 

r;If an error occurred, then branch 

;If there were no errors, then exit the routine 


KKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKEKKEKKEKKKKKKKKKKKKKKKKKKEK 


BASIC CLOSE COMMAND 


Command syntax: CLOSE lfn 


This command closes the file whose number is 
specified by 'lfn'. 


* 
* 
* 
* 
* 
* NOTE: 
* 
* 
* 
* 
* 


* 
* 
* 
* 
* 
lfn = the file number to be closed * 
* 
* 
* 
* 
* 


RKKKKKKKKKKKKKKKKKK KKK KKKKKKRKKKKKKKKKKKKKKRKKKKK KKK KKK 


$91F6 
SA845 
$4B 


$9275 
$9243 
$915F 
$90D0 


;Set the parameters for CLOSE 

;BANK 15 

;Get the logical file number 

;Clear the carry for error checking 
;BASIC KERNAL CLOSE routine 

;Set the flag to obtain a new DSS 

s;Ilf no errors occurred, then branch 

s;lf an error has occurred (X=error number) 


KRKKKKKKKKKKKKKEKKKKEKKKKKKKKEKKEKKKKKKKEKKKKKKKKKKKK KKK KKKKKKK 


SETPAR 


SET the PARameters for LOAD, VERIFY and SAVE 


SECONDARY ADDRESS for the LOAD, VERIFY and SAVE 
commands. This routine will default to the 
cassette if a DEVICE ADDRESS is not specified. 


* * 
* * 
* * 
* * 
* * 
* This routine Sets the FILENAME, DEVICE ADDRESS, and * 
* * 
* * 
* * 
* * 
* * 


KKK KKK KKKKKKKKKKKKKKKKKKKKK KK KKK KKKKKKKKKKK KKK KKK KKK KKK 


#0 
$925D 
#1 
#0 
$9257 
$9287 


;Default to no FILE NAME 

;BANK 15, KERNAL SETNAM 

;Default DEVICE ADDRESS = cassette drive 
;Default SECONDARY ADDRESS - none 

;BANK 15, SETLFS 

;BANK 15, SETBNK 
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KKKKKKKKEKKKKKKKKKKEKKKKKKEKKKKEKEKKKKKEKKKKKKKKKKKKKKKKKKKEK 


* 
* The next JSR will check to see if there are any i 
* more parameters with the BASIC LOAD command. If * 
* there are not any, then this routine will exit. ig 
* * 
* * 


KKEKKKKKKKKKKKKKKKKKKEKKKKEKKEKEKKKKKKKEKKKEKaEKKKKKKKKKEEK 


91BD: JSR $91E3 ;Check for end of statement 

91C0: JSR $9239 ;Get the string parameters of the filename and 
;Call SETNAM 

91C3: JSR S$91E3 ;Check for end of statement 

91C6: JSR $91DD ;Get the DEVICE NUMBER 

91C9; LDY #0 ;No SECONDARY ADDRESS 

91CB: STX $4B ;Save the DEVICE NUMBER 

91CD: JSR $9257 ;BANK 15, SETLFS 

91D0;: JSR S$91E3 ;Check for the end of statement 

91D3: JSR $91DD ;Get the SECONDARY ADDRESS 

91D6: TXA ;Place it in the accumulator 

91D7:; TAY ;And the Y register 

91D8: LDX S4B ;Get the SECONDARY ADDRESS 

91DA: JMP $9257 ;BANK 15,SETLFS 


KKEKKKKKKKEKKKKKKKKEKKKKEKKKKKKKKEKKKKKKEKEKKKKKKEKKEKKKKKKKKK 


* * 
* CHKCOM * 
* * 
* CHecK COMma bs 
* * 
* This routine will skip the comma if one is found. > 
* The routine will then get the next character and * 
* place its numeric value in the X register. If the * 
* * 
* * 
* * 
* * 


next character is not a comma when you call this 
routine then a 'SYNTAX' error will result. 


KEKKKKKKKKKKKEKKKKKKKKKKEKKKKKKKKEKKEKKEKEKKKKKEKKKKKKKKKKEK 


91DD: JSR S91EB ;Check for a ',' and skip it 
91E0; JMP S87F4 ;Get the value into the xX register 


KKKKKKKKEKKK KK KKKKEKEKKEKKKKKEKKKKKKKEKKKEKKEEKKKKKKKKKKKKKKKKEK 
CHKEOS 


CHeck for End Of Statement 


+ + £ & + F 
+ £ &€ £ F F 


This routine will check for the statement terminator 
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* or the statement chain. If they are not found, * 
* the routine will return. However, if either the * 
* statement terminator or the statement chain are * 
* found, then the routine will pull the return address * 
* off of the stack of the routine that called this * 
* routine. An RTS is then executed which will return * 
* execution back to the calling routine. * 
* * 
* * 


KKK KKKKKKKKEKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKEK 


91E3: JSR $0386 ;Get the character after the command:If it is 

91E6: BNE S91EA ;Not the end of the statement, then branch to 
;Process the parameters following the command 

91E8: PLA ;Pull the return address of the 

91E9: PLA ;Calling routine off the stack 

91EA: RTS ;Exit back to the calling routine 


KKEKEKKKKKKEKKKKKKKKEKKEKKKKEKKEKEKKKEKKKKKKKEKKKKKKKKKKKKKKKKKEK 


CHKCOM1 


CHecK COMmail 


TXTPTR to the next character past the command. 
If the comma was not found, then a 'SYNTAX’ error 


* 
* 
* 
* 
* 
* This routine will check for a ',' and if it is 
* 
* 
* 
* will be generated. 

* 

* 


* 
* 

* 

* 

* 

found, the comma will be skipped by moving the * 
* 

* 

* 

* 

* 


KKK HK KIKI HK KI AK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKK KKK KKK EK 


91EB: JSR $795C ;Check for comma and skip it. If not 
;Found, then generate a 'SYNTAX' error 


KKEKKKKKKKK KKK KKK KKEKKK KK KEKE KKKKKKKAKKKKKEKAKKKKKKKEKKKKKKKEK 
CHKEND 
This routine will CHecK for an END of statement flag 


* * 
* * 
* * 
* * 
* ($00), or ':'. If one of these characters are not ial 
* found, then a 'SYNTAX' error is generated. * 
* * 
* * 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KEKE KKKKKKKKKKKEKKKKKKKKEKKKKEK 


91EE: JSR $0386 sGet the last character back 
91F1: BNE S91EA sIf there are more entries, then branch 
91F3: JMP $796C sGenerate a 'SYNTAX' error 
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KkkkkkkkkkkkkkkekkkekkKeKkekKeKkkkkkKkkKkkKk kk KK KK KKK KKKKK KKK KKK KK 


SETPAR1 
SET PARameterl 


This routine will set the parameters for the BASIC 
OPEN, and CLOSE commands. 


+ + + + F % OF OF 


* 
* 
* 
* 
* 
* 
* 
* 
* 


KkakkkkkkkkkkkkkkkkkkkkKKKkKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


91F6: LDA #0 ;BANK number for LOAD/SAVE/VERIFY (LSV) commands 
91F8; LDX #1 ;BANK number for the current file name 

91FA: JSR $9287 ;BANK 15, SETBANK 

91FD: JSR $925D ;BANK 15, SETNAME 

9200: JSR S91EE ;Check for the end of line/statement 

9203: JSR S87F4 ;Get the logical file number 

9206: STX S4B ;Save it 

9208; TXA ;Transfer the X register into the accumulator 
9209: LDX #1 ;DEFAULT address number (DEVICE) 

920B: LDY #0 ;DEFAULT SECONDARY ADDRESS 

920D: JSR $9257 ;BANK 15, SETLFS 

9210: JSR S$91E3 ;Check for the end of statement 

9213: JSR  $91DD ;Skip the comma,put the value in the X register 
9216: STX $4c ;Save it as the DEVICE number 

9218: LDY #0 ;DEFAULT SECONDARY ADDRESS 

921A: LDA S4B ;Get the FILE NUMBER 

921C: CPX #3 ;DEVICE on the serial bus? 

921E: BCC $9221 ;If there is not, then branch (C=0) 

9220: DEY ;SECONDARY ADDRESS = SFF 

9221: JSR $9257 ;BANK 15, SETLFS 

9224: JSR  $91E3 ;Check for the end of statement 

9227: JSR $91DD ;Get the SECONDARY ADDRESS 

922A: TXA ;Move it into the accumulator 

922B: TAY ;Move it into the Y register for SETLFS 

922C: LDX $4C ;Get the DEVICE ADDRESS 

922E: LDA S4B ;Get the FILE NUMBER 

9230: JSR $9257 ;BANK 15, SETLFS 

9233: JSR $9153 ;Check for the end of statement 

9236: JSR $91EB ;Check for a comma and skip it 


KKK IK KKK IKK KK KK KKK KK KKK KKK KKK KKK KKK KKK KKKKKKEKKKKKKKKKK KKK 


* * 


FRM 


+ + OF 
+ + 


This routine will evaluate and obtain the FILENAME 
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9239; 


923C: 
923E; 


9240: 


9243; 
9244; 
9245: 
9247; 
9249; 
924B; 


924E: 
QO24F: 
9250; 


JSR 


LDX 
LDY 


JMP 


PHP 
PHA 
LDA 
CMP 
BCC 
JSR 


PLA 
PLP 
RTS 


* memory location and length and then set the filename.* 


* 


* 


KKK KEKKKKKKK KE KK KKK KKK KK KKKK KKK KKK KKK KKKKKEKKKKKKKKKKKKK 


$877B 


$24 
$25 


$925D 


;Get the string parameters (address in locations 
7$24, $25 and the length in the accumulator) 
;Get the LSB of the address of the string 

;Get the MSB of the address of the string 

:(also the length is in accumulator) 

;BANK 15, SETNAM 


KKKKKKEKKKKKKKKEKKKKK KKK KKK KEK KKKKKKKKKKEKKEKKKKKKKKKKKK KEK KEK 


+ + + + + + + + HF 


SETDSS 


SET the flag to obtain a new DS$ 


device number in SBA is on the serial bus and if it 
is, then the routine will deallocate the current DSS$ 


* 
* 
* 
* 
* 
This routine will check to see if the current * 
* 
* 
and set the flag to obtain a new DSS. * 

* 

* 


KKEKKKKKKEKKKKKEKKKKKKKKKKKKKEKKKKKKEKEKKEKKKKKKKKEKKKKKKKKKKKK 


SBA 
#4 
S$924E 
SA80D 


;Save the processor status on the stack 

;Save the accumulator onto the stack 

7;Get the current device number 

;Is it the serial bus? 

;If it is not, then branch 

;Deallocate the ‘current DSS and set the flag to 
;Obtain a new one 

;Get the accumulator off of the stack 

;Get the processor status off of the stack 
;Exit the routine 


KKK K KKK KEKE KKKKKKK KKK KKK KKKKKKKEKKEKKKKEKKKEKKKKKKKKK KK KKKKK 


The following JUMP table will allow you to enter 
the various KERNAL routines by first performing 


KERNAL routine. 


* * 
* * 
* * 
* a BASIC BANK 15 command and then jumpimg to the * 
* * 
* * 
* * 


KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KEKKKKKKKEKKKKKKKKKEKKKEKKKK 
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KHKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKEEKEKKKKKKEKKEKKKKEKKKKKKKKKKKEK 


BREADST 


Banked READ STatus routine 


+ + + + F 
+ +£ + + 


KRAKEKKKKKKKKKKKKKKKKKKKKKKKK KKK KK KKK KK KKKKKKKKKKK KKK KKKKKKK 


9251: JSR SA845 s;BANK 15 
9254:  JMP SFFB7 ;READST 


KaKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKRKKKKKKKKKKKRKKKKKKEK 


BSETLFS 


Banked SETLFS 


+ + + F OF 
+ &£ + + # 


Kkakk KKK Kk KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKRKKKKKKKKKKKKKK 


9257: JSR SA845 ;BANK 15 
925A: JMP SFFBA ;SETLFS 


KkKkKkKkKKKKKKKKKKKKKKKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKRKK 


BSETNAM 


Banked SETNAM 


+ + + 


* 
* 
* 
* 
* 
RAEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKRKKKKKKKKKK KK KKK KKKKKKKKKEK 


925D: JSR SA845 s;BANK 15 
9260: IMP SFFBD ; SETNAM 


KREKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKRKRKKKKKKKK 


* 

* BBASIN * 
* * 
* Banked BASIN * 
* * 
KxKKKKkKKK KKK KK KKK KKK KKK KKKKKKKK KKK KKKKKKKK KK KKK KKK KK KK KKK 


9263: JSR SA845 ;BANK 15 
9266: JMP SFFCF ; BASIN 


486 


Abacus Software C-128 BASIC 7.0 Internals 





KKKKKKKKKEKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK 


BCHROUT (BBSOUT) 


Banked CHROUT (Banked BSOUT) 


+ + + 
+ + + F 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKK 


9269: JSR SA845 ;BANK 15 
926C: JMP SFFD2 ; CHROUT 


KKEKEKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKK 


* * 
* BCLRCH _ 
* * 
* Banked CLRCH ss 
* * 
KaeKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK K 

926F: JSR SA845 ;BANK 15 

9272: JMP SFFCC ;CLRCH 


KkeKKK KKK KKK KK KKKKKKKKKKKEKKKKKKKKKKKKKKKEK KKK KKK KKKEKKKKKKEK 


BCLOSE 


Banked CLOSE 


+ £ + + F 


* 
* 
* 
* 
* 
* 


KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKK KEK 


9275: JSR SA845 ;BANK 15 
9278: JMP SFFC3 ; CLOSE 


ka KkKk KKK Kk kkk kkk kkk kkk kk kkk KKK KKK K KKK KK KKK KKK KKKKKKKKKKKKEKK 


* * 
* BCLALL * 
* . * 
* Banked CLose ALL * 
* * 
KREKEKKKKKKKKKKK KKK KKKKKK KKK KK KK KK KKKKKKKKKKKKKKKKKKKK KKK KK 


927B: JSR SA845 ;BANK 15 
927E: JIMP SFFE7 ;CLALL 
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KKKKKEKEKKKEKKKKKKKKKKEKEKKEKKKEKKKKEKEKKKEKKKKEKKEKKKKKKKKKKKK KKK K 


* * 
i BPRIMM * 
* * 
ss Banked PRIMM is 
* * 
KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKEKEKKKKKKKKKKKKKKEKKKKK KKK 

9281: JSR SA845 ;BANK 15 

9284: JMP SFF7D ; PRIMM 


KKKKKKKKKKKKKKKKKKHKKEKKKKKEKKKKEKKKKKKEKKKKEKKKKKKKKKKKKKKK 


* * 
x BSETBNK * 
* * 
i Banked SETBNK x 
* * 
FI IO I IO I IO I TO IO IO II I IO TOR IO II IO IO dk kkk 


9287: JSR SA845 ;BANK 15 
928A: JMP SFF68 ; SETBNK 


KKK K KKK KKK KKK KKK KK KKK KKK KKKEKKKEEKEKKKEKKKKKKKKKKKEKKKKKKK 


BPLOT 


Banked PLOT 


* * 
* * 
* * 
* * 
* * 
* * 


KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKKKKKKEKKEKKKKKKKKKKKEKK 


928D: STA SFFO3 ;Enable BANK 14 
9290: JMP SFFFO ;PLOT 


KEKE KE KKK KKK KKK KKK KKK KKK KK KKK KE KKKEKKEKEKKKEKKKKKKKK KKK KKKKKEKK 


* * 
* BSTOP ~ 
* x 
* Banked STOP * 
* * 
KKKEKKKKKKKEKKKKKKKKKEKKEKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKK KKK KKK 

9293: JSR SA845 ;BANK 15 

9296: JMP SFFE1 ; STOP 
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9299; 
92 9B: 
929C: 
929E:; 
929F; 
92A1: 
92A2: 


92A4; 
92A6: 
92A8; 
92A9; 
O2AB: 
92AD; 
O92AE; 
92B0: 
92B1: 
92B3: 
92B5: 
92B6: 
92B8: 
92BA: 
92BC: 
92BE: 
92C0: 
92C2; 


LSR 
TAX 
BEQ 
PHA 
LDA 
SEC 
SBC 


LDY 
BCS 
DEY 
STA 
STY 
TXA 
KOR 
SEC 
ADC 
BCS 
DEY 
CPY 
BCC 
BNE 
CMP 
BCC 
STA 
STY 


C-128 BASIC 7.0 Internals 


KKKKK KKK KKK KKK KK KK KK KKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKEK 


GETSPA 


GET SPAce 


This routine will clear the garbage collection has 


been tried flag. 


It will then allocate the number 


of bytes requested in the accumulator plus two bytes 
which will be used by the calling routine to save 


the address of the string's descriptor. 


The routine 


will temporarily place the flag (#SFF) in the MSB 
and the length of the string in the LSB of that 


address. 


(FRETOP = FRETOP - length of string - 2). 


If the number of bytes needed are not available as 
free memory, a garbage collection is performed. 

If there is still not enough room, an 

"OUT OF MEMORY ' error will result. 


$11 


$92D9 


$35 


#502 


$36 
$92A9 


$24 
$25 


#SFF 


$24 
$92B6 


$34 
$92DA 
$92C0 
$33 
$92DA 
$37 
$38 


KRKKKKIKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKEKEKKKEKKKKKKKKKKKKK 


;Clear the garbage collection tried flag 


;Move the length of the string to the X register 


;If the length equals zero, then exit 


;Save the length of the string onto the stack 


;Get the pointers for FRETOP 
;Then subtract 2 to make room 


;For the pointer to the descriptor that goes 


;After the string 


' Get the MSB 


;Iif there is not an overflow, then branch 
;Decrement the MSB by 1 

;Save the new FRETOP 

;Value in locations $24, $25 

;Restore the length of the string 
;Subtract the length of 

;The string from 

;FRETOP 

;If there is not an overflow, then branch 
;Decrement the MSB by 1l 

;Check for conflict with VARTAB 

;To see if we are 

;Intruding into the 

;ARRAY storage area 

;If an intrusion has occurred, then branch 
;Save the address to where 

;The string is to be stored 
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92C4: LDY 
92C6: LDA 
92C8: STA 
92CB: STA 
92CD: DEY 
92CE: PLA 
92CF;: STA 
~92D1: \LDX 
92D3: LDY 
92D5; STX 
92D7: STY 
92D9; RTS 


92DA: LDA 
92DC: BMI 
92DE: JSR 
92E1: SEC 
92E2: ROR 
92E4: PLA 
92E5; BNE 
92E7: JMP 


#$01 


#SFF 
SFFO4 
($24),¥Y 


($24) ,Y 
$37 
$38 
$35 
$36 


;Index over to the MSB of the descriptor pointer 
;After the string 

;Flag the string not in use (yet!) 

;Enable BANK 14 with RAM BANK 1 enabled 

;Set the flag for string not in use 

;Decrement the index 

;Get the length of string back off of the stack 
;Save to indicate how many bytes are allocated 
;Get the address to where the 

;String is to be stored 

;Save it as the NEW 

;FRETOP pointers 

;Exit the routine 


KKKKKKKKKKEKK KKK KKK KKK KK KEKE KKKKKKKKKKKKKKEKKKKKKKKKKKKKK 


GETSPA1 


GET SPAce 1 


This routine will check location $11 to see ifa 


and if it has been, an ‘OUT OF MEMORY' error will 
be generated. If a garbage collection has not 

been performed, then the routine will pull the 
length of the string off of the stack and jump back 
into the main routine GETSPA. 


* * 
* * 
* * 
* * 
* * 
* * 
* garbage collection has been performed flag (Bit 7) * 
* * 
* * 
* * 
* * 
* * 
* * 
* * 


KKK HH KK IKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKK KKK KKK KKK 


$11 


$92E7 
S9O2EA 


$11 


$92 9B 
$4D3A 


;Has a garbage collection been performed during 
;This string's creation? 

s;If so, then branch to ‘OUT OF MEMORY' error 
;Perform a garbage collection 

;Set the carry flag and then rotate it to bit 7 
;Get the 'Garbage Collection In Progress 'flag 
;Get the length of the string from the stack 
;Retry the allocation process 

;Generate an 'OUT OF MEMORY' error 


KKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK 


* * € + & 


String memory normally starts at SFFOO in RAM BANK 1 
and moves downward. After each string that is in 
memory, there are two bytes that point back to the 


GARBAG 


+ + + ££ + F 
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* string descriptor that is stored starting at $0402 

* and moves upward toward S$FFOO. Each time a string 

* is changed in anyway or another string is added to 

* or deleted from memory, this routine is called. 

* What this routine will do is start at SFEFF 

* (which contains the MSB of the address which points 
* to the string's descriptor) and check to see if it 

* contains a SFF (which is the flag to inform this 

* routine that this string is no longer needed or 

* used in memory). If it does not contain a SFF, the 
* routine will subtract the length of the string + 2 

* from this address which will place it at the next 

* string downward in the memory's descriptor pointer. 
* Let's say, for example, that the MSB of this 

* descriptor pointer contains a S$FF. Then this 

* routine will move the next string upward into 

* this location (as long as its descriptor pointer 

* does not contain a SFF as the MSB). Then the 

* routine will update the 'good' string's variable 

* descriptor to the string's new address in memory. 

* This process continues until all the 'good' strings 

* have been moved upward toward SFFOO thereby deleting 
* all of the ‘unused! strings. 

* 

* 


+ + € + FF &€ F&F FF FF FH F&F FF KF FF FH FH FH FHF FF FF KF FF HF 


KKK KKKKKKKKKKKKKEK KEKE KKK KKK KKK KKK KKK KKEKKKKKEKEKEKKEKKKKEKKKEKK 


92EA: LDX $18 ;Get the pointer to the next open string stack 

92EC: CPX #S1B ;Is the temporary string stack empty? 

92EE: BEQ $9303 sIf it is, then branch to 

92F0: JSR $93F0 ;Get the lowest string address 

92F3: BEQ $92EC ;lf the length of the string is 0, then branch 

92F5: TXA ;Move the LSB of the temporary string descriptor 
s;Into the accumulator 

92F6: LDY #0 ;Zero the index register 

92F8: STA SFFO4 ;Enable BANK 14 with RAM BANK 1 enabled 

92FB: STA (SSE) ,Y :;Save the LSB of the temporary string descriptor 

92FD: TYA ;Move the MSB of the strings to the accumulator 
; (Zero) 

92FE: INY ;Increment the index pointer 

92FF: STA (SSE),Y ;Save the MSB of the descriptor address after 
;The string 

9301: BNE $92EC ;Fall through 


9303: LDY #0 
9305: STY SSA 


9307: LDX $39 ;Get the highest memory available to 
9309; LDY $3A ;Strings, normally (SFFOO) 
930B: STX $61 s;And save it in the GRBPNT ($50, $51), 
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930D: 
930F: 
9311: 
9313: 
9315; 
9317: 


9318: 
931B: 
931D: 


931E: 


9321: 
9324: 
9325; 
9327: 
9329; 
932B: 
932D: 
932F; 
9331; 
9333; 
9335: 


9338: 
933A: 
933B: 
O933E: 
9340: 
9343: 


9344; 


9347; 
9349; 
934B: 
934C; 


934F: 


9350: 


9351: 
9352: 


_STX 


STX 
STY 
STY 
STY 
TXA 


JSR 
BNE 
DEY 


JSR 


JSR 
SEC 
ROR 
BNE 
BIT 
BPL 
LDX 
STX 
LDA 
LDY 
JSR 


STA 
DEY 
JSR 
STA 
JSR 
TAX 


JSR 


STA 
SLY 
TAXA 
JSR 


TXA 


TAY 


DEY 
JSR 


$50 
$37 
$62 
$51 
$38 


$9383 
$9329 


S42FB 


$93D2 


SSA 
$9318 
SSA 
$936F 
#0 
SSA 
#$02 
#$01 
$42FB 


($61) ,¥ 


S42FB 


($61) ,Y 


$03B7 


$93E1 


$37 
$38 


$93D2 


S42FB 


;And $61, $62 


;And $37, $38 


;Move the LSB of the MAXMEM1 value into the 
;Accumulator 

;And subtract it from $50, $51 (GRBPNT) 

;If an overflow occurred, then branch 

;Decrement the index pointer to point to the 
;Length of the string 

;Get the length of the string in the accumulator 
;Then subtract the length from GRBPNT to move it 
sto the list 

;First character of the string to FREEUP 

;Set the carry flag 

;Then rotate it into Bit 7 (set Bit 7) 


;Index over to the MSB of the string's 
;Descriptor and place it in the 
;Accumulator 

;And save it after the string 


;Get the LSB of the string's descriptor 

;And save it after the string 

;Get the length of the string whose address is 
;In locations $24, $25 and place it into the X 
;register 

;Subtract the length of the string from the 
;String's address 

;Save it 

s;In FRESPC 

;Move the length back into the accumulator 
;Subtract it from the old string's address so 
;The index pointer points to the first character 
;After the string to be moved 

;Move the length into the accumulator 

;Move the length into the Y register to be used 
;As an index pointer 

;Decrement the index pointer 

;Get a character from the string to be moved up 
,;in memory 
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9355: 
9357: 
9358: 
935A: 
935C: 
935F: 
9361: 
9362: 
9364; 
9366: 
9368: 
O936B: 
936D: 


936F: 
9371: 
9374: 
9375: 


9378: 
937A: 
937C; 
937D: 
9380: 
9383: 
9385: 
9387: 
9389: 
938B: 
938D: 
938F: 
9391: 
9393: 
9395; 
9398: 
939A: 


939D;: 
939F; 
93A2: 
93A4; 
93A6; 


STA 
DEX 
BNE 
LDY 
LDA 
STA 
DEY 
BNE 
LDA 
LDY 
JSR 
BEQ 
BNE 


LDY 
JSR 
TAX 
JSR 


STA 
STY 
TXA 
JSR 
JMP 
CPY 
BCC 
BNE 
CMP 
BEQ 
BCC 
BIT 
BMI 
LDA 
JSR 
LDA 
JSR 


LDY 
JSR 
CMP 
BNE 
RTS 


($61),Y 


$9351 
#502 


$0060,Y 
($24),Y 


$935C 
$50 
$51 
$9383 
$931D 
$9333 


#0 
$03B7 


$93E1 


$37 
$38 


$93D2 
$9318 
$36 
$93B1 
$938F 
$35 
$93B1 
$93Bl1 
S5A 
$9398 
#$02 
$93E1 
#502 
$93D2 


#$01 
$42FB 
#SFF 
$93A7 


;Then place it into the new address 

;Decrement the other index pointer 

;If not done, branch to continue 

s;Move a total of 2 bytes 

;Move the address of the string's new 

;Location into the string's variable 
;Descriptor which is pointed to by 

;Locations $24, $25 

;Get the address of the character which is 
;Just prior to the string in its new location 
;Test for anymore strings to relocate 

;If the next string is to be deallocated, branch 
;If not, then continue looping until the 'good' 
;Strings are shifted upward 

;Zero the index register 

;Get the length of the string in the accumulator 
;Then move the string length to the X register 
;Subtract the string length from the LSB of the 
;String descriptor (located after the string) 
;Which will place the address pointing to the 
;First character of the string 

;Save the address of 

;The first character of the string 

;Restore the string length to the accumulator 
;NOTE: See the comments at $9375 

;Continue searching for strings to delete 
;Check to see if the address in the accumulator 
;And the Y register are the same as FRETOP 

;If they are equal to or less than, then branch 
;To check to see if the address is pointing 

;To the temporary string stack 


;Check for a string transfer is in progress 

;If one is in progress, then branch © 

;Subtract 2 from $50, $51 

;GRBPNT-point to the descriptor after the string 
s;Subtract 2 from $61, $62 

;GRBTOP-point to the next descriptor after the 
;String 

;Get the MSB of the descriptor after the string 
;To check it to see 

;If it is the flag for 'string deallocated' 

;If it is not, then branch 

;If it is, then return 
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93A7: 
93AA: 
93AD: 
93AE: 
93B0: 
93B1: 


93B3: 
93B5: 
93B7: 
93BA: 
93BC: 
93BE: 


93C0: 
93C1; 
93C3: 
93C5; 
93C7;: 
93C8: 
93C9: 
93CB: 
93CD: 
93CF: 
93D1: 


93D2: 


KKK KK KKK HK HK HK KK KK KKH HKKHK IKK KK KKK KH KKK KKKHKKKKKKEKKKKKKKKKKKKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


JSR 
STA 
DEY 
BPL 
RTS 
LDX 


CPX 
BEQ 
JSR 
BEQ 
LDY 
STA 


INY 
LDA 
STA 
BNE 
PLA 
PLA 
LDA 
LDY 
STA 
STY 
RTS 


MOVDES 


MOVe DEScriptor 


is the two bytes after the string into $24, $25. 


On exiting from this subroutine locations $24, $25 
will contain the address of the string descriptor. 


S42FB 
$0024,Y 


$93A7 


$18 


#$1B 
$93C7 
$93F0 
$93B3 
#0 
(SSE) ,Y 


#SFF 
(SSE),Y 
$93B3 


$37 
$38 
$35 
$36 


* 
* 

* 

* 

* 

Move the address of the string's descriptor which = 
* 

* 

* 

* 

* 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKKKKKEKKKKKKKKKKKKKKKEK 


;Move the address of this 

;String's descriptor 

sInto locations $24, $25 

;In LSB, MSB format 

;And exit the routine 

;Get the index pointer to the next available 
;Temporary string descriptor 

;If the stack is empty, 

;Then branch to find the highest string address 
;Deallocate the last temporary string stack used 
;If the length of the string was zero, try again 
;Save the length of the string 

;In the LSB of the descriptor's address after 
;The string 

;Increment the index pointer 

;Place the flag for string is free after 

;The string 

;Unconditional branch 

;Pull the return address off of the 

;Stack of the routine that called this one 
;Make FRETOP 

;Equal to 

7;FRESPC 


s;Exit the routine 


KKK KKK KK KKK KK KKK KKK KKK K KKK KKK KKK KKK KKEKEKKEKKKKKKKKKKKKKKK 


* 


* 


* 


* 


* 


Subtract the value in the accumulator from $50, $51 * 


(GRBPNT) . 


* 


* 


KKEKKKKKKKKEKKKK KK KKK KEK KKKKKEKKKKEKKKKKKKKKKKKKKKKKKKKKKKKEKK 


EOR 


#SFF 


s;Invert the value 
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93D4; 
93D5: 
93D7: 
93D9:; 
93DB: 
93DC: 
93DE: 
93E0: 


93E1: 
93E3: 
93E4: 
93E6: 
93E8; 
93EA: 
93EB: 
93ED; 
93EF: 


93F0: 
93F1: 


93F3: 
93F5:3 
O93F6: 


SEC ;Set the carry flag 

ADC $50 ;Subtract the value in the accumulator from $50 
LDY $51 ;Get the MSB of the address 

BCS $93DC ;If there was no overflow, then branch 

DEY ;Decrement the MSB by 1 

STA $50 ;Save the LSB 

STY $51 ;And the MSB 

RTS ;Exit the routine 


KakKkKkKKKKKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKkKkKkKK kK 


* * 
* Subtract the value in the accumulator from $61, $62 * 
* (GRBTOP). * 
* * 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKkKkKkKkKkkkkkkkkkkkkKkKkkKkKkKkKkkk kkk 


EOR #SFF sInvert the value 

SEC ;Set the carry flag 

ADC $61 ;Subtract the value in the accumulator from $61 
LDY $62 ;Get the MSB of the address 

BCS $93EB ;If there was no overflow, then branch 

DEY ;Decrement the MSB by one 

STA $61 ;Save the LSB 

STY $62 ;And the MSB 

RTS ;Exit the routine 


kakkkkkkkkkkkkkkkkkkkKeKeKKKKkkK KKK KKKKKKKKKKKKKKK KKK KKK KKKK 


* 
* This routine subtracts one from the pointers to the * 
* next available temporary string stack to point to * 
* the MSB of the string's address in the no longer * 
* used string descriptor. Locations $5E, S$5F will * 
* contain the address of the deallocated string and * 
* the accumulator will contain the number of bytes * 
* deallocated (length of the string). The address in * 
* locations $5E, S$5F will be pointing to the LSB of * 
* the descriptor. bs 
* * 
* * 


kkk kkk kkk kkk Ke KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 


DEX ;Decrement the address of the temp. 

LDA $00,X ;Get the MSB of the strings address 
;From the string stack 

STA SSF ;Save the MSB of the string's address 

DEX ;Decrement the index pointer 

LDA $00,X ;Get the LSB of the strings address 


;From the string stack 
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93F8: STA SSE ;Save the LSB of the string's address 

93FA: DEX ;Decrement the index pointer 

93FB: LDA $00,X ;Get the length of the string from the 
;Temp. string stack 

93FD;: PHA ;Save the length of the string onto the 

93FE: CLC ;Stack and add the length of the 

93FF: ADC SSE ;String to the address of the 

9401: STA SSE ;String to free 

9403: BCC $9407 ;That string's space 

9405: INC  S5F ;Up in RAM 

9407: PLA ;Pull the length of the string (# of Bytes 
;Deallocated) 

9408: RTS ;And exit the routine 


KA KHK HK KKK AK KKK AK KKH KHAKI KAKKKKKAKKKEKEKAKKKKKKKKKKKKKKKKKKKKEK 


BASIC COS FUNCTION 
Function syntax: COS (X) 


This function will return a value which represents 
the cosine of 'X' where 'X' is an angle that is 


* 
* 
* 
* 
* 
* 
* 
* measured in radians. 
* 

* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


KKKKKKKAKKK KKK KKK KKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKK 


9409: LDA #585 ;Pointer to n/2 
O4OB: LDY #594 
940D; JSR S$8A12 ;Add */2 to FAC1 


KHKKKKKKKKKKKKKKKKKKKKEKKKEKKKKKEEKKKEKEKKKEKKKK KKK KKK KKKKE 


BASIC SIN FUNCTION ~ 
* * 
* Function syntax: SIN (X) * 
* * 
* This function will return a value which represents * 
* the sine of 'X' where 'X' is an angle that is x 
* measured in radians. * 
* * 
KKK KKK KK KKKKKKKKKKKKKKKKKEKEKKKKKKKKKKKKKKKKK KK KK KKK KKK K 

9410: JSR $8C38 ;Round FAC1 and move it to FAC2 

9413: LDA #S8A ;Address of 

9415: LDY #594 sum * 2 

9417: LDX S6F ;Get the sign of FAC2 

9419: JSR $8B41 ;Divide FAC2 by (%*2) 
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941C: 
941F; 
9422: 
9424: 
9426; 
9429; 
942B: 
942D; 
9430: 
9432: 
9433; 
9435; 
9438: 
943A: 
943C; 
943E; 
9440: 
9442; 
9445; 
9447; 
9449; 
944C; 
944D; 
944F; 
9452: 
9454; 
9456; 


9459; 
945C; 
945E: 
9460; 
9463: 
9465; 
9467; 


JSR 
JSR 
LDA 
STA 
JSR 
LDA 
LDY 
JSR 
LDA 
PHA 
BPL 
JSR 
LDA 
BMI 
LDA 
EOR 
STA 
JSR 
LDA 
LDY 
JSR 
PLA 
BPL 
JSR 
LDA 
LDY 
JMP 


JSR 
LDA 
STA 
JSR 
LDX 
LDY 
JSR 


$8C38 
S8CFB 
#0 
$70 
$8831 
#S8F 
#$94 
$8A18 
$68 


$9442 
S8A0E 
$68 
$9445 
$14 
#SFF 
$14 
S8FFA 
#$8F 
#$94 
$8A12 


$9452 
S8FFA 
#$94 
#594 
$9086 


;Round FAC] and place the result in FAC2 
;Convert FAC1 to integer format 
;Clear the sign 

;Comparison flag 

;Subtract FAC2 from FAC1 

;Address of the 

rConstant .25 | 

;Subtract .25 from FAC1 

;Get the sign of FAC1 

;Save it onto the stack 

;If it is positive, then branch 
;Round FAC1 by adding .5 

;Get the sign of FAC1 

s;If it is negative, then branch 
;Get the flag for TAN 

sInvert it 

;And save it back 

s;Invert the sign of FAC1 

;Address of the 

;Constant .25 

;Add .25 to FAC1 

;Get the sign of FAC1 off the stack 
;If the value is positive, then branch 
;Make the sign positive (+) 
;Address of the 

;Polynomial degree 

;Calculate polynomial of FAC1 


KEKE KKK KK KK KKK KKKEKKKKEKKKKEKKEKEKKKEKKEKEKKKKKKKKR KKK KKK KKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


Function syntax: 


This function will return a value which represents 
the tangent of 
measured in radians. 


S8BFC 
#0 
$14 
$9410 
#$50 
#0 
$8C00 


BASIC TAN FUNCTION 


TAN (X) 


"X' where 'X' is an angle that is 


+ + + + ££ ££ FF F 


KKK KK KK KKK KKK IKK KEK KEK KK KEKKEKKKEKKKKEKKKKKEKKKKKKKKKKKK KK KEK 


;Move FAC1 to locations $59, S5E 
;Clear the flag 

;For TAN 
;Calculate the SINE OF FAC1 
;Pointer to the temporary work area 
;Located at ($0050) 


s;Move FAC1 To location $50 
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946A: LDA #$59 ;Pointer to the temporary work area 
946C: LDY #0 ;Located at ($0059) 

946E: JSR S8BD4 ;Restore the original value to FAC1 
9471: LDA #0 ;Make the sign of 

9473: STA $68 ;FAC1 positive (+) 

9475: LDA $14 ;Get the flag for TAN 

9477: JSR $9481 ;And perfrom a COSINE function 
947A: LDA #$50 ;Pointer to the temporary work area 
947C: LDY #0 ;Located at ($50) 

947E: IMP S8B49 ;Move the sign of FAC1 back to FAC1 
9481: PHA ;Save the sign of FAC1 onto the stack 
9482: JMP $9442 ;Calculate the COSINE of FAC1 


KKKKKKKKKKKKKKKK KKK KEK KKK KKKKKKKKEKKKKKKKKKKKKEKKKKKKKKKKKK 


* * 
* Constant for SIN and COS * 
* * 


KK KK KKK KKK KKK KKK K KKK KKK KK KKKKKKKKEKKKKKKKEKKKKKKKKKKKKKKKKK 


EX Ml M2 M3 M4 
9485: .BYTE $81,$49,SOF,$DA,SA2 ; 1.57079633 m/2 
948A: .BYTE $83,$49,SOF,SDA,SA2_ ; 6.28318531 T*2 
948F: .BYTE S7F,$00,$00,$00,$00_ ; 25 
9494; .BYTE $05 ; 5 POLYNOMIAL DEGREE 
9495: .BYTE $B4,SEA,$1A,$2D,$1B ; -14.3813907 
949A: .BYTE $86,$28,S$07,SFB,SF8 ; 42.0077971 
949F: .BYTE $87,$99,$68,$89,$01 ; -76.7041703 
94A4: .BYTE $87,$23,$35,$SDF,SE1l ; 81.6052237 
94A9: .BYTE $86,$A5,$5D,$E7,$28 ; -41.3147021 
94AE: .BYTE $83,$49,SOF,SDA,SA2_ ; 6.28318531 Pix Z 


KAKKKKKK KKK KH KK KKK KKKKKKKKKKKKEKKKKKKKEKKEKKKEKKKEKKKKKKKKKKKEKK 
BASIC ATN FUNCTION 
Function syntax: ATN (X) 


This function will return a value which represents 
the angle in radians whose tangent is 'X'. 


t+ + + + + + F 


* 
* 
* 
* 
* 
* 
* 
* 
* 


KEKKKKKKKKKKKEKKKKKKKK KKK KKEKKKKEKKKKEKKKKKKEKKKKKKKKKEKKKKK 


94B3: LDA $68 ;Get the SIGN of FAC1 


94B5: PHA ;Save it on the stack 
94B6: BPL $94BB ;If the sign is positive, then branch 
94B8: JSR S8FFA ;Invert the sign of FAC1 
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94BB;: 
94BD: 
94BE: 
94C0: 
94C2: 
94C4: 
94C6: 
9409; 
94CB: 
94CD; 
94D0; 
94D1; 
94D3: 
94D5: 
94D7: 
94D9: 
94DC; 
94DD: 
94DF: 
94E2; 


94E3: 
94E8; 
94E9: 
O4EE; 
94F3:; 
94F8: 
94FD: 
9502: 
9507: 
950C: 
9511; 
9516: 
951B: 


LDA 
PHA 
CMP 
BCC 
LDA 
LDY 
JSR 
LDA 
LDY 
JSR 
PLA 
CMP 
BCC 
LDA 
LDY 
JSR 
PLA 
BPL 
JMP 
RTS 


$63 


#$81 
$94C9 
#$9C 
#$89 
S8A1E 
#SE3 
#$94 
$9086 


#$81 
$94DC 
#$85 
#594 
S8A18 


$94E2 
S8FFA 


;Get the exponent of FAC1 

;And save it onto the stack for recall later 
s;If the value of FAC1 is 

;Less than one, then branch 

;Address of the 

;Constant 1 in the log tables 

;Divide 1 by FAC1 

;Pointer to constant for polynomial degree 
;Calculate polynomial 

;And leave it in FAC1 

;Get the exponent of FACI1 back 

;See if the number was less than one 

;If it was less than one, then branch 
;Address of 

sPI / 2 

;Subtract FAC] from PI / 2 

;Get the sign of FAC] back 

;If it is positive, then branch to exit 
;Invert the sign of FAC1 

;Exit the routine 


KKKKKKKKKEKKKKK KKK KKK KKK KEKE KKK KKK KKKKKEKKKKKKKKKK KKK KK KKK 


* 


* 


* 


* 


FLOATING POINT CONSTANTS FOR ATN 


* 


KKK KKK KKKKKKKEKKKKKKK KKK KKK KKK KEKE KEKKKKEKKEKKKKKKKKEKEK 


EX Ml 


M3 M4 


~-BYTE $81,5$38,S5AA,$3B,$29 ; 1.44269504 = 1/LOG(2) 
-BYTE SOB ; 11 = POLYNOMIAL DEGREE 
~-BYTE $76,5B3,$B3,$5BD,$D3 ; -6.84793912E-4 

~-BYTE $79,51E,SF4,5A6,SF5 ; 4/85094216E-3 

-BYTE $7B,S$8E,$FC,$B0,$10 ; - .0161117015 

~BYTE $7C,$0C,$1F,$67,$CA ; .034209638 

-BYTE $7C,S5DE,$53,$CB,$Cl ; - .054279133 

~BYTE $7D,$14,$64,$70,$4C_ ; ~0724571965 

~BYTE $7D,$B7,SEA,$51,$7A ; - .0898019185 

~BYTE $7D,$63,$30,$88,S7E_ ; .110932413 

~BYTE $7E,$92,$44,$99,S3A ; - .142839808 

~BYTE S7E,$4C,$CC,$91,SC7 ; . 19999912 

~.BYTE $81,500,$00,$00,S$00 ; 1 
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9520: 
9522: 
9525: 
9528: 


952B: 


952E: 
9530: 
9531; 
95.33% 
9534; 
9536: 
9539 
953A: 
953D; 
953F: 
9542: 
9545; 


LDX 
STX 
JSR 
JSR 


JSR 


LDA 
PHA 
LDA 
PHA 
LDY 
JSR 
DEY 
STA 
BNE 
JSR 
STA 
TAY 


KEKKKKEKEKKEKKKKKKKKK KE KKKKKKRKEKKEKKKEKKKKKKKKKKKKKKKKKKKKKKKKK 


BASIC PRINT USING 


Command syntax: PRINT [#fn,] USING "xx"; pl 


NOTE: fn = the file number for a PRINT#fn USING 
xx = the format list 
pl = the print list 


This function is used to define the format of 
string and numeric characters that are printed to 
the screen, printer, or other device. 


This routine is called by the BASIC PRINT COMMAND 
and not by the BASIC INTERPRETER. 


On entry to this routine, TXTPTR is pointing to the 
first character before the opening quote mark in the 
FORMAT LIST. 


On exit from this routine, TXTPTR is pointing to the 
first character after the PRINT LIST, and you are 
returned to BANK 15. 


+e *  * OF FE OF OF FF F F F F F OF FF OF OF OF F 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


kkkkkkkkkkkkkkk kkk kkk k kkk kk KK KK KKK KKKKKKKKK KK KKK KKK KK KKK 


#SFF ;Set the pointer to the 

$0136 ;The end of the field 

$0380 ;Get the next character after the USING token 
ST7EF ;Evaluate the string (Format List) and place the 


;Address of the temporary descriptor in $66, $67 
; (INDICE) 


$77DD ;Make sure it is a string and if not, 

;Then generate a ‘TYPE MISMATCH' error 
$66 ;Save the address of 

;Which temporary descriptor 
$67 ;Is being 

;Used onto the stack (LSB, MSB) 
#502 ;Move the strings 
$42E7 ;Descriptor out of the 

;Temporary string stack and place 
SOO3F,Y ;It into FORM (FORMAT LIST) which will 
$9536 ;Be the string's address in LSB, MSB format 
$42E7 ;Get the length of the format list 
$0135 ;And save it in LFOR 


;Move the length into the accumulator 
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9546: 


9548: 


9549: 
954C: 


954E: 
9550: 
95515 
95933 
9556: 


9558: 


955B: 
955D: 
9560: 


9563: 


9565: 
9567: 


956A: 
956D: 


9570; 
9572: 
9574: 
9575: 
9578; 
957A: 
957C: 
O957E: 
9581: 
9583: 
9584: 
9586: 
9587: 
9589; 
958A: 
958C: 
958D: 
958F:; 
9591: 
9593: 


BEQ 


DEY 


JSR 
CMP 


BEQ 
TYA 
BNE 
JMP 
LDA 


JSR 


STY 
STY 
JSR 


Bit 


BPL 
JSR 


JSR 
LDX 


BEQ 
LDX 
SEC 
LDA 
SBC 
BCC 
LDX 
CPX 
BNE 
LSR 
ADC 
TAX 
LDY 
TXA 
BEQ 
DEX 
LDA 
BNE 
CPY 
BCS 


$9553 


$42D3 
#'#! 


$9556 


$9548 
$796C 
#' es! 


S795E 


$77 
$0123 
$77EF 


SOF 


$95A0 
$979F 


$98F2 
$012B 


$9587 
#0 


$0131 
$78 
$9587 
#¥aI 
$012B 
$9586 


#0 

#0 
$9591 
#$20 
$9599 


$78 
$958D 


sIf the length is zero (Null String), then 
;Branch to generate a 'SYNTAX' error 

;Subtract one from the length to create an Index 
;Into the string 

;Get a character from the format list 

;Is it the flag to reserve space for a character 
;In the print list? 

;If it is, then branch 

;Move the string length -1 to the accumulator 
;If not done, then keep checking 

;Generate a 'SYNTAX' error 

;Check for a semicolon after the format list 
;And if there is 

;Not, then generate a 'SYNTAX' error. If there 
;Is, get the first character after the semicolon 
,;Zero ZPTMPI 

;Zero BNR 

;Evaluate the expression after the semicolon 

; (the Print List) 

;Check to see if the VALTYP was string (#$FF) or 
sNumeric (#$00) 

sIf it is numeric, then branch 

;Deallocate the format list and set flag to 
;Indicate the Print List will be a string 


;Get the flag for centering '=' and 
sright justify '>' 
;If none were specified, then branch 


;Check if the centering character 
;Was specified 
;If it was not, then branch 
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9595: 
9598: 
9599; 
959C: 
959E: 
95A0: 
95A3: 
95A5: 
95A6: 
95A9; 


O5AB: 
95AC;: 
O5AF: 
95Bl1: 
95B4: 
95B7: 
95B9: 
O95BB: 
95BC; 
95BE; 
95Cl1: 
95C4:; 
95C7: 
95CA: 
95CC: 
95CE: 
95CF; 
95D1: 
95D4; 
95D5; 
95D6; 
95D7: 
95DA: 
95DD: 
95DF; 
95E1: 
95E4: 
95E7: 
95EA: 
95ED: 
95F0; 
95F2: 
95F5; 
95F8:; 
O5FA;: 
95FC: 


JSR 
INY 
JSR 
BNE 
BEQ 
JSR 
LDY 
INY 
LDA 
BNE 


TYA 
JSR 
LDY 
STA 
LDA 
BEQ 
STA 
INY 
BNE 
JSR 
JSR 
JSR 
JSR 
CMP 
BEO 
SEC 
ROR 
JSR 
PLA 
TAY 
PLA 
JSR 
JSR 
CMP 
BEQ 
JMP 
JMP 
STA 
LDA 
STA 
LDA 
STA 
JMP 
STX 
CRY 
BEQ 


$03B7 


S$98EB 
$9589 
$95C7 
S$8E42 
#SFF 


$0100,Y 


$95A5 


$8690 
#0 
SFFO4 


$0100,Y 


$95BE 


($64) ,Y 


S$95B4 
$8653 
$979F 
$95E7 
$0386 
#',' 

$9558 


$77 
$98F2 


$8785 
$0386 
#':' 
$95E4 
$5598 
$0380 
SFFO3 
$1204 
$0133 
#SFF 
$0132 
SOSFA 
$80 
$78 
$9631 


;Convert the numeric value to a string at $0100 


;Get a character of the string 

;If it is not the end of the string, then 
;Continue getting the characters 

;Move the string length to the accumulator 
;Create a space in memory for the string 
;Clear the index 

;Enable BANK 14 with RAM BANK 1 

;Get a byte of the string 

s;lf we are at the end, then branch 
;Transfer the string 

;From $0100 

;To its area in RAM BANK 1 

;Move the string descriptor to the string stack 


;Get the character after the expression 
;Is it a comma? 
;If so, branch to evaluate the next expression 


;Enable BASIC BANK 14 
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$0100,Y 


#' | 
S9O5FA 
HI! 
S95F2 
ag 
S95F8 
#'e! 
$9623 


$0100,X 


$0124 


$80 

SO5FA 
$S012A 
SOSFA 


$0100,Y 


fis 
$962D 
$0128 


$0129 
$80 

$9637 
$80 

$98F2 
$012C 
#FPF 

S966A 
$012F 
$9685 
$0129 
$965D 
$0124 
$9774 


$0102,X 


$0129 
S97FB 
$9682 
$012E 
$9679 
$0132 
$9679 
$012C 
$96D6 


a space? 


C-128 BASIC 7.0 Internals 


is, then branch 
a negative sign? 
is, then branch 
a decimal point? 
is, then branch 
an ‘e' for scientific notation? 
is, then branch 
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96DE: 
96DF: 
96E1; 
96E4: 
96E6: 
96E9; 
96EB: 
96EE; 
96EF: 
96F2: 
96F5; 
96F73 
96F9: 
96FB: 
96FD: 
9700; 
9702: 
9704: 
9705: 
9708: 
970B: 
970D: 
970F: 
9711: 
9713: 
9715: 
9717: 
971A: 
971C; 
971D: 
9720: 
9723: 
97253 
9727: 
972A: 
972C: 
972E:3 
9730: 
9731: 
9733: 
9735: 
9738: 
9739; 
973C:; 
973D: 
973F3 
9742: 


TAY 
BEQ 
LDA 
BNE 
DEC 
INC 
JMP 
SEC 
LDA 
SBC 
BEO 
LDY 
BCC 
STA 
CPY 
BEQ 
BCS 
INY 
INC 
JSR 
DEC 
BNE 
BEQ 
EOR 
ADC 
STA 
CPY 
BEQ 
DEY 
DEC 
JMP 
INC 
LDA 
JSR 
DEC 
BNE 
STY 
RTS 
BNE 
EOR 
STA 
DEX 
CPX 
RTS 
LDA 
LDX 
INX 


$9682 
$012A 
$9682 
$0127 
$77 

$9682 


$012C 
$012A 
$9730 
$80 

$9711 
$78 

$0124 
$9704 
$9705 


$012A 
$973D 
$78 
S96FD 
$972E 
#SFF 
#$01 
$78 
$0123 
$9723 


SO12A 
$9725 
$77 
#$80 
$973F 
$78 
$9717 
$80 


$976C 
#509 


$0100,X 


$0129 


#0 
$0129 
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9743: 
9746; 
9748: 
974B; 
974D; 
9750; 
9753; 
9755; 
9758; 
975B; 
975E; 
9760; 
9763: 
9765; 
9768: 
976A: 
976C; 
976D; 
976E; 
976F: 
9772: 


9774: 
9777: 
9779: 
977C: 
O77E: 
9781: 
9782: 
9785: 
9788: 
978A: 


BIT 
BMI 
EOR 
BEQ 
JSR 
JSR 
BCS 
JMP 
LDA 
DEC 
CMP 
JSR 
BCS 
BIT 
BPL 
STY 
PLA 
PLA 
RTS 
LDA 
EOR 


STA 
LDA 
STA 
LDA 
STA 
RTS 
LDA 
INC 
CMP 
RTS 


$0130 
$9758 
$0128 
$9758 
$9782 
$9731 
$974D 
$895D 


$0100,X 
$0100,X 


#$30 
$9731 
$9758 
$0130 
$976F 
$80 


$0128 
#$80 


$0128 
#10! 


$0101,X 


giz 


$0102,X 


$0100,X 
$0100,X 
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;Get the sign of the exponent flag 
:;Condition Bit 7 which is the sign 
;Negative) 

;Save it back 


Chi 


s;Exit the routine 


KRKKKKKKKKKKEKKKKKK KK KEKKKHKKEKKKKKKKKEKKKKKKEKKKKKEKEKKKKKKKKK 


+ *€ + + € € € £ FF FF HF F 


This subroutine will test the value that is in the 


Y register to see if it is SFF. 


If it is, then 


the routine will get the number of leading zeros 


in the Y register. 


The routine will then pull 


the return address of the calling routine and exit. 


against the length of the format text. 


If the value 


is less than the length of the format text, then 
the routine will get the next character from the 


format text, 


* 
* 

* 

* 

* 

* 

If the value is not SFF, the value is compared * 
* 

* 

* 

* 

* 

* 


increment CFORM and exit. 


KAKKKKKKKKKKKKKKKK KEK KKKEKKKKKKKKKEKKKKEKKKKEKKKKKKEKKKKKKKKEKEK 
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978B; 
978C: 
978D; 
978F: 
9792; 
9794; 
9796: 


9798: 
979B: 


979E: 


O979F: 


97A2: 
97A4: 
O7A6: 
97A8; 
S7AB: 
97AC: 
S7AE: 
97B1: 


97B3: 


97B6: 


97B7: 
97B8: 


CLC 
INY 
BEQ 
CPY 
BCC 
LDY 
BNE 


JSR 
INC 


RTS 


JSR 


STA 
LDX 
LDA 
STA 
DEX 
BPL 
STX 
STX 


STX 


TAX 


TAY 
RTS 


$9794 
$0135 
$9798 
$77 

$976C 


$42D3 
$0131 


;Clear the carry flag 
;increment the ENDFD 
sAnd if it was SFF, then branch 


*;Branch to pull the address of the calling 
;Routine off the stack-return to the main loop 
;Get a character from the Format List 
;Increment the counter to the next character to 
;Be read in the Format List 

;Exit the routine 


KEKKKKKKEKKEKKKKKKKEKKKEKKEKKKEEKKEKKKEKKKKKKKKKKEKKKKKKKKKKRKK 


+ + + + + F 


This subroutine is used to zero out the Print 
USING's WORK AREA and deallocate the last string 
that was accessed by the Print Using command by 
calling FRESTR, to deallocate the print list. 


+ + + + 


KKKKKKHKKEKK KK KKK KKK KKK KKKKKEKKKKKEKEKKKKEKKEKEKKKEKKKKKKKKKKKKKEK 


$8781 


$78 
#S0A 
#0 


$0127,X 


SO7A8 


$0126 
$80 


$0125 


;Deallocate the string whose address is in $66, 
7;$67 

;Save the length of the string in HULP 

;Zero out the PRINT USING 

;Work area from $0127 to $0131 


;Set FLAG to isignal the format list is a string 
;Set POINT to signal that no decimal point was 
;Used in the format list 

;Set DOLR to indicate the Format List does not 
;Have a floating dollar sign (S$) 

;Zero the X and Y registers 


s;Exit the routine 
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$80 
$012D 
SO7FA 


$77 

SO7FA 
$0124 
$97CD 
SOTFA 
$0123 
SO7FA 


$0100,X 


#$35 

SOTFA 
$0123 
S97E9 


$9782 
$0124 
$97DA 


#$31 


$0100,X 


$80 
$77 
SO7FA 
$77 
$012A 


$80 
$9816 
$0123 


$0100,Y 


#$30 


$80 

$973D 
$0123 
$0124 
SO7FA 


$9802 
$9808 
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981C: 
981F: 
9821: 
9823: 
9826; 
9827: 
982A; 
982D: 
982E: 
9830: 
9832: 
9835: 
9837: 
983A: 
983D: 
9840: 
9843: 
9846: 
9848; 
984A; 
984D: 
9850: 
9853: 
9855: 
9857: 
9859; 
985B: 
985D: 
985F: 
9861: 
9864; 
9867: 
986A: 
986C: 
986D: 
9870: 
9872: 
9874: 
9877: 
9879: 
987B: 
987E: 
9881; 
9884: 
9887: 
988A: 
988D: 


LDA 
BMI 
INC 
LDX 
DEX 
LDY 
JSR 
INY 
CMP 
BNE 
BIT 
BMI 
STA 
LDA 
JMP 
LDA 
JMP 
CMP 
BNE 
STA 
LDA 
JMP 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BNE 
LDA 
JSR 
LDY 
JSR 
BNE 
INY 
JSR 
BEQ 
LDA 
BIT 
BMI 
LDA 
JSR 
LDX 
LDA 
JSR 
LDY 
JMP 
LDA 


$0125 
$9823 
$77 

$0123 


$0134 
$42D3 


#$2C 

$9846 
$0126 
$9840 
SFFO3 
$1205 
S$98AB 
$0133 
S$98AB 
#S2E 

$9853 
SFFO3 
$1206 
S9O8AB 
# t+! 

$9892 
#r-t 

$988D 
Fae 

$98C8 
#$45 

$98EB 
$0129 
$9802 
$9872 


$9802 
$9879 
#$2D 

$0128 
$987B 
#$2B 

$98EB 
$0129 


$0100,X 


$98EB 
$0136 
S98A1 
$0132 
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9890: 
9892: 
9895: 
9898: 
989A: 
989C; 
989F: 
98Al1;: 
98A2; 
98A5: 
98A6: 
98A8; 
S98AB: 
O98AE; 
98B0;: 
98B3; 
98B4;: 
98B6: 
98B9; 
O8BB: 
98BC: 
O98BF: 
98C2: 
98C5; 
98C8;: 
O98CB: 
98CD; 
98D0; 
98D2: 
98D5; 
98D8: 
98DA: 
98DD: 
98DF; 
98E1: 
98E4: 
98E7; 
98E8;: 
O8EB: 
98EE; 
98F1: 
98F2; 


$9840 
$0132 
$98AB 
$77 

$98B4 
$0124 
$98A6 


$0100,X 


$2C 
#48 
$0126 
$98EB 
$98B3 
$982A 


$77 
$0125 
$98A6 


$0125 
SFFO3 
$1207 
$98A8 
$0127 
$9898 
$0127 
$98D5 
$9840 
$012E 
$98D0 
$42D3 
#*,! 

$988D 
$0133 
$98EB 


S9O8DA 
$560C 
$0131 


$0136 


;Print the character that is in the accumulator 


;Get the pointer to the end of the Print List 
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O8F5: 
O8F8: 
OSFB: 


O8FD: 


9900: 


9902: 
9903: 
9906: 
9908: 


990B: 
990D: 
9910: 
9911: 
9914: 
9917: 
9919; 
991C; 
O91E:; 
9920: 
9923: 
9924; 


9927: 
992A: 
992C: 
992E; 
9930: 
9933: 
9935: 
9937: 
9939: 
993A: 
993C: 
993E: 
9941: 


JSR 
JSR 
BNE 


STY 


BCC 


TAX 
JSR 
BCS 
JSR 


BEQ 
LDY 
TXA 
JSR 
JMP 
BCS 
LDY 
LDX 
BNE 
STX 
DEY 
DEC 


JSR 
BCS 
CMP 
BEQ 
JSR 
BCC 
CMP 
BNE 
INX 
CPX 
BCC 
JMP 
JSR 


kkk KkKk KKK kk kkk kkk KKK KKK KK KKKK KKK KKK KKKKKKKKKKKKKKKKKK KK KKK 


+ + + + 


PUPAS 


Print Using PARSer 


+ + + + 


RKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KK KKKKKKKKKKKKKKKKK 


$978B 
$99A7 
$9911 


$0134 


$991C 


$978B 
$990D 
S99AF 


$9917 
$0134 


$560C 
S98F5 
$9903 
$0134 
$77 

$999A 
$0131 


$0131 


$978B 
$99A0 
#',' 

$9927 
S997E 
$9924 
#53 

$9941 


#502 

$9927 
$796C 
$99B3 


;Get the next character from the format list 
;Test the format list characters (See $978B) 
;If it is not one of the special characters, 
;Branch to print the character 

;Save the index pointer to point to the start 
;of the Print List 

;Ilf the control character was the pound sign, 
;Then branch 

;If not, then move it into the X register 

;Get the next character from the format list 
;If the format list end has been found, branch 
;Check for a decimal point, equal sign, greater 
;Than, or pound sign 

;If there is a match, then branch 

;Get the first index 

;Move the character to the accumulator 

;Print the character that is in the accumulator 
;Continue to parse the format list 


;Decrement the current character being 
;Processed counter 
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9944: BNE $9951 
9946: BCC $994B 
9948; STA $012B 
994B; INC $012C,X 
994E: JMP $9927 
9951: CMP #'S' 
9953: BNE $9964 
9955: BIT $0125 
9958: BPL $994B 
995A: CLC 

995B: ROR $0125 
995E: DEC $012C 
9961:  JMP $994B 
9964: CMP ied 
9966: BNE S99O7E 
9968: LDX #$02 
996A: JSR $978B 
996D: BCS $993E 
996F; CMP et“ 
9971: BNE $993E 
9973: DEX 

9974: BPL S996A 
9976; INC $012F 
9979; JSR $978B 
997C: BCS $99A0 
997E: CMP #'+! 
9980: BNE $999B 
9982: LDA $0132 
9985; BPL $998C 
9987: LDA #'+! 
9989: STA $0132 
998C: LDA $012E 
998F; BNE $993E 
9991: ROR $012E 
9994: STY $0136 
9997; INC $0131 
999A; RTS 

999B: CMP #t—' 
999D: BEQ $998C 
999F: SEC 

99A0: STY $0136 
99A3: DEC $0136 
99A6: RTS 


512 


Abacus Software C-128 BASIC 7.0 Internals 





KkkkkkkkkkkkkkkkkkkkkkkkkkkKKKkkkkK KKK KKK KKKKKK KK KKK KK KKK 


* * 
* This routine will check to see if the character in * 
* the accumulator is one of the control characters for * 
* the format list and if it is, the carry flag will be * 
* set with the exception of the pound sign which the * 
* flags are reversed. * 
* * 
* * 


KEKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKEKKKKKKKKKKKKKKKKKKKKKKK 


99A7: CMP #'+! sIs it a plus sign? 

99A9; BEQ $99C0 ;If it is, then branch 

99AB: CMP #'-'! ;Is it a minus sign? 

99AD: BEQ $99C0 s;If it is, then branch 

O9AF: CMP a ;Is it a decimal point? 

99B1: BEQ $99C0 ;If it is, then branch 

99B3: CMP #'=! ;Is it an equal sign? 

99B5: BEQ $99C0 ;If it is, then branch 

99B7: CMP #'>! sIs it a greater than sign? 

99B9: BEQ $99C0 ;If it is, then branch 

99BB: CMP #'#! ;Is it a pound sign? 

99BD: BNE $99C0 ;If it is not a pound sign, then branch 
99BF: CLC ;Flag for pound sign (carry clear) 
99C0: RTS ;Carry flag remains set if character was found 


KKEKKKKKKKKEKKKKEKKEKKKKKKKKKEKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKK 


BASIC INSTR COMMAND 
Command syntax: INSTR (str.#1,str.#2[,strtpos] ) 


NOTE: str.#1 = the string to be searched 
str. #2 the string to search for 
strtpos the starting position in string 
#1 where the search will begin 


specified by 'str.#2' in the string specified by 
"str.#1'. The optional starting position specified 
by 'strtpos' will determine at what position in 
string #1 the search will begin. If the starting 
position specified in 'strtpos' is greater than the 
length of string #1 or if string #1 is a null string 
or if no match was found, then INSTR will return a 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* This command will return the position of the string 
* 
* 
* 
* 
* 
* 
* 
* value of zero. 
* 
* 


+ + + © + €* FF &* &€ FF FH FF FF FF FF FE FEF F FEF F 


KKKKKKKKKKKKKKKKKKEKKEKEKKKKKKKKKKEKKEKKKKKKEKKKKKKKKEKKKKEKKK 
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99C1; 
99C3: 
99C6: 
99C8: 
99CB: 


99CE: 


99D1; 
99D3; 
99D6: 
99D8; 
99DB: 
99DD: 
99DF: 
99E2; 
994; 


99E6: 


99E9: 


99EC: 
99EE: 


99FO: 
99F3: 
99F4: 
99F6: 
99F8: 
O99OFB;: 
99FD: 
99FE;: 


9A00; 
9A02; 
9A04: 
9A07; 
9A0A; 
SA0C: 
9AOF: 
9A12: 
9A13: 
9A15; 
9A17: 


LDA 
STA 
LDA 
STA 
JSR 


JSR 


LDA 
STA 
LDA 
STA 
LDX 
STX 
JSR 
CMP 
BEQ 


JSR 


JSR 


LDX 
BNE 


JMP 
DEX 
STX 
LDX 
LDA 
STA 
DEX 
BPL 


LDY 
LDA 
JSR 
STA 
LDA 
JSR 
STA 
DEY 
BPL 
LDA 
BEQ 


$66 
$03D6 
$67 
$03D7 
S77EF 


$77DD 


$66 
$03D8 
$67 
$03D9 
#$01 
$67 
$0386 
#')! 
$99E9 


$8809 


$7956 


$67 


S99F3 


$7D28 


$63 
#$03 


$03D6,X 


$59,X 
$99F8 
#502 


#$59 
$SO3AB 


$005D,Y 


#S$5B 
$O3AB 


$0060,Y 


$9A02 
$60 
$9A54 


;Get the address of the descriptor 
;For string #1 and save it 
s;into TMPDES 


;Evaluate string #2 and place the address of its 
;Descriptor into locations $66, $67 

;Ensure it was a string that was evaluated and 
;If it was not a string, then 

;Generate a 'TYPE MISMATCH' error 

;Get the address 

;Of the descriptor 

;For string #2 and save it 

;Into TMPDES + 2 

;Set the optional starting 

;Position to one 

;Get the character after string #2's '$' and 
;See if it is the closing parenthesis and 

;If it is, then branch past the code for 
;Obtaining the optional starting position 

;Skip the comma and get the value of the 
;Starting position and save it to location $67 
;If the character following the starting 
;Position value is not a closing parenthesis, 
;Generate a 'SYNTAX' error 

;Get the starting position requested by the user 
s;And if it is greater than zero, do not generate 
7;An ‘ILLEGAL QUANTITY' error 

;Generate an 'ILLEGAL QUANTITY' error 

;Subtract one from the starting position and 
;Save it to be used as an index value 

;Copy the address of string #1 

;And the string's descriptor 

;Into locations $59, $5A (PTARG1) and 
;Locations $5B, $5C (PTARG2) with PTARG1 

;Being string #1's descriptor and PTARG2 being 
;String #2's descriptor 

;Copy string #1's descriptor into 

;$5D = length of string #1 

;S5E = LSB of string #1's address in RAM BANK 1 
;S5F = MSB of string #1's address in RAM BANK 1 
;$60 = length of string #2 

;$61 = LSB of string #2's address in RAM BANK 1 
;$62 = MSB of string #2's address in RAM BANK 1 
;The above addresses are used internally 

;By INSTR, leaving original descriptors intact 
;Get the length of string #2 

;And if it is zero, then return a position of 0 
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9A19; 
9A1B: 
9A1D: 
9A1E: 
9A20: 


9A22: 


9A24: 
9A26: 


9A28: 
9A2A: 
9A2C; 
9A2E: 
9A30: 
9A31; 
9A32: 
9A34; 


9A35: 
9A373 
9A3A: 
9A3C; 
9A3E; 
9A40: 
9A43: 
9A45;: 
9A47: 
9A49; 
SA4B: 
9A4D; 
9A4F: 
9A51; 
9A53: 
9A54;: 
9A56; 
9A59: 
9A5A: 
9A5D: 
9A60: 
9A63: 
9AG66: 
9A69; 
9A6C: 
9AGF;: 
9A70: 


LDA 
STA 
CLC 
LDA 
ADC 


BCS 


CMP 
BCC 


BNE 
LDY 
CPY 
BEQ 
TYA 
CLC 
ADC 
TAY 


LDA 
JSR 
STA 
LDY 
LDA 
JSR 
CMP 
BEQ 
INC 
BNE 
INC 
BNE 
INC 
LDA 
. BYTE 
LDA 
STA 
PHA 
LDA 
LDY 
JSR 
STA 
LDA 
LDY 
JSR 
PLA 
TAY 


#0 
$64 


$60 
$63 


S9A54 


$5D 
S$9A2A 


$9A54 
$64 
$60 
S9A4F 


$63 


#S5E 
SO3AB 
$79 
$64 
#561 
$03AB 
$79 
$9A4B 
$63: 
$9A19 
$64 
S9A2A 
$63 
$63 
$2C 
#0 
SFFO3 


$03D8 
$03D9 
$8785 
SFFO3 
$03D6 
$03D7 
$8785 


;Zero the index 

;Pointer 

;Clear the carry flag for addition 

;Add the starting position to the length of 
;String #2 to index over to where the search is 
;To begin inside string #1 

;If the total length is greater than 255, then 
;Return a position of zero 

;If the total is less than 

;The length of string #1, then branch to find 
;The 'position' 

;If they're unequal, then return a position of 0 
;Get the index pointer and if 

;It equals the length of string #1, 

;Then branch to increment the value and exit 
;Move the index pointer into the X register 
;Then add it to the 

;Position of string #2 in string #1 

;Then move it into the Y register as an index 
;To string #1 

;Get a character 

;From string #1 

;And save it in SYNTMP 

;Get the index pointer 

;Get a character 

;From string #2 

;And see if it equals string #1 and 

;If it does, then increment the pointers 
;Increment the 'position' counter 

;And restart the main loop 

;Increment the index pointer 

s;And branch to continue the comparison 
;Increment the 'position' counter 

;Get the position of string #2 in string #1 
;MASK to fall through to $9A56 

;Return a position of zero 

;Enable BANK 14 

;Save the position onto the stack 

;Get the address of string #1 

;From TEMPDES + 2 and free 

;Up the space from the temporary string stack 
;Enable BANK 14 

:;Get the address of string #2 

;From TEMPDES and free up 

;The space from the temporary string stack 
;Get the position off of the stack, 

;Move it into the Y register 
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9A71:3 


9A74: 
O9A7T7: 
9A79: 
SATA; 
9ATB: 
9A7D: 
SATE: 
9A80; 
9A82; 
9A85; 
9A86; 
9A88: 
S9A8B: 
9A8C; 
9A8D;: 
9A8F: 
value 
9A91; 
9A94; 
9A96: 
9A97: 
9A98; 
9A9A; 
9A9C: 
9A9E: 
9AA0: 
9AA1; 
9AA2: 
9AA3;: 
SAA6: 
9AA9: 
9AAA: 
SAAC; 
9AAE: 
9AB1; 
9AB2; 
9AB3; 
9AB6; 
9AB7:; 
9ABB; 
SABA; 
SABB: 
9ABD; 
9ACO: 
9AC1: 


JMP 


JSR 
LDX 
INX 
SEC 
SBC 
BCS 
DEY 
BPL 
STX 
PHA 
ADC 
JSR 
PLA 
CLC 
EOR 
ADC 


DEC 
LDX 
INX 
SEC 
SBC 
BCS 
ADC 
STA 
TXA 
ASL 
TAX 
LDA 
LDY 
CLC 
DEC 
BMI 
ADC 
PHA 
TYA 
ADC 
TAY 
PLA 
BCC 
PHA 
LDX 
LDA 
LSR 
BCS 


$84D4 


$9D8F 
#0 


#S5A 
$9A79 


$9A79 
$1149 


#S5A 
$9A94 


#SFF 
#S$01 


$1149 
#SFF 


#S0A 
$9A96 
#S0A 
$8E 


SOF2A,X 
$9F29,X 


S8E 
S9ABA 


SOF3D+1,X 


S9OF3D,X 


S9AA9 


#0 
$1149 


$9AC5 


;And convert it to a Floating Point number 
;In FAC1 and exit 


;Decrement the MSB 

;Continue until done 

;Save the index 

;Save the LSB onto the stack 
;Add 90 to the LSB 


;Get the LSB off of the stack 


;Invert the value and 
;Add one to generate the two's complement of the 


;Decrement the index 
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9AC3: LDX #502 
9AC5: PLA 

9AC6: STA $114A,xX 
9AC9: TYA 

9ACA: STA $114B,X 
9ACD: RTS 

9ACE: LDY #519 
9ADO: BCC S9AD4 
SAD2: LDY #S1B 
9AD4: LDA $1149 
9AD7: ADC #$02— 
9AD9: LSR 

SADA: LSR 

9ADB: PHP 


SADC: JSR S9OD8F 
SADF: CPY #SFF 
9AE1: BCC S9AEA 


S9AE5: JSR S9OD8F 
9AE8: BCS S9AED 
SAEA: JSR S9DAE 


9AEE: BCS $9BOB 
SAFO: JMP S9OD9E 
9AF3: STA $114E 
SAF6: LDX #$23 
9AF8: ASL $114E 
9AFB: JSR $9ACE 
SAFE: STA $1131,X 


9B01: TYA 
9B02: STA $1132,X 
9B05: INX 
9B06: INX 


9BO7: CPX #S2B 
9B09: BCC S9AF8 


KKEKKKKKKKKK KKK KKKK KK KKK KKK KEKE KKKKKEK KKK KEKKKKKKKKKKKKKEK 


BASIC RDOT FUNCTION 
Command syntax: RDOT (X) 


NOTE: If 'X' equals zero, then RDOT will return 
the X coordinate of the pixel cursor. 


+ + + + + + 
+ + + + + HF 
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9BOC: 
OBOF: 
9B1l1; 
9B13; 


9BiS 
9B18: 
9B1B: 
9B1C: 
OBIE; 


9B20: 
9B23; 
9B24: 
9B25: 
9B26; 
9B29:; 
O9B2A: 
9B2D: 


9B30: 


9B32: 
9B34: 
9B36: 
9B39; 
9B3C; 


OB3F: 


9B41: 
9B44:; 


9B47: 
OB49: 


JSR 
CPX 
BCC 
BEQ 


JMP 
JSR 
TAY 
BCC 
LDY 


JMP 
TXA 
ASL 
TAX 
LDA 
TAY 
LDA 
JMP 


LDX 


LDY 
LDA 
STA 
STA 
JSR 


BPL 


DEC 
DEC 


BNE 
CMP 


This function will return the coordinates or color 
source of the pixel cursor depending on the value 
specified by 'X'. 


S87F7 
#2 

$9B23 
$9B18 


$7D28 
$9c49 


$9B20 
#0 


$84D4 


$1131,xX 


$1132,X 


$793C 


#$02 


#506 
#0 


$113D,X 
$113E,X 


$9D99 


S9B49 


$113D,X 
$113E,X 


$9B54 
#0 


'"X' equals one, then RDOT will return 
the Y coordinate of the pixel cursor. 


'X' equals two, 
the color source of the pixel cursor. 


then RDOT will return 


+ + + + £ + & + F F 


Koko kkk kkk kkk kk kok okokokok kok kok kok kkk kok kkk keke kok kkk kok koko kee kok kek kok 


;Get the argument into the X register 

;If it less than two, 

;Branch to get the pixel cursor's coordinates 
;If the value is equal to2 , then branch to get 
;The color source of the pixel cursor 

;Generate an 'ILLEGAL QUANTITY' error 

;Get the color source of the pixel cursor 

;Move the color source value to the X register 
;If the color source was in range, then branch 
;If the color source was not in range, return 
;A value of zero 

;Convert the value to Floating Point number-exit 
;Multiply the argument 

7;By 2 

;And store it in the X register 

;Get the LSB of the pixel cursor's coordinate 
;Save it in the Y register 

;Get the MSB of the pixel cursor's coordinate 
;Convert the coordinate value to Floating 
;Point format and exit 

;Set up an index to the DRAW line starting Y 
;coordinate 

;Set up an index to the destination Y coordinate 
;Clear the comparison 

;Flags 


;Calculate the difference between the starting 
;And destination coordinates 

;If the starting coordinate was less than the 
;Destination coordinate, then branch 

;If the starting coordinate is greater than the 
;Destination coordinate, then set the sign to 
s;negative 

;If the sign is negative, then branch 

;If the LSB of the difference is not zero, 
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9B4B: BNE $9B51 ;Then branch 

9B4D: CPY #0 ;If the MSB of the difference is zero, 

S9B4F;: BEQ $9B54 ;Then branch to leave the compare flag at zero 
; (equal) 

9B51: INC $113D,X ;If it is not equal to zero, then get the flag 
;For destination coordinate is greater 

9B54: STA $1139,X ;Save the LSB of the difference 

9B57: ASL ;And multiply it by 2 

9B58: STA $1141,X ;Save the result 

9B5B: TYA ;Save the MSB 

9B5C: STA $113A,X ;Of the difference 

O9B5F: ROL ;Add the carry to it 

9B60: STA $1142,xX zsAnd save the result 

9B63: DEX ;Decrement the starting coordinate 

9B64; DEX ;Iindex by 2 

9B65: LDY #$04 ;Set the destination coordinate index 
;To the X coordinate 

9B67: CPX #0 ;Check to see if the index is pointing to the 

9B69: BEQ $9B34 ;Starting X coordinate and if so, then branch 


9B6B: LDX #SOA 

9B6éD: LDY #508 

SB6F: JSR S9D7C 
9B72: LDA #0 


9B74: ROL ;Shift the carry, if any 

9B75; ROL sInto bit 2 of the accumulator 
9B76: STA $1147 ;Save it 

9B79: EOR #502 sInvert bit 2 

9B7B: STA $1148 ;And save it 

9B7E: CLC 


SB7F: LDA #510 
9B81: ADC $1147 


9B84: TAY 
9B85: PHA 
9B86: EOR #$02 
9B88:; TAX 


9B89: JSR S9D7C 
9B8C: STA $1131,X 


O9B8F: TYA 
9B90; STA $1132,X 
9B93: PLA 
9B94:; TAY 
9B95: CLC 


9B96;: LDA #508 
9B98; ADC $1148 
9B9B: TAX 

9B9C: JSR S9D7C 
S9B9F: STA $1145 
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9BA2: STY $1146 


9BA5: JSR $ 9BFB ;Plot a point of the line 
9BA8: LDY $1148 
9BAB: SEC 


9BAC: LDA $1139,Y 
9BAF: SBC #S$01 
9BB1: STA $1139,Y 
9BB4: BCS $9BC1 
9BB6: LDA $113A,Y 
9BB9: SBC #0 
S9BBB: STA $113A,Y 
SBBE: BCS $9BC1 
9BCO: RTS 

9BC1: LDX $1147 
9BC4: LDA $1146 
9BC7: BMI $9BCF 
9BC9: JSR SOBEA 
9BCC: LDX $1148 
S9BCF: CLC 

9BDO: LDA $1145 
9BD3: ADC $1141,X 
9BD6: STA $1145 
9BD9: LDA $1146 
9BDC: ADC $1142,X 
9BDF: STA $1146 
9BE2: LDX $1148 
9BE5: JSR S9BEA 


9BE8: BEQ $9BA5 ;Branch to plot the next point 

OBEA: LDY #$02 ;Load the Y register with the number of 
;repetitions 

9BEC: CLC ;Clear the carry for addition 

9BED: LDA $1131,X ;Get the LSB of the coordinate 

9BFO: ADC $113D,X ;Add the index to the next point 

OBF3: STA S11315-X ;And save it back 

OBF6: INX ;Move to the next 

OBF7: DEY ;Coordinate 

OBF8: BNE SOBED ;Continue until both the X and Y coordinates are 

OBFA: RTS ;Updated and exit 


KKEKKKKKKKKKKKKHKKE KKK KKK KKK KEKKKKKKKKEKKKKKKKKKKKKKKKKEKK 


* * 


m PLOT THE PIXEL * 


* * 


KKEKKKKKKKEKKKKKHKKKKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKE 


OBFB: LDA $116C ;Check to see if we are 
OBFE: ORA $116B ;In the double width mode 
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9C01; 
9C03:;: 
9CO06: 
9C08: 
S9COB: 
9COE: 
9C1il: 
9C13: 
9C16:; 
9C19; 
9C1C; 
O9CI1E; 
9C21: 
9C24; 
9C27; 
9C29:; 
9C2C; 
O9C2E: 
9C30: 
9C31: 
9C33: 
9C36: 
9C39; 
9C3C;: 
9C3D; 
9C 40: 
9C42: 
9C43: 
9C453 


9C 47: 


9C49; 
9C4C;: 
9C4E: 
9C51: 
9053; 
9C56: 
9C5T3 
9C58: 
9CSA: 
O9C5B;: 
9C5D:; 
9C5F: 
9C61: 
9C63: 
9C64: 


BEQ 
INC 
BNE 
INC 
JSR 
LDX 
BNE 
DEC 
DEC 
JSR 
BCS 
JSR 
JSR 
STA 
LDA 
ORA 
BIT 
BPL 
PHA 
LDX 
LDA 
AND 
STA 
PLA 
EOR 
STA 
RTS 
LDX 
BNE 


BEQ 


JSR 
BCS 
STA 
LDA 
AND 
ROL 
DEX 
BPL 
ROL 
BIT 
BMI 
AND 
CMP 
CLC 
RTS 


$9C19 
$1131 
S$9COB 
$1132 
$9C19 
$1131 
$9C16 
$1132 
$1131 
$9D24 
$9C42 
$9C70 
S9OCE8 
$116D 


($8C) ,Y 


$116D 
$D8 
$9C43 


$83 
$116D 


$9F25,X 


$116D 


$116D 


($8C) ,Y 


$83 
$9C40 


$9C3D 
$S9CE3 


$9C6F 
$116D 


($8C),Y 


$116D 


$9C56 


S8B 
$9C65 
#$03 
$83 


;If we are not, then branch 

;Increment the X coordinate's LSB 

;If there was an overflow, then branch 
;increment the X coordinate's MSB 

;Plot a single width point 

;Get the X coordinate's LSB 

;If it is not equal to zero, then branch 
;Decrement the MSB 

;Decrement the LSB by one and plot the 2nd point 
;Check the range of the coordinates 

sif they are out of range, then exit 

;Set the color of the point to be plotted 
;Calculate the HIRES address and bit position 
s;Save the bit value 

s;Get the current value of the HIRES location 
;Set the specified point 

;Check for the multicolor mode 

;lf multicolor mode is not being used, branch 
;Temporarily save the point value 

;Get the color source value 

;Get the bit position value 

;Mask proper bit for multicolor 

;Save the value 

;Get the point value back 

;Set the proper point 

;Save it back to the HIRES screen 

sExit the routine 

;Get the current color source being used 

s;If the color source is not the background 
;Color, then branch 

;If the color source is the background 
;Color, then branch 

;Calculate the screen address and the bit value 
;If the coordinate was out of range, then exit 
;Save the bit position value 

;Get the value at the current coordinates 
s;Mask the selected bit 

;Shift the bit 

;To its proper location according to its 

;Bit position 

;In the X register 
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#503 
$S9C6D 
#0 


#SFF 


$C033,X 


$8C 


S$9CCA,X 


$8D 
$83 
$9C86 
$03E2 
$D8 
$9C8D 


#502 
S$9C9A 
$03E3 
#SOF 
$77 


($8C) ,Y 


#SF0O 
$77 


($8C),¥Y 


$9CAC 


$O3E2 
#$FO 
$77 


($8C),Y 


#SOF 
$77 


($8C),¥ 


$8D 
#$03 
#SD8 
$8D 
#0 
SFFOO 


$01 


#SFE 


C-128 BASIC 7.0 Internals 


;Get line starts low byte 

;Save it 

;Get line starts high byte 

;Save it 

;Get the current color source selected 

;If it is not equal to zero, then branch 
;Get the packed foreground/background color 
;Check to see which graphic mode we are in 
;If it is not the multicolor mode, then branch 
sExit the routine 

;Is the color source Multicolor 1? 

;If it is not, then branch 

;Get the packed foreground/multicolor 1 color 
;Drop the foregroound color 

;Save the multicolor 1 value 

;Get the current color in the specified cell 
;Drop the old multicolor value 

;Replace it with the new multicolor value 
;And save it back 

;Exit the routine 

s;If the color source is not the background 
;Color, then branch 

;Get the packed foreground/background color 
;Drop the background color 

;Save it 

;Get the current color in this color cell 
;Drop the old foreground color 

;Replace it with the new foreground color 
;And save it back into the color cell 

;Exit the routine 

;Get the color address MSB 

;Drop all bits except bits 0 and 1 

;Point the MSB to the color memory at $D800 
;Save the MSB 

;Set the MMU 

;Configuration to BANK 15 

;Stop the background operations 

;Get the Data Register 

;Save it onto the stack 

;Drop bit 0 
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SCBF;: STA 
9CC1l: LDA 
9CC3: STA 
9CC5: PLA 
9CC6: STA 
9CC8: CLI 
9CC9: RTS 


$01 
$85 
($8C),Y 


$01 


;TO select color RAM 0 

;Get the Multicolor 2 value 

;Save it in the current color cell 
;Get the old Data Register value 
;And store it back 

;Restart the background operations 
;And exit the routine 


KKK KK KKK KK KKK KKK KKK KKK KKEKKKKEKKKKEKaAKKKKKKKKKK KKK KKKKK KK 


* 
* 
* 
* 
* 
* 


9CCA: .BYTE 
9CCD: .BYTE 
9CDO: .BYTE 
9CD3: .BYTE 
9CD6: .BYTE 
9CD9: .BYTE 
9CDC: .BYTE 
SCDF: .BYTE 


This is a table of the BASIC line start MSBs for 
color memory at $1C00 when the GRAPHICS screen is 
enabled. 


KEKE KKK KKK KKKKK KKK KKKKKKKKKKKEKRKEKKKKKKEKKKKKKK KKK KKKKKK 


SiC, S51C,51C 
$1¢c,$1¢,$1¢c 
$1C,$1D,$1D 
$1D,$1D,$1D 
$1D,$1E,$1E 
S1E,$1E,$1E 
S1E,$1F,$1F 
S1IF,S1F,1F 


* 
* 
* 
* 
* 
* 


KAKKKKEKKKKEKKHEKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKKKKKKKKR KK KKK 


* 


* 


* 


* 


This routin 
for plottin 


* 
e gets the HIRES address and bit value * 
g. * 


* 


KKKKKK IA KKK KKK KKK KKK KKKEEKKKKKKKKKEKEKKKKEKKKKKKKKKKKEKKKEK 


9CE3: JSR 
9CE6: BCS 
9CE8: TYA 
9CE9: CLC 
S9CEA: ADC 
S9CED: STA 
O9CEF: LDA 
9CF2: ADC 
9CF4:; ASL 
9CF6; ROL 
O9CF7: ASL 
9CF9:; ROL 
O9CFA: ASL 
9CFC: ROL 
O9CFD: STA 


$9D24 
$9D1B 


$C033,X 
$8C 
SCO4C,X 
#0 

$8C 


$8C 


$8C 


$8D 


;Check the range of the coordinates 
s;If they are out of range, then exit 
;Put the X coordinate into the accumulator 
;Clear the carry for addition 

;Add the LSB of the screen line 

;And save it 

;Get the MSB of the screen line 

;Add the carry 

;Calculate the corresponding 

;HIRES screen address 

;From the coordinates 


;And save the MSB 
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O9CFF: LDA 
9D02: AND 
9D04: TAY 
9D05: LDA 
9D08; BIT 
O9DOA: PHP 
9DO0B: BPL 
9DOD: ASL 
9DOE: AND 
9D10: TAX 
9D11: LDA 
9D14: PLP 
9D15: BPL 
9D17: INX 
9D18: ORA 
9D1B: RTS 


$1133 
#$07 


$1131 


$D8 


S9ODOE 


#$07 


$9D1C,X 


$9D1B 


$9D1C,X 


;Get the Y coordinate 

;Drop all the bits except bit position 

;Save it in the Y register 

;Get the X coordinate LSB 

;Check to see if we are in Standard or 
;Multicolor graphics 

;Save the status register 

;If it is not the Multicolor mode, then branch 
;If it is the Multicolor mode, then multiply the 
;LSB by 2 

;Calculate the bit position 

;Save the result in the X register 

;Get the appropriate bit value 

;Get the status back 

;If it is not the Multicolor mode, then exit 
;Add one to the bit position 

;Get the bit value to set 

;And exit the routine 


KKEKKKKKKKEKEKKKKKKKKKKKRKEKKK KKK KKKKKRKKEKKKKEKKKKKKKKKKKKKKKKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


9D1C: .BYTE 
9D1D: .BYTE 
“QD1E: .BYTE 
ENVELOPE) 
QD1IF: .BYTE 
ON/OFF) 
9020: .BYTE 
9021: .BYTE 
9022: .BYTE 


9D23: .BYTE 


This table contains the value for bits 7 - 0 


respectively, and is used by the graphics routines 
and sound routines. 


MSKTBL 


MaSK TaBLe 


+ + + £ + FF FF HF F 


KKEKKKKEKKRKEKKKEKKEKKKKKKKKEKKKEKEKKKRKEKKKKKKKKKKKKKKKKKKKKKKKRKRKK 


BIT - 76543210 DECIMAL VALUE PLAY CHARACTER 


; 10000000 128 V (VOICE) 
; 01000000 64 QO (OCTAVE) 
; 00100000 32 T (TUNE 

; 00010000 16 X (FILTER 
b 00001000 8 U (VOLUME) 
; 00000100 4 NOT USED 

; 00000010 2 NOT USED 

; 00000001 1 NOT USED 
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KKK KEKKKKKKKKKKKKKKKEKKKKKKKKKKKKEKKKKKKKKKKKKKKK KKK KKK KKKK 


* 
* This routine checks the range of the X, Y 

* coordinates and sets the carry if they are out of 
* range. 

* 

* 


+ + + & 


KREKKKKKKKKKKKKEKKKEKKKKKKEKKKEKEKKEKKKKKKKKKEKKKKKKKKKKKKKK KKK 


9D24: LDA $1132 ;Get the MSB of the X coordinate 

9D27: LSR ;Shift bit O into the carry 

9D28: BNE $9D48 ;If the MSB is greater than 1, then exit 

9D2A: LDA $1131 ;Get the LSB of the X coordinate 

9D2D: ROR ;Shift bit O into the carry 

9D2E;: LSR ;Return the LSB to the original without bit 0 

9D2F: BIT $D8 ;Check to see which GRAPHIC mode we are in 

9D31: BMI $9D34 ;if it is the multicolor mode, then branch 

9D33: LSR ;Divide the X coordinate LSB by 2 

9D34: TAY ;Transfer it to the Y register 

9D35: CPY #528 ;Compare the X coordinate to its maximum 

9D37: BCS $9D48 ;If the X coordinate is out of range, then exit 

9D39: LDA $1134 ;Get the Y coordinate MSB 

9D3C: BNE $9D48 ;lf the Y coordinate has an MSB greater 
;Than zero, then exit 

9D3E: LDA £$1133 ;Get the Y coordinate LSB 

9D41: LSR ;Divide it by 8 

9D42: LSR 

9D43: LSR . 

9D44: TAX s;And save it to the X register 

9D45: CMP #519 ;Compare the value to the maximum value 
;For the Y coordinate 

9D47: RTS ;Exit the routine 

9D48: SEC ;Set the carry for value out of range 

9D49:; RTS ;Exit the routine 


KA KK KK KKK KKK KKK KKK EKKKEKKKKKEKKKEKKEKKKKKKKEKKKKEKKKEKKKEKKKKKK 


* * 
* This routine first checks if scaling is selected * 
* and if scaling is selected, then the coordinates * 
* which are indexed by the X register are adjusted * 
* according to the scaling factor. - 
* * 
* * 


KKK KK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KEK KKEKKKKKKKE 


9D4A: LDA $116A ;Check to see if scaling is selected 
9D4D: BEQ S9D66 s;If not, then exit 

9D4F:; LDA $87 ;Get the LSB 

9D51: LDY $88 ;And the MSB of the X scaling factor 
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9D53: JSR S9D5A ;Adjust the coordinates according to the scaling 
;Factor 

9D56: LDA $89 ;Get the LSB 

9D58: LDY S8A ;And the MSB of the Y scaling factor 

9D5A: JSR S$ 9DAE ;Calculate the coordinate according to the 
;Scaling factor 

9D5D: STA $1131,X ;Save the adjusted coordinate LSB 

9D60: TYA ;Move the MSB to the accumulator 

9D61: INX ;Increment the index 

9D62: STA $1131,xX ;Save the adjusted coordinate MSB 

9D65: INX ;Increment the index 

9D66: RTS ;Exit the routine 


9D67: BCC $9D70 
9D69: BCS SODTF 


9D6B: BCS S9D7C ;If the start coordinate is greater, then branch 

9D6D: JSR SOD8F ;Get the destination coordinates into the 
;Accumulator and Y register 

9D70: CLC ;Clear the carry for addition 

9D71: ADC $1131,X ;Add the starting coordinate LSB to the 
s;destination LSB 

9D74: PHA ;Save it onto the stack 

9D75: TYA ;Move the MSB of the destination coordinate into 
;The accumulator 

9D76: ADC $1132,X ;Add it to the MSB of the starting coordinate 

9D79: TAY ;And move it into the Y register 

OD7A: PLA ;Get the LSB back off of the stack 

9D7B: RTS ;And exit the routine 

9D7C: JSR $9D8F ;Get the destination coordinates into the 
;Accumulator and Y register 

O9D7F: SEC ;Set the carry for subtraction 

9D80: SBC $1131,X ;Subtract the starting coordinate LSB from the 
;Destination LSB 

9D83: STA $59 ;Save it 

9D85; TYA ;Move the MSB of the destination coordinate 
;Into the accumulator 

9D86: SBC $1132,X ;Subtract the starting coordinate MSB from the 
;Destination MSB 

9D89: TAY ;Move the result to the Y register 

9D8A: PHP ;Save the status register onto the stack 

9D8B: LDA $59 ;Get the LSB of the difference 

9D8D: PLP ;Restore the status register 

9D8E: RTS ;And exit the routine 


KK KK KKKKKKK KKK KKK KK KKK KKKKKEKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKK 
* * 
* This routine is used to get the LSB and the MSB of - 
* pixel cursor coordinate which is indexed with the * 
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OD8F: 
9D92: 
9D93:; 
9D96;: 
9D97; 
9D98; 


9D99:; 


9D9C: 


O9D9E: 
OD9OF: 
9DAO: 
9DA2: 
9DA4: 
Q9DA5: 
ODA6: 


LDA 
PHA 
LDA 
TAY 
PLA 
RTS 


JSR 


BPL 


PHP 
CLC 
EOR 
ADC 
PHA 
TYA 
EOR 


* Y register into the accumulator and the Y register * 
* respectively. * 


* 


* 


Kak KKK KK KKK KKK KKK KKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KK KKK 


$1131,Y 


$1132,Y 


;Get the LSB of the coordinate 
;Save it onto the stack 

;Get the MSB of the coordinate 
;Save it into the Y register 

;Get the LSB back off of the stack 
;And exit the routine 


KaKKKKKKKK KKK KKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKKK KK KKK KK KKK 


This routine calculates the difference between 2 
coordinates which are indexed by the X and Y 


registers. 


If the ending coordinate is less than 


the starting coordinate, the 2's complement of the 
result is calculated. The result is stored in the 


On entry to this routine, the X register is indexed 
to the starting coordinate and the Y register to the 
ending coordinate. 


* * 
* * 
* * 
* * 
* * 
* * 
* accumulator and the Y register (LSB, MSB). = 
* * 
* * 
* * 
* * 
* * 
* * 


KaKKKKKKKK KK KKK KKK KK KK KKK KKK KK KKK KKK KK KKK KKK KKK 


S9D7C 


$9DAD 


;Calculate the difference between the starting 
;And destination coordinates 

;If the starting coordinate was greater than the 
;Destination coordinate, then exit 


KK KKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKK KKK KKK KKK KKKKKKK 


* * 
* This routine calculates the twos complement * 
* (EOR #SFF + 1) of the 16 bit value that is in the * 
* accumulator and the Y register (LSB, MSB). a 
* * 
* * 


Kk KK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK 


#SFF 
#S$01 


#SFF 


;Save the status register onto the stack 
;Clear the carry for addition 

;Compute the two's complement 

,;Of the LSB 

;And save it onto the stack 

;Move the MSB into the accumulator 

;And compute the two's complement 
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9DA8: ADC #0 ;Of it 

O9DAA: TAY ;Move the MSB back into the Y register 
9DAB: PLA ;Get the LSB back off of the stack 
ODAC: PLP ;Restore the status register 

9DAD: RTS ;And exit the routine 


KKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKEKKEKKKKKKKEKKKRKKKKKKKKKKK 


This routine is used to adjust the coordinate which 
is indexed by the X register according to the 
scaling factor. 


* * 
* * 
* * 
* * 
* * 
* On entry to this routine, the Accumulator and the * 
* Y register must hold the current scaling factor, * 
* which is normally stored in locations $87, $88 for * 
* the X coordinate and in locations $89, S$8A for the * 
* Y coordinate. x 
* * 
* * 


KKK KKK KKK KKK KKK KK KKK KK KKK KEKE KKKK KKK KKKKKKKKKKKKKKK 


ODAE: STY S8E ;Save the MSB 

9DBO; STA S8F ;And the LSB of the scaling factor 

9DB2: LDA $1131,X ;Get the LSB 

9DB5: LDY $1132,X ;And the MSB of the coordinate 

9DB8: PHP ;Save the status register onto the stack 


9DB9: JSR S$ 9D9C 
9DBC: STA $1131,X 
O9DBF: TYA 

9DCO: STA $1132,X 
9DC3: LDA #0 
9DC5: STA $1177 
9DC8: LDY #510 
9DCA: LSR S8E 
9DCC: ROR S8F 
9DCE: BCC $S9DDF 


9DDO: CLC 
9DD1: ADC $1131,X 
9DD4: PHA 


9DD5: LDA $1177 
9DD8: ADC $1132,X 
9DDB: STA $1177 


9DDE: PLA 
9DDF: LSR $1177 
9DE2: ROR 
9DE3: DEY 


9DE4: BNE S9DCA 
9DE6: ADC #0 
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9DE8: 
9DEB: 
9DED: 
9DEE: 
ODEF; 


ODF2: 
ODF 4: 


ODF7: 


ODF 9: 
O9DFC: 
ODFF: 
9E02: 
9EOS5: 


9E06: 
9E09: 


SEOB: 


SEOE: 


9E10: 
9F12: 


LDY 
BCC 
INY 
PLP 
JMP 


LDY 
JSR 


LDY 


LDA 
STA 
LDA 
STA 
RTS 


JSR 
BEQ 


JSR 


CMP 


BEQ 
JSR 


$1177 
SODEE 


$9D9C 


KakKKKKkKKK 


This 


(X and Y destination to X and Y position). 


kkk KkKKK 


#0 
SODF9 


#502 


$1135 
$1131 
$1136 
$1132 


kakkkkkek 


This 
into 
If a 
If a 


Upon 
first 


kak kkk 


$0386 
$9B17 


$795C 


#', 3 


$9E17 
$8812 


* 
* 
* at locations $1135 - $1138 to $1131 - $1134 
* 
* 
* 


;Get the status register back off of the stack 


KKKKKKKKKKKAKKKKKKK KK KK KE KKKKKEKKEKKKKKKKKKKKKKKKKEKEK 


routine moves the coordinates that are stored 


+ + + + 


KAKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


;Move the values at locations $1135 - $1136 
;To $1131 - 1132 
;Set the index to 2 to move locations 
7$1137 - $1138 to $1133 - $1134 

wy ;Move the values indexed 

Pe ;By the Y register from locations 

Pe d 7$1135+Y - $1136+Y to $1131+Y - $1132+Y 

Pad 
;Exit the routine 


KEK KKKKKKK KKK KEKKKKK KKK KKK KKK KKKKKKKEKKKKKKKKKKEKEKK 


* 
routine is used to get a 16 bit coordinate * 
the accumulator and the Y register (MSB, LSB). * 
coordinate is specified, the carry flag is set. * 
coordinate is not specified, then the * 
* 
* 
* 
* 
* 


entry to this routine, TXTPTR must point to the 
character of the coordinate. 


* 
* 
* 
* 
* accumulator, Y register, and carry flag are cleared. 
* 
* 
* 
* 


KKEKKKKKKKHKKK KKK KKKKK KK KKK KK KKK KKEKKEKKKKKKKKKK KEK 


;Get the character that TXTPTR is pointing to 
;If it is a colon or an end of line terminator, 
;Then branch 

;Check for a comma. If a comma is not found, 
;Generate a 'SYNTAX' error. If a comma is 
;Found, then get the next character 

;Is the next character a comma? 

;If it is a comma, then branch 

;If it is not a comma, then get the value 

sInto the accumulator and the Y register 
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9E15; 
9F16: 
9F17; 
9E19;: 
9FI1A: 


OF1B: 


9E1C:; 
SE1E: 
9E21; 
9E23: 
926: 
9E28: 
9E2A: 


SE2D: 
9E2E: 


9E2F: 
9E32;: 
934: 
9E37: 
9E39; 
9E3B: 
9E3D;: 
9E40: 
9F 42; 


OF 44: 
OR 46: 


OF 48: 


SEC 
RTS 
LDA 
TAY 
CLC 


RTS 


LDX 
JSR 
BEQ 
JSR 
CMP 
BEQ 
JSR 


SEC 
RTS 


JSR 
LDX 
JSR 
BEQ 
CMP 
BEQ 
JSR 
CPX 
BCS 


CPX 
BIT 


BMI 


#0 


;Set the carry 

;And exit the routine 

;Clear the accumulator, 

;The Y register, 

;And the carry flag to indicate that there are 
;No parameters specified 

;Exit the routine 


KKKKKKKEKKKKKKKKK KK KKK KKKKKKKKKEKKKKKKKKEKKEKKEKKKKEKKEKKEKKKKKEK 


+ + + + 


This routine is used to get an 8 bit coordinate 


in the X register. 


If a coordinate is specified, 


* 

* 

* 

the carry flag is set. e 
* 

* 


KEKE KKEKKKKKKK KEKE KEKE KKE KEKE KKKEKKEKEKKKKEKEKKKKKEKKKKKKKKKKEK 


#0 
$0386 
SORIA 
$795C 
a 
SOFIA 
S87F4 


;Set the default value to zero 

;Get a character 

;If it is a zero or a colon, then exit 

;Check for a comma and get the next character 
;Is the next character a comma? 

;If it is, then branch 

s;Convert the value to HEX and store it in the 
;X register 

;Set the carry for character found 

;And exit the routine 


KKEKKKKKKKKK KKK KKK KKK KK KEKE KEKKKKEKKKKEKKEKKKEKKKKKKKKKKKKK 


* 


* 


* 


* 


This routine parses the graphics commands. ~ 


* 


KKKEKKKEKKKKKEKKEKKKKKEKKKKKEKKKKEKKKKKKKKKKKKKKKKKKKK KKK KKKKEK 


$A074 
#$01 
$0386 
SOR4C 
#',' 
S9OR4C 
S$87F4 
#$04 
SOR4F 


#502 
$D8 


S9R4C 


;Check to see if the HIRES screen is allocated 
;Default color source 

;Get the last accessed character 

;If there is none there, then exit 

;Is it a comma? 

;If it is, then exit 

;If not, then get the value into the X register 
;Compare it to the maximum value + 1 

;Ilf the value is too large, then generate an 

; "ILLEGAL QUANTITY' error 

;If the Multicolor color source was selected, 
;Then check to see if the Multicolor HIRES 
;Screen was allocated 

;If it was, then branch 
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S9E4A: BCS S9E4F ;If it was not allocated, then error 

9E4C: STX $83 ;Save the color source 

S9E4E: RTS ;And exit the routine 

9E4F:; JMP $7D28 ;Generate an ‘ILLEGAL QUANTITY' error 

9E52: JSR $0386 ;Get the last character that was accessed 

9E55: BEQ S9E5E ;If there is nothing there, then branch 

9E57: JSR $795C ;Check for a comma and get the next character in 
;The accumulator 

9E5A: CMP a ;Is the next character a comma? 

9E5C: BNE $9E70 ;If it is not, then branch 

9E5SE: LDY #0 ;If it is a comma, 

9E60: LDA $1131,Y ;Then make the current X, Y coordinates 

9E63: STA $1131,X ;The destination coordinates 

9E66;:; INX ;Increment the index to the next value 

9E67:; INY ;And continue until 

9E68: CPY #504 ;Four bytes 

9E6A: BNE $9E60 ;Are done 

S9E6C: RTS ;Exit the routine 

S9E6D: JSR $795C ;Check for a comma and get the next character in 
;The accumulator 

9E70: STX $1178 ;Save the index 

9E73: JSR S9OFO8 ;Get the X coordinate and store it 

9E76: JSR $0386 ;Get the character after the coordinate 

9E79: CMP #',' ;Is it a comma? 

9E7B: BEQ $9ED3 ;If it is, then branch 

9E7D: CMP A ;Is it a semicolon? 

S9E7F: BEQ S9E84 ;If it is, then branch 

9E81: JMP $796C s;If it is not a semicolon or a comma, then 
;Generate a ‘SYNTAX’ error 

9E84: JSR $0380 ;Get the next character 

9E87: JSR $8812 ;Get the Y coordinate and convert it to HEX in 
;The Y register and the accumulator 

9E8A: STA $77 ;Save the MSB 

9E8C: TYA ;Put the LSB in the accumulator 

S9E8D: LDY $77 ;Get the MSB into the Y register 


SE8F: JSR $9A77 
9E92: LDX $1178 
9E95: LDA $1131,X 
9E98: STA $1133,X 
S9E9B: LDA $1132,X 
SESE: STA $1134,X 
9EA1: JSR SOD4A 
9EA4: LDA #S0E 
9EA6: STA $1179 
9EA9: CLC 

S9EAA: LDX $1178 
S9EAD: JSR S9ACE 
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9EBO: 
9EB3: 
9EB4;: 
SEB7: 
9EB9: 
9EBC: 
S9EBE: 
9ECO: 
9EC3: 
9EC6: 
9EC7: 
SECA: 
SECB: 
9ECC:;: 
9ECF: 
9ED1: 
9ED2: 


9ED3; 
9ED6: 
9ED9: 
9EDC;: 
SEDF: 
S9EE2: 
9EE3: 
9EE4: 


S9EE7: 
9EE9;: 
9EEC: 
SEED: 
QEEE: 
S9EEF: 
9EFO: 
9EF3: 
S9EFS: 
SEFS8; 
SEFB: 
9EFC: 


STA 
TYA 
STA 
LDY 
LSR 
BCC 
LDY 
JSR 
STA 
TYA 
STA 
INX 
INX 
LSR 
BNE 
CLC 
RTS 


JSR 
INC 
INC 
JSR 
LDX 
DEX 
DEX 
JSR 


LDY 
LDX 
INX 
INX 
DEX 
DEX 
LSR 
BCC 
JSR 
STA 
TYA 
STA 


$1131,X 


$1132,X 
#0 
$1179 
$9ECO 
#$02 
$9D6B 
$1131,X 


$1132,X 


$1179 
S$ 9EAD 


KE KK KKK KKK KKK KKK KKK KK KKK KKKEKKKKEKKKKKKKKKEKKKKKKKKEKK 


* * 
* This routine is used to get the coordinates and * 
* then adjust them according to the scaling factor * 
* and the relative coordinate offset. * 
* * 
KKKKIKKHK KKK KKK KEKE KKKKKKKKKKKEKKKEKKKKAKKKRKKKRKKKKKKKKEKK 
$0380 ;Increment TXTPTR 
$1178 ;Increment the coordinate 
$1178 s;Index by 2 
S9OFO8 ;Get the coordinate and store it 
$1178 ;Get the index 
;And decrement 
sit by 2 
S9D4A ;Adjust the coordinate according to the scaling 
;Factor and save it 
#502 
$1178 ;Get the index 
;And increment it 
;By 2 
;Decrement the 
;Index by 2 
$1179 ;See if a relative coordinate was specified 
S9EFF ;If the coordinate was not relative, then branch 
S9D6D ;Add the offset to the present coordinate 
$1131,X ;Save the resulting 
;Coordinate 
$1132,X 
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SEFF: 
S9FO1: 
OFO4: 
OFO06: 
SFO7: 


S9FO8: 
OF OB: 
SFOD: 
OFOF: 


OF11; 
9F13: 
9F14:; 
OF17: 


SOFIA: 
OF1D: 
OF20: 


9F21: 
9F24:; 


9F25: 
OF28:; 
OF2B: 
OF2E; 
9F31: 
9F34: 
OF37: 
OF3A: 
OF3D; 


LDY 
CPX 
BEQ 
CLC 
RTS 


#0 
$1178 
$ 9EEE 


C-128 BASIC 7.0 Internals 


;Set the index to the next coordinate 
;And continue until 

;Both of the coordinates have been stored 
;Clear the carry 

;And exit the routine 


KKKK KKK KKK KKK KKK KKK KEKE KK KKKKKKKEKKEKKKKKKKKKKKKKKKKKKKKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


JSR 
CMP 
BEQ 
CMP 
BEQ 
CLC 
ROL 
JSR 


LDX 
STA 
TYA 
STA 
RTS 


. BYTE 
.BYTE 
- BYTE 
. BYTE 
- BYTE 
. BYTE 
. BYTE 
BYTE 
. BYTE 


This routine first checks to see if a relative 
coordinate (one preceded by a '+' or '-') is 
specified. If it is, then bit 0 of location $1179 


is set 


NOTE: 


$0386 
#SAA 
S9OF14 
#SAB 
S9OF14 


$1179 
$8812 


$1178 
$1132,X 


$1131,X 


SFF, SAA 
$00, $00 
$2C,$71 
$8D,$80 
$A4,$8F 
$19, $DD 
SFO,$90 
$1C,$FF 
$04,$72 


and the coordinate is stored. 


* 
* 
* 
* 
* 
* 
If a negative coordinate such as -10 or -100 * 
is specified, the routine at $8812 will cause * 
an 'ILLEGAL QUANTITY' error to be generated. * 
This is because TXTPTR is pointing at the '+!' * 
or '-' and not at the first character of the * 
coordinate where it should have been pointed. * 

* 

* 


KKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKEKKKEKKKKK KKK KKK KKK 


;Get the last character accessed by CHRGET 
;jIs it the token for ‘'+'? 

;If it is, then branch 

sIs it the token for '-'? 

sIf it is, then branch 


;Clear the carry to indicate a normal coordinate 


;Shift the carry into bit 0 

;Get the coordinate and store it in the 
;Accumulator 

s;And the Y register (MSB, LSB) 

;Get the stored index 

;Save the MSB of the coordinate 

;Move the LSB to the accumulator 

;Save the LSB of the coordinate 

;And exit the routine 


,$55 
, $00 
7557 
, $00 
,5C4 
, SB2 
, SFC 
, SFF 
, $04 
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9F40: .BYTE 
9F43: .BYTE 
S9F46: .BYTE 
9F49:; .BYTE 
O9F4C: .BYTE 


SF 4F: LDA 
S9F51: BEQ 
9F53: RTS 
9F54: LDA 
9F57: CLC 
9F58: ADC 
S9F5A: BCS 
9F5C: STA 
SOF5E: CMP 
9F61: BCC 
S9F63: BNE 
9F65: CPY 
S9F68: BCC 
SF6A: JMP 
9F6D: DEC 
OF6F: LDA 
OF72: STA 
9F74: LDA 
S9F76: STA 
OF78: LDX 
SF7B: STX 
S9F7D: LDA 
SOF80: STA 
9F82: SEC 
9F83: SBC 
OF85: TAY 
SF86: TXA 
S9F87: EOR 
SF89: STA 
S9F8B: TYA 
S9F8C: EOR 
SF8E: STA 


$50,504,S50B 
$03, S5A8,$03 
$28,$02,$90 
$01,5E3,501 
$28,$00,$63 
$76 

S9OF54 


$1211 


#524 
SOF6A 


$62 
$1213 
S9F6D 


SOF6A 


$1212 
S9F6D 


S4D3A 
$76 


$1210 
$24 
$62 
$25 
$1210 
$26 
$1211 
$27 


#$1C 


#SFF 


$50 


#SFF 


$51 


;Get the flag to see if the GRAPHICS screen is 
;Currently allocated and if it is, then branch 
;Exit this routine 

;Get the end of the program's MSB and add #$24 
;To it to point to $4000 + the end of 

;The program's address 

;If an overflow has occurred, then generate 

;An ‘OUT OF MEMORY' error 

;Save the MSB of the new End of BASIC address 
;Check to ensure that it is not greater than the 
;Highest available to BASIC (usually SFFOO0O) and 
;Ilf it is not greater, then branch 

;If the MSBs are not equal, then generate an 
;'OUT OF MEMORY' error 

;NOTE: Before you think "useless code", 
;Commodore put this instruction here in case you 
;Move MAXMEMO 

;Generate an ‘OUT OF MEMORY' error 

;Set MVDFLG to SFF to indicate the HIRES screen 
;Is now allocated 

;Get the LSB of the End of Program Text (TXTTOP) 
;And save it 

;Get the MSB of the address of where to move 
;The program to set up the move to address 

;Get the End of the Program Text 

;And save it as the Move 

;From address 


;Set the carry for subtraction 

;Subtract $1Cxx from the End of Program Text 
;Address to 

;Get the number of bytes that need to be moved 
;Move the LSB of the End of Text into the 
;Accumulator 

;Subtract that value from SFF to give 

;The two's complement 

;And save it in TEMPF3 

;Move the MSB of the End of Text into the 
;Accumulator 

;Subtract that value from SFF to give the 
;Two's complement 

;Save it in TEMPF3 + 1, the two's complement 
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OF90: 
OF92: 


OF 94: 
OF 96: 


OF 98: 


OF 9A: 
OF9OC: 
OF SE: 
OFAO: 
OFA2: 
OFA4: 
OFA6; 
SFA8: 
OFAA: 
OFAD: 
OF AF: 
OFB2: 
9FB3: 
OFB6: 
OF B8: 
OFBB: 
OFBD: 
OFBF: 
OFC1: 
9FC3: 
9FC5; 
SFC7T: 
OFCA: 
S9FCD: 
OFCF;: 
9FD1:; 


9FD3: 
SOFD5: 
OFD7: 


OFD9: 
S9FDA: 
OFDB: 
9FDD: 
OFDF: 


LDY 
INC 


BNE 
INC 


BEQ 


LDA 
BNE 
DEC 
DEC 
LDA 
BNE 
DEC 
DEC 
JSR 
STA 
JMP 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
JSR 
JSR 
BIT 
BPL 
LDX 


Bit 
BMI 
LDX 


TXA 
CLC 
ADC 
STA 
TXA 


#0 
$50 


SOF9OA 
$51 


$ 9FB2 


$24 
$9FAO 
$25 
$24 
$26 
S9FA8 
$27 
$26 
$03C0 


($24),¥Y 


$9F92 


$1211 
#524 
$1211 
S2E 
#$24 
S2E 
$44 
#524 
$44 
S4F4F 
S4F82 
S7F 
SOFFE 
#$24 


$76 
S9OFD9 
#$DC 


$3E 
$3E 


;Will give the result of SFFFF minus the number 
;Of bytes to be moved with the result of the 
;Subtraction placed into locations $50, $51 
;Zero the index pointer 

;Add 1 to the LSB of the number of bytes to be 
;Moved 

;If the value is not equal to zero, then branch 
;Add one to the MSB of the number of bytes to be 
;Moved 

;If the value is equal to zero, then we are done 
;Transferring the bytes 

;Get the LSB of the address to move the program 
;To and if it is not equal to zero, branch 
;Subtract one from the MSB 

;Subtract one from the LSB 

;Get the LSB of the address to move the program 
;To and if it is not equal to zero, branch 
;Subtract one from the MSB 

;Subtract one from the LSB 


;Continue until all the bytes have been moved 
;Clear the carry for addition 

;Get the MSB of TXTTOP 

;Add #$24 to point to $4000 

;Save the value back 

;Get the MSB of VARTAB 

;Add #$24 to point to $4000 

;Save the value back 

7;Get the MSB of DATPTR 

;Add #$24 to point to $4000 

;Save the value back 

;Relink the BASIC lines 

;Update the end of program pointers 

;Test to see if the system is in the DIRECT mode 
;And if it is, then branch 

;Get the offset to add to the MSB of TXTPTR and 
;Other addresses to point to the new RAM area 
;if the BIT MAP screen 

;Is allocated, then branch 

;Get the offset to add to the MSB of TXTPTR and 
;Other addresses to point to the new RAM area 
;Move the offset into the accumulator 

;Clear the carry for addition 

;Add the MSB of TXTPTR to the offset 

;And save it back 

;Move the offset to the accumulator 
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9FEO: CLC ;Clear the carry for addition 

OFE1: ADC $1203 ;Add the offset 

OFE4: STA $1203 ;To next BASIC statement for CONT 

OFE7: TXA s;Move the offset back into the accumulator 

OFE8: CLC ;Clear the carry for addition 

OFE9: ADC $120F ;Add the offset to the 

OFEC: STA $120F ;Address of the line that generated the error 

OFEF: JSR $5047 ;Move the address of the pseudo stack 

OFF2;: LDA $3F ;The next section of code is used to see if 

OFF4: CMP #SFF ;There are any addresses on the pseudo stack 

OFF6: BNE SOFFF ;That need to be updated to the new location of 

OFF8: LDA $40 ;The BASIC text and if not, then the routine 

OFFA; CMP #$09 ;Will exit (the stack is empty if the pseudo 
;Stack pointer is pointing to SO9FF) 

SFFC;: BNE SOFFF ;If there are addresses on the stack to be 
;Updated, then branch 

OFFE: RTS ;Exit the routine 


KKKKKKKK KKK KK KEKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 


* 
* This routine is used to update the pseudo stack * 
* after the graphics screen has been allocated or * 
* deallocated. Note: If you moved the start of your = 
program to anywhere but $4000 or $1C00, you cannot * 
use the BASIC graphic commands to use the graphics * 
screen. Also, use the DEF command after you allocate * 
a graphics area or the FN funtion will not work. * 

* 

* 


+ &€ + + F 


KKKKKKKKKEKKKEKKREKKKKKKKEKKKKKKKKKKKKKKEKKKEKKKKKKKKKKKKKKKKK 


OFFF: LDY #500 ;Zero the index to the first value on the 
7;Pseudo stack 

A001: LDA ($3F),Y ;Get a byte from the pseudo stack 

A003: CMP #$81 s;Is it the token for 'FOR'? 

A005: BNE $A010 ;If not, then it's 'GOSUB' or 'DO', branch 

A007: LDY #$10 ;Point to address to update (1 byte after 'FOR') 

A009: JSR SA062 ;Update the address 

AOOC: LDA #$12 ;Update the pseudo stack pointer 

AOOE: BNE $A017 ;To the next entry on the stack 

AO10: LDY #$04 ;Point to the address to update (1 byte after 
;'GOSUB' or 'DO') 

A012: JSR SA062 ;Update the address 

AOQ15: LDA #S$05 ;Get the no. of bytes to the next pseudo stack 

A017: CLC sEntry. If the previous entry was GOSUB or DO, 

AO18: ADC $3F ;Add that value to the LSB 

AO1A: STA $3F ;Of the pseudo stack pointer. 

AO1C: BCC SOFF2 ;If the LSB did not overflow, then exit 
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AOL1E: 
A020; 


A027; 
A029: 
AO2B: 
A02D: 
A02F: 
AQ31: 
A033; 
A035; 
A037: 
AO3A;: 
A0Q3C; 
AO3D: 
AO3F: 
A041: 
A043; 
A046; 
A048: 
AO4A: 
AO4B: 
AO4D:; 


INC 
BNE 


LDA 
BNE 
RTS 


LDY 
STY 
STY 
STY 
LDA 
STA 
LDA 
STA 
JSR 
STA 
INY 
BNE 
INC 
INC 
LDA 
CMP 
BCS 
SEC 
LDA 
SBC 


$40 ;Ilf the LSB overflowed, then increment MSB of 
S9OFF2 ;The pseudo stack pointer by one and exit 

Fo mee ee we ww ew we = we ee a wn es ee es a es ee a ee ee ee * 

* * 

* This routine is entered here by the GRAPHIC CLR * 

* command. If location $76 is equal to zero, then the * 

* HI-RES screen is deallocated. m 

* * 

ST * 
$76 ;Check to see if graphics screen is allocated 
$A027 ;If it is, then deallocate it 

;If not, then exit 


KKKKKKKKKK KKK KKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKK 


* * 
* DEALLOCATE THE HIRES SCREEN * 
* * 
* Deallocate the HI-RES screen and move the BASIC * 
* text from $4000 to $1C00. - 
* * 
* NOTE: This is the reason why you cannot change the * 
. start of BASIC if you use the HI-RES screen. * 
* * 
KKKK KKK KKK KK KEK KK KKK KKK KKKK KKK KKKKKKKKKKEKEKKKKKKKKKKRKKEK 

#0 ;Clear the flag 

$76 ;To denote that Graphics screen is deallocated 

524 ;Clear two storage areas for 

$26 ;The BASIC start address LSB 

#$1C ;Get the MSB of where the BASIC text 

$25 ;Must be moved to and save it 

#$40 ;Get the MSB of where the BASIC text 

$27 ;Must be moved from and save it 

$03C0 ;Transfer all of the BASIC text 

($24),Y ;Starting from $4000 

;Back down to $1C00 

$A037 

$25 

$27 

$1211 ;Make sure that we have transferred 

$27 ;All of the BASIC text 

$A037 ;And continue if not. 

;If we are done moving the BASIC text 
S2E ;Subtract 36 
#$24 ;From the MSB of the 
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AO4F; 
A051: 
A054: 
A056: 
A059: 
AOSB: 
AOSD: 
AOSF: 


A062; 
A064: 
A066; 
A068: 
A069; 
AO 6B: 
AO6D: 
AOG6E: 
AO6F: 
A071: 
A073: 


STA 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
JMP 


LDA 
BIT 
BNE 
SEC 
SBC 
STA 
RTS 
CLC 
ADC 
STA 
RTS 





S2E ;Start of BASIC text address and 
$1211 ;Subtract 36 

#$24 ;From the MSB of the 

$1211 ;End of BASIC text address 

$44 ;And subtract 36 

#524 ;From the MSB of DATPTR 

$44 

S9FC7 ;Relink lines, update end of program 


;pointers and exit. 


KKKKKKKKKKKKKKEKKKKKKKKKEKEKKKKEKKKKKEKKKEKEKKKKKKKKKKKKKKKKKK 


* * 
* This routine is used to update the line addresses m 
* on the pseudo stack after the graphics screen has x 
* been allocated or deallocated. If the graphics x 
* screen is allocated, then 36 is added to all of the * 
* MSBs to point to the BASIC program which starts at * 
* $4000. If the graphics screen is deallocated, then * 
* 36 is subtracted from all of the MSBs to point to * 
* the BASIC program which starts at $1C00. * 
* * 
* NOTE: Since the BASIC variable storage area is not * 
* checked or updated by this routine, if you are going * 
* to use the graphics screens along with the DEFine * 
* FuNction routine, you MUST define the function AFTER * 
* * 
* * 
* * 
* * 


you allocate the screen memory and after you 
deallocate it or the DEFFN command will not work. 


KKEKKKKKKKKKKKEKKKKEKKKKKKEKKKKKEKKKEKKKEKEKEKKKKEKKKKKKKKKKKK 


($3F),Y 
$76 
SAO6E 


#524 
($3F),Y 


#524 
($3F),Y 
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AQ74: 


A076: 


A078: 
A079: 
AO7B: 


AO7TE: 


A081; 
A083: 
A085; 
A087; 


AO8A: 
AO8C: 


AO8E: 


LDA 


JSR 


LDA 
AND 
BEQ 
JMP 


LDY 
LDX 


LDA 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KK KKK KKK KKK KKK Kk kkk 


* 
* 
* 
* 
* 
* 
* 
* 


$76 
SA079 


#35 
$4D3C 


This routine checks to see if a graphics screen has 
been allocated and if it has not, then a 
"NO GRAPHICS AREA' error is generated. 


CHKGRP 


+ + + £ € F 


kKkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk kk kkk kkk kkk Kk kk kK kkk KK 


;Check if the graphics screen is allocated 

; (the value is less than or greater than zero if 
sthe graphics screen is allocated) 

;If the graphics screen is not allocated, then 
;Generate a 'NO GRAPHICS AREA' error 

;Exit the routine 

;Error number for the 'NO GRAPHICS AREA' error 
;Generate the error message 


KAKKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKEKEKKKKKKKKKKKKKKKKKKKKKEK 


BASIC CATALOG AND DIRECTORY COMMANDS 


Command syntax: CATALOG [DR] [<ON,>DV] [,WC] 


DIRECTORY [DR] [<ON,>DV] [,WC] 
'D' + the drive # 


wildcard string 


These commands allow you to see which files are in 
the disk directory without disturbing what is in 


* 

* 

* 

* 

* 

* NOTE: DR = 
* DV = 
* WC = 
* 

* 

* 

* stored in memory. 
* 

* 


* 
* 
* 
* 
* 
* 
* 
'U' + the device # . 
* 
* 
* 
* 
* 
* 
* 


KAKA KA KKK KKK KKK KKK KKK KE KKKKKEKKKKKEKKKKKKKKKKKKKEKKKKKKEKEK 


SA3BF 


$80 
#%11100110 
SAO8A 
$796C 


#501 
#$01 


$80 


;Clear DOS Work Area, parse the command,and note 
stypes of parameters after the comma in $80, $81 
;Get the types of parameters that follow command 
;Check if any illegal parameters were used 

;If there are none, then continue 

;If any illegal parameters were used, generate a 
;'SYNTAX' error 

;Set up an index to the command table 

;Set up a counter to number of characters to get 
;From the table 

;Get the types of parameters that follow command 
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AO90: 


A092: 
A094: 
A095: 
A097: 
A098: 
A099; 
AO9A: 
AO 9B: 
AO9E: 
AOAO: 
AOA1: 
AOA4: 
AOA6: 
AOA9: 
AOAB: 
AOAE: 
AOAF: 
AOB2: 
AOB4: 
AOBS:;: 


AOB8: 
AOB9Q: 
AOBA: 


AOBD: 
AOBF: 


AND 


BEQ 
LSR 
BCC 
INX 
INX 
INX 
TXA 
JSR 
LDA 
TAX 
JSR 
LDY 
LDX 
LDA 
JSR 
SEC 
JSR 
BCC 
PHA 
JSR 


PLA 
TAX 
JMP 


LDX 
JSR 


C-128 BASIC 7.0 Internals 


#%00010001 ;Check if there is a wildcard or drive # after 
;The command 
SAO9A ;If not, then branch 
;Check if there is a wildcard 
SA099 ;If not, then branch 
;Increment the counter by 3 to do a 
;Directory with 
;A wildcard 
;Save the counter 
SA667 ;Set up the parameters for reading the directory 
#$00 ;Set the memory bank to zero 
;Set the filename bank to zero 
$9287 ;Call SETBNK to set up the memory configuration 
#$60 ;Set the secondary address to 0 + $60 
$011C ;Get the correct device # 
#300 ;Set the logical file number to zero 
$9257 ;Call BASIC SETLFS to set up the file parameters 
;Set the carry as a flag to check for errors 
$90D8 ;Open the file 
SAOBD ;If there are no errors, then branch 
;Save the error number onto the stack 
$A114 ;Reset the system to default I/O configuration 
;And close the file that was opened 
;Get back the error number 
;Move the error number to the X register 
$4D3C ;Jump to process the error 


KKKK IK KKK KK KKEKKKK KEK KEK KKEKKKEKKEKKKKEKKKEKKKEKKKEKKKKKKEKKKKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


OUTDIR 


OUTput the DIRectory of a disk 


This routine does the actual outputting of the 


directory of a disk. 


When the routine is called, a 


file must already be opened with a file number of 


zero and a name of 


mot. 


used to output any file to the screen just by 
opening a file as explained above and substituting 


the 


'S' with the name of the file you want to 
output. 


The first four bytes will be skipped, and 


the next two will be printed as a decimal value. 


#0 
SA845 


* 
* 

* 

* 

* 

* 

* 

* 
NOTE: This routine can be * 
* 

* 

* 

* 

* 

* 

* 


KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKKKKKKKEKKKKKKK KKK KKK 


;Set the X register to the Logical File number 
;Enable BANK 15 
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A0C2: 
AOC5:; 
AO0C7; 
AOCA: 
AOCD; 
AODO; 


AOD3: 


AODS: 
AOD8; 
AODB: 
AODE: 
AOEO: 
AOE3: 
AOES5: 
AOE8:; 
AOEB: 
AOEE: 
AOFO: 
AOF3: 
AOF6: 
AOF?7; 
AOFA: 
AOFC: 
AOFD: 
AOFF 

Al02: 
A105: 
A107: 
A10A: 
A10D: 
Al0F:; 
Allls 
A113: 
A114: 


All7: 
A119: 
Al1A: 


JSR 
LDY 
STY 
JSR 
STA 
JSR 


BNE 


JSR 
STA 
JSR 
BNE 
DEC 
BNE 
LDX 
LDA 
JSR 
LDA 
JSR 
JSR 
PHA 
JSR 
BNE 
PLA 
BEQ 
JSR 
JMP 
LDA 
JSR 
JSR 
BEQ 
LDY 
BNE 
PLA 
JSR 


LDA 
CLC 
JMP 


SFFC6 
#$03 

$1174 
$9263 
$1175 
$9251 


$A114 


$9263 
$1176 
$9251 
$A114 
$1174 
SAOCA 
$1175 
$1176 
$8E32 
#520 

$9269 
$9263 


$9251 
$A113 


$A105 
$9269 
SAOF3 
#S0D 

$9269 
$9293 
$A114 
#502 

SAOC7 


S9O26F 
#500 


$9275 


;Designate the file as an input file 

;Set the number of double bytes 

;To skip 

;Get a byte from the file 

;And save it 

;Call the BASIC READST routine to check status 
;0of the disk drive 

;If the status is not zero, the end of file was 
;Found or there was an error, then exit 

;Get the next byte from the file 

;And save it 

;Check the status again and exit 

;If the status is not zero 

;Decrement the counter by one 

;Continue skipping until the counter is = to 0 
;Get the LSB and 

;The MSB of the number of blocks in the file 
;Output the number to the screen 

;Output a space 

;To the screen 

;Get a character from the filename 

;And save it 

;Check the status 

;If the status is not zero, 
;Get the character back 

s;If 0, this is the end of the filename -branch 
;Output the character of the filename 


then exit 


7And continue with the loop 


;Output a carriage return 

;To the screen 

;Check the stop key 

;And exit if it is pressed 

;Set the number of double bytes to skip 
;And branch to output the next filename 
;Get the accumulator back off of the stack 
;Call the BASIC CLRCHN to reset the default I/O 
;Configuration 

;Get the file number to close 

;Clear the error flag 

;Close the file and exit 


KKEKKKKKKKKKKKKEKKKKKKKKEKKKKKKEKEKKKKKKKEKEKKKKKKKKKKKK KK KEK 


t+ + F OF 


Command syntax: 


* 


BASIC DOPEN COMMAND 


DOPEN# file number," filename " 
[,<S/P>]"[,RL] [, DR] [<ON, >DV] [,W] 


+ + + 
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A11D: 
A11F: 
Al22: 


A125: 


A128: 
Al1l2A;: 
A12C; 
Al2E: 
A130: 
A132: 


Al34: 


A136: 
A139: 


A13C: 


LDA 
JSR 
JSR 


JSR 


LDY 
LDX 
BIT 
BVC 
LDX 
BNE 


LDA 


JSR 
JSR 


JSR 


+ + + + €* &€ € FF H FF 


This command allows you to open a disk file fora 
read or write operation. 


= sequential file 


program file 


'L' + the file length (relative files) 
'D' + the drive # 

'U' + the device # 

'W' for the write mode 


+ + + + + £ + ££ HF 


KKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKEKEKKKEKKKKKKKKKKKKKKKKKKKK 


#$22 
SA3C1 
SA76F 


$A157 
#$05 


#504 
$80 


$A143. 


#508 
$A143 


;Parse the command and ensure that a 

;Second filename or second drive # was unused 
;Ensure that a logical file no. and filename 
;Were specified 

;Find an available secondary address and save 
;It at location $011D 

; Index to the command table minus one 

:;Number of characters in the command 

;Check if an 'L' for record length was specified 
;If not, then branch 

s;Number of characters in the command 

;Branch to execute the command 


KKK KKKHKKKKKKKKKKKKKKKKKKKKEKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKK 


+ + + + © + € € FF FF F HF F 


Command syntax: 


NOTE: 


This command allows you to open a file and any 
PRINT# commands will append the data specified to 
the end of the file specified by ‘filename’. 


DR 
DV = 


BASIC APPEND COMMAND 
APPEND# file number," filename " 
[, DR] [, <ON, >DV] 
'D' + the drive # 
'U' + the device # 


+ + + € € € € FF FF FF F F F 


KHKKKKHKKKKKKKKKKKKKKKKKKKKKEKKKEKKKKKKKKKKKKKKKKKKKK KKK KK KK 


#SE2 


SA3C1 
SA76F 


$A157 


;Parse the command & ensure that a 2nd filename, 
;Record length, 
;Second drive #, or '@' symbol was not used 
;Ensure that a filename and logical file no. was 
;Specified 

;Search for an unused secondary address 
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Al3F: LDY #516 ;Set up an index to the command table minus one 
A141: LDX #505 ;Set up the number of characters 
A143: TXA ;In the command 
A144: JSR SA667 ;Place the proper DOS command into the 
;Buffer at starting at location $1100 
A147: JSR $926F ;Reset the system to default I/O configuration 
Al4A: LDA #$00 ;Get the bank number of the 
Al4C: TAX ;DOS command 
Al4D: JSR $9287 ;Set the bank number for this operation 
A150: JSR $90D8 ;Open the file 
A153: SEC ;Flag to designate a special CLOSE 
A154: JMP $9275 ;Close down the file in the computer only. 


kkkkkkkkkk kkk KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK 
* * 
* This routine is to find an unused secondary address. * 
* * 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKkKKKkKkKkK 


A157: LDY #561 ;Get the first secondary address to lookup + $60 
A159: INY ;Add one to the secondary address 

A15A: CPY #S6F s;Is it the last available secondary address+1? 
A15C: BEQ SA16A ;Yes, then generate a 'TOO MANY FILES' error 
A15E: JSR SA845 ;Enable BASIC BANK 15 

A161: JSR SFF5C ;See if the secondary address is in use 

A164: BCC SA159 ;If it is, then branch to check the next one 
Al66: STY $011D ;If not, then save it 

A169: RTS ;And exit 


KKK K KKK KK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* * 
* This routine generates a 'TOO MANY FILES’ error. * 
* * 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KK KKK KKKKKKK KKK KKK KKKK 


A16A: LDX #1 ;Error number for 'TOO MANY FILES' error 
Al6C: JMP $4D3C ;Generate the error message 


KKK KKK KK KKK KKK KKK KKK KKKKKKKKKKKK KKK KKK KKK KK KA K KR RK RK RK 
BASIC DCLOSE COMMAND 


Command syntax: DCLOSE [# file number] [ON,DV] 


+ + + +  # 
+ + + +  & 


NOTE: DV = 'U' + the device # 
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Al6F: 
Al71: 


A174: 
Al77: 
A179; 
Al17B: 
A1l7D: 
Also: 
A183; 
Al86: 
A189: 


Al8C: 
Al8E: 


A191: 
A194; 
A196: 
A198; 
A19B: 
Al9D: 
Al9E: 
A1A1; 


LDA 
JSR 


JSR 
LDA 
AND 
BEQ 
LDA 
JMP 
LDA 
JSR 
JMP 


LDA 
JSR 


JSR 
LDY 
LDA 
JSR 
LDA 
TAX 
JSR 
JMP 


* 


* 


* 


This command closes a single file or all files on * 
the disk drive that is specified. ss 


* 


KKKKKKKKKKKKKKKKKKKKKKKKKKEEKKKEKKEKKKKKKEKKKKKKKKKKKKKKKKKKK 


#SF3 
SA3C1 


SA80D 
$80 
#$04 
$A183 
$011B 
$9275 
$011¢C 
SA845 
SFF4A 


;Parse the command 

;No parameters but a logical file no. and/or 
;drive # may be specified 

;Deallocate DSS$, set the flag to read a new DSS 
;Check if a drive # 

;Was specified after the command 

;If not, then branch 

;Get the current logical file number 

;And CLOSE it 

;Get the current device # 

;Enable BANK 15 

;And CLOSE all of the open files on that device 


KKEKKKKKKKKKKKKKKKKKKKKKKKKEKEKKKKKKKKKEKKEKKKKKKKKKKKKKKKKKKEK 


Command syntax: 


NOTE: 


BASIC DSAVE COMMAND 


DSAVE " filename " [,DR] [<ON, >DV] 


'U' + the device # 


This command will allow you to save a BASIC program 
file to a disk. 


#566 
SA3C1 


SA750 
#505 
#504 
6A667 
#500 


$9287 
$9115 


* 
* 

* 

* 

* 

"'D' + the drive # * 
* 

* 

* 

* 

* 

* 


KKEKKKKKKEKKKKKKKEKKKKEKEKKKKKKEKKKKKEKKKKKKKKKKKKKKKKKKEKKKEKK 


;Parse command & ensure that the only parameters 
;Are the filename, the device #, and the drive 
;Number, or the save with replace '@' 

s;Ensure that a filename is after the command 
;Set up an index to the command table minus one 
;Set up the number of characters in the command 
;Place the proper command in the buffer at $1100 
;Set up the RAM BANK to save from 


;Call SETBNK to select the RAM BANK 
;Perform a BASIC SAVE 
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AlA4: 
AlA6:; 


Al1lA7: 
A1A9; 
A1AB: 
A1AD: 


A1B0; 
A1B3;: 
A1B5: 
A1B8; 
A1BA: 
A1BC: 
A1LBF: 
A1C1: 


LDA 


~BYTE $2C 


LDA 
STA 
LDA 
JSR 


JSR 
LDA 
STA 
LDY 
LDA 
JSR 
LDA 
TAX 


KKKKKKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


BASIC DVERIFY COMMAND 


Command syntax: 
NOTE: DR = 'D! 
DV = 'U! 


DVERIFY " filename " [,DR] [<ON, >DV] 


+ the drive # 


This command allows you to verify the program that 
is on the disk with the program that is stored in 


memory. 


This command is usually used to make sure 


that a BASIC program was saved to the disk properly. 


#1 7Set 


* 
* 
* 
* 
* 
* 
+ the device # * 
* 
* 
* 
* 
* 
* 
* 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


the flag for Verify 


;Mask to fall through to the DLOAD command 


KKEKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* * 
. BASIC DLOAD COMMAND La 
* * 
* Command syntax: DLOAD " filename " [,DR] [,DV] * 
* * 
* NOTE: DR = 'D' + the drive # * 
- DV = 'U' + the device # i 
* * 
* This command allows you to load a BASIC program ia 
* from disk into the computer's memory at the current * 
* starting address of BASIC. * 
* * 
KKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKEKKKEKKKKKKKKKKKKKKKKKKK 


#00 ;Set the flag for LOAD 
$Oc ;Save the LOAD/VERIFY Flag 
#SE6 ;Parse the command 
SA3C1 ;No other parameters but the filename, device #, 
;Or drive # may be specified 
S$A750 sEnsure that a filename is after the command 
#$00 ;Set the current secondary 
$011D ;Address to $00 
#S05 ;Set up an index to the command table minus one 
#504 ;Set up the number of characters in the command 
SA667 ;Put the proper command in the buffer at $1100 
#$00 ;Set the Bank number for LOAD 
;To Bank O 


345 


Abacus Software C-128 BASIC 7.0 Internals 





A1C2: JSR $9287 ;Call SETBNK to select RAM BANK 
A1C5: JMP $9133 ;Perform a BASIC LOAD 


KHKKK KKK KKK KKK KKK KK KK KKK KKKKKKKKKKKKKKK KKK KKK KKK KKK KKKKK 


* * 
* BASIC BSAVE COMMAND * 
* * 
* Command syntax: BSAVE " filename " [,DR] [,DV] * 
* [,BK],SA <TO> EA * 
* * 
* NOTE: DR = 'D' + the drive # * 
eS DV = 'U' + the device # * 
* BK = 'B' + the bank number * 
* SA = 'P' + the starting address for the save * 
* EA = 'P' + the ending address for the save * 
* * 
* This command allows you to save a binary file to * 
* disk of the memory area that is specified. - 
* * 
KAKKKKKKKKKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KK KKK KK KKK 


A1C8: LDA #566 ;Parse the command 

A1CA: LDX #SF8 ;No other parameters but filename, the device 
;Number, the drive #, the save and replace '@', 

AlcC: JSR SA3C3 ;The bank #, and the start and end addresses, 
;May be specified 

A1CF: JSR $A750 Ensure that a filename follows the command 

A1D2: LDA $81 ;Mask appropriate bits for start / end addresses 

A1D4: AND #$06 ;And check if both 

A1D6: CMP #S06 ;Are specified 

A1D8: BEO SA1DD ;If they are specified, then branch 

A1DA: JMP $796C ;If unspecified, then generate a 'SYNTAX' error 

AlDD: LDA $011A ;If the starting 

A1E0O: CMP $0118 ;And ending addresses 

A1E3: BCC $A215 ;Are the same 

A1lE5: BNE SA1F1 ;Or if the 

A1E7: LDA $0119 ;Starting address is 

AlEA: CMP $0117 ;Larger than 

A1lED: BCC $A215 ;The ending address, 

A1EF: BEQ $A215 ;Then error 

AlF1l: LDY #$05 ;Set up an index to the command table minus one 

AlF3: LDA #$04 ;Set up the number of characters in the command 

A1lF5; JSR SA667 ;Put the proper command in the buffer at $1100 

AlF8: LDA $011F ;Get the bank number for the save 

AlFB: LDX #$00 

AlFD: JSR $9287 7;Call SETBNK to select the RAM BANK 

A200: LDX $0117 ;Get the LSB 
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A203: 
A206: 


A208: 
A20A;: 
A20C;: 
A20F: 
A212: 
A215: 


A218: 
A21A: 


A21C: 
A21F:; 
A222: 
A225; 
A228; 
A22A: 
A22C; 
A22E: 
A230; 
A232: 
A234; 
A237: 
A239: 
A23B: 
A23E: 
A241: 
A243: 


LDY 
LDA 


STX 
sTY 
LDX 
LDY 
JMP 
JMP 


LDA 
LDX 


JSR 
JSR 
LDX 
LDY 
LDA 
CPX 
BNE 
CPY. 
BNE 
LDA 
STA 
LDY 
LDA 
JSR 
LDA 
LDX 
JSR 


$0118 
#SSA 


SSA 
SSB 
$0119 
$011A 
$911D 
$7D28 


;And the MSB of the save starting address 

;Set the accumulator to the address of where 
;The starting address is saved 

;Save the starting address 

;Of the save 

;Get the LSB 

;And the MSB of the ending address for the SAVE 
;And SAVE the file 


;Generate an ‘ILLEGAL QUANTITY' error 


KKKKKK KKK KKK KKK KKEKK KK KKK KKKKKKKEKKKKKKKKKKKKKKKKKKKKKKEK 


+ + % + + + FF FF F F HF FF F F 


Command syntax; 


NOTE: 


This command allows you to load a binary file from 
the disk to the memory area that is specified. 


DR 
DV 
BK 
SA 


BASIC BLOAD COMMAND " 

* 

BLOAD " filename " [,DR] [,DV] - 

[, BK] [, SA] " 

* 

'D' + the drive # - 
'U' + the device # x 
"B' + the bank number 
™P’' + the starting address for the load * 
* 

* 

* 


KRKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEK KKK KKK KK KKK KKK KK KKK 


#SE6 
#5FC 


SA3C3 
$A750 
$0117 
$0118 
#$00 
#SFF 
$A234 
#SFF 
$A234 
#SFF 
$011D 
#$05 
#$04 
SA667 
$011F 
#500 
$9287 


;Ensure that the only parameters specified are 
;The filename, the device #, the drive #, 

;And the save with replace '@! 

;Bank number of the starting address 

s;Ensure that a filename follows the command 

;Get the LSB 

;And the MSB of the starting address for LOAD 
;Set the initial secondary address to zero 

;If the starting address 

;Has not been specified, | 

;Then set the current 

;Secondary address 

;To SFF. If the starting address was specified 
;Then set the secondary address to zero 

;Set up an index to the command buffer minus one 
;Set up the number of characters in the command 
;Put the proper command into the buffer at $1100 
;Get the the bank number to LOAD to 

;And call SETBNK 

;To set the RAM BANK number 
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A246; 
A248; 
A24B: 
A24E; 
A251: 
A252: 
AZ5S5: 
A256: 
A258; 
A25B: 
A25E: 
A260: 
A262; 
A265: 
A266: 


A267: 
A26A: 


A26D: 
A26F: 
A271: 
A273: 
A276: 
A279: 
A27B: 
A27D: 
A27F: 
A282; 
A284: 
A286; 
A289: 


LDA 
LDX 
LDY 
JSR 
PHP 
JSR 
PLP 
BCC 
JMP 
JSR 
AND 
BEQ 
JMP 
CLC 
RTS 


JSR 
JSR 


AND 
CMP 
BNE 
JSR 
JSR 
BNE 
LDY 
LDA 
LDX 
BEQ 
LDA 
JSR 
JSR 


#500 

$0117 
$0118 
SFFD5 


$9243 


SA25B 
$90D0 
$9251 
#SBF 

SA265 
$9167 


;Set the flag for LOAD 

;Get the LSB 

;And the MSB of the starting address 
;LOAD the file 

;Save the error flag 

;Deallocate DSS 

;Restore the error flag 

;If there was no error, then branch 
;Generate an error, and exit. 

;Read the current I/O status 

;if there were no errors, 

;Then branch 

;Output the error message 

;Clear the error flag 

;And exit 


kk kkk kk kkk kk kk kKkkKkkkkkkkKkKkkkKkKkkkKkkkkkKeKk KK KKK KKK KK KKK 


+ + € £ + £ € FF FF F F *F 


Command syntax: 


NOTE: 


This command allows you to format a disk for data 
storage with the '‘diskname' 


= 'U' + the device # 


BASIC HEADER COMMAND 
HEADER "diskname"[, ID] [,DR] [<ON, >DV] 


'T' + a two character identification 
'D' + the drive # 


and 'ID' specified. 


* + © € © £ + &£ FF F F 


kakkkkkkkkKekkekKekkkkkKekkekekeK KKK KK KKK KK KK KKK KKKKKKKKKKRKKKKKK 


SA3BF 
SA749 


#501 
#$01 
SA2D4 
$927B 
SATE1 
SA2A0 
#S1B 
#504 
$0120 
SA286 
#S$06 
$A397 
$A778 


;Parse the command 

;Ensure that no other parameters but filename, 
;The device #, or the drive # were specified 
;Ensure that there is a filename after 

;The command 

;If not, then generate a 'SYNTAX' error 

;Make the screen and keyboard the current I/O 
;Ask the question 'ARE YOU SURE?' 

;Abort if an 'N' was entered 

Set up a pointer to the command table minus one 
s;Number of chars in a command for a "short" NEW 
;Check if an ID was specified 

;if not, then perform a "short" NEW 

s;Number of chars in a command for a "full" NEW 
;Format the disk 

;Read in DS$ from the disk drive 
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A28C: 
A28E; 
A290; 
A292; 
A294; 
A297; 
A299; 
A29B: 
A29D; 
A2A0;: 


A2Al1: 
A2A4: 


A2A7: 
A2AA: 


A2AC;: 
A2AE: 
A2B0: 
A2B3: 
A2B6: 
A2B8: 
A2BA: 
A2BC: 
A2BF: 
A2C1: 
A2C3: 
A2C6;: 
A2C8; 
A2CB: 
A2CC;: 
A2CE: 


BIT 
BMI 
LDY 
LDA 
JSR 
CMP 
BCC 
LDX 
JMP 
RTS 


JSR 
JSR 


JSR 
BNE 


LDY 
LDA 
JSR 
JSR 
BIT 
BMI 
LDA 
JSR 
LDY 
LDA 
JSR 
BEQ 
JSR 
INY 
BNE 
LDA 


STF 
SA2A0 
#0 
#$7B 
$O3AB 
#'2' 
SA2A0 
#36 
$4D3C 


;Check if we are in the PROGRAM mode 
;If so, then exit 

;Index to the first character of DS$ 
;Pointer to address of DSS 

;Get the first character of DSS 

;If the error number is 
;Less than 20, then exit 
;Error number for 'BAD DISK’ 
;Generate the error message 
;Exit the routine 


error 


KK KKKKIKKKKKKKKKK KK KKK KKKEKKKKKKKKEKEKKKEKKKKKKKKKKKKKKKK KKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


SA3BF 
SA749 


SA7TE1 
$A2D3 


#$37 
#$04 
$A397 
$A778 
S7F 
$A2D3 
#$0D 
$9269 
#$00 
#$7B 
$03AB 
SA2CE 
$9269 


SA2C1 
#S0D 


* 

BASIC SCRATCH COMMAND * 

* 

Command syntax: SCRATCH " filename " [,DR] [,DV] * 
* 

NOTE: = 'D' + the drive # _ 
'U' + the device # is 

* 

This command allows you to scratch a file or files * 
from a disk. x 
* 

KKK KKK KKK HK KKK KKH KK KKH KH KKK KKK KKK KKKHKKKKKKKKKKKKEKKKKKKEK 


;Parse the command 

;Ensure that no other parameters but filename, 
;The device #, or the drive # were specified 
;Ask the question 'ARE YOU SURE?! 

sAbort if any character other than 'Y' is 
sentered 

;Set up a pointer to the command table minus one 
sNumber of characters in the command 
;SCRATCH the file 

;Read in DS$ from the disk drive 

;Check if we are in the Program mode 

;If so, then exit 

;Value for a carriage return 

sOutput it 

;Index to the first character of DS$ 

;Point to the address of DS$ 

;If there is no error message, 

;Then exit 

;Output the entire 

s;Error 

;message 

,;Output a 
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A2D0: 
A2D3: 
A2D4: 


A2D7: 
A2D9: 


A2DC: 
A2DF: 
A2E1: 
A2E3: 
A2E6: 
A2E9; 
A2EB: 
A2EE: 
A2F0: 
A2F2: 
A2F4: 
A2F6: 
A2F9: 
A2FC;3 
A2FF: 
A302: 


A304; 
A307: 
A30A; 
A30C;: 
A30F: 
A311: 
A314; 
A316; 


JSR 
RTS 
JMP 


LDA 
JSR 


JSR 
CPX 
BEQ 
STX 
JSR 
LDX 
JSR 
CPX 
BEQ 
CPX 
BEQ 
STX 
LDA 
JSR 
JSR 
BCS 


STY 
STX 
LDA 
STA 
LDA 
STA 
LDY 
LDA 





S9O0DF ;Carriage return 
s;And exit the routine 
$796C sGenerate a ‘SYNTAX! error 


KKEKKKKKK KKK KKK KKK KKK KEKE KK KKK KKK KKK KKEKKKKKKKKKKKKKKKKKKKK 


BASIC RECORD COMMAND 
Command syntax: RECORD# LFN, RN [,BN] 


* * 
* * 
* * 
* * 
* * 
* NOTE: LFN = the logical file number ~ 
- RN = the record number ” 
* * 
* * 
* * 
* * 
* * 
* * 


BN the byte number 


This command allows you to access a relative file 
by setting the pointers to that file. 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


#$23 ;Value for a pound sign '#' 
$795E ;Check for pound sign. If the pound sign is not 
;Found, then generate a ‘SYNTAX!’ error 
S87F4 ;Get the file number into the X register 
#500 ;If the file number is equal to zero 
SA31A ;Then generate an ‘ILLEGAL QUANTITY' error 
$011B ;Save the file number in the DOS work area 
S880F s;Check for a comma and get the record number 
#$01 ;Set the default offset to 1 
S9E1E ;Get byte # (offset in record) into X register 
#$00 ;If the byte number is zero 
SA31A ;Then generate an 'ILLEGAL QUANTITY' error 
#SFF sIf the byte number is 255 
SA31A ;Then generate an 'ILLEGAL QUANTITY' error 
SO11E ;Save the byte number in DOS work area 
$011B ;Get the special logical file number 
SA845 ;Enable BANK 15 
SFF59 ;Search for the logical file number 
$A31D ;And if the file is not open, : 
;Then generate a 'FILE NOT FOUND! error 
$11ED ;Save the secondary address 
$011¢C ;And the device # 
#$00 ;Set the logical file number to zero 
$011B ;Save it in the DOS work area 
#S6F ;Set the secondary address to 15 + $60 
$011D ;Save it in the DOS work area 
#$3B ;Set up an index to the command table minus one 
#$04 ;Number of characters in the command 
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A318; 
A31A: 
A31D: 
A31F: 


A322; 
A325: 
A327: 
A329: 
A32C: 


A32F:3 
A332: 


A335: 


A338: 


A33A: 
A33C: 


JSR 
LDY 
LDA 
JSR 
JMP 


JSR 
JSR 


JSR 


LDY 


LDX 
LDA 


* 
* 
* 
* 
* 
* NOTE: DR 
* 
* 
* 
* 
* 
* 


$A397 ;Execute the command 

$7D28 ;Generate an ‘ILLEGAL QUANTITY’ error 
#$04 ;Error number of 'FILE NOT FOUND’ error 
$4D3C ;Generate the error message 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 


BASIC DCLEAR COMMAND 


Command syntax: DCLEAR [,DR] [<ON, >DV] 


'D' + the drive # 
DV = 'U' + the device # 


This command when executed will intialize the disk 
drive that is specified. 


+ + + + F F F F F OF F 


kKkekkkkkkkkkkkeekkkkkkKRKKKKKKKKKKKKKK KK KKK KKK KKKKK KKK KKK 


SA3BF ;Parse the command 

#SFF ;Index to the command table minus one 
#502 s;Number of characters in the command 
$A397 ;Execute the DOS command 

$A183 sClose all files and exit 


KAKKKEKKKKKKKKKKKKKKKKEKEKKKKKKKEKKKKKEKKKKKKKKKKKKKKKKKKKKKKEK 


BASIC COLLECT COMMAND 
Command syntax: COLLECT [,DR] [<ON,>DV] 


* 
* 
* 
* 
* 
'D' + the drive # : 
'U' + the device # . 
* 
* 
* 
* 
* 


oO 
< 
| 


This command allows you to free up the unused space 


* 

* 

* 

* 

* 

* NOTE: DR 
* 

* 

* 

* ona disk. This process is called validating. 
* 

* 


KkkKKKKKKKKKKKKKKKKKKKEKKKKKKKEKKKKKEKKKKKKKKK KKK KKK KKK KKKK 


SA3BF ;Parse the command 

SA75B ;Ensure that parameters used are the device # 
;Or the drive # 

$927B ;Close all open files and make the screen and 
;keyboard current I/O 

#$21 ;Index to the command table 

#S01 ;Number of characters in the command 

$80 ;Check if a drive # 
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A33E: 
A340: 
A342: 


A343: 
A344: 


A3463 
A349; 
A34B: 
A34D;: 
A34F3 
A351: 
A353: 
A355: 
A357: 
A35A;3 
A35C3 
A35E: 


A360: 


AND 
BEQ 
INX 


TXA 
BNE 


#$10 ;Was specified after the command 

$A343 ;If not, then default to zero 
;Increment the number of chars in the command 
;To include the drive # 
;Move that value to the accumulator 

$A397 ;Execute the command 


KKEKKKKKKKKKKKKKKKKKKKKKEKKKKKEKKKEKKKKKEKKKEKKKKKKKKK KK KK KKKKEK 


* * 
* BASIC COPY COMMAND * 
* * 
* Command syntax: COPY “source filename"™[,DR] TO * 
* “destination filename"[,DR] [<ON,>DV] * 
* * 
* NOTE: DR = 'D' + the drive # * 
* DV = 'U' + the device # * 
* * 
* This command allows you to copy a file within a * 
* single disk drive or from one disk to another ina * 
* dual disk drive. ~ 
* * 
KKKKKKKKKKKKKKKKKKKKKKKEKKKEKKKKEKKKKKKEKKKEKKKKKKKKKKKKKKKKKEK 


JSR SA3BF ;Parse the command 

AND #530 ;Check if the copy is to be performed 
CMP #530 ;Between Drive 1 and Drive 0 

BNE SA355 ;If not, then branch 

LDA $80 ;If there are not any 

AND #SC7 ;Illegal parameters, 

BEQ SA35C ;Then branch 

LDA $80 ;Ensure that two filenames follow the 
JSR SA760 ;Command, check for illegal parameters 
LDA $80 ;Useless code 

LDY #$27 ;Index to the command table minus one 
LDA #508 ;Number of characters in the command 
BNE $A397 ;Execute the command | 


KKKKKKKKKKKEKKKKEKKKEKKKKEKKKKKKKKKKKKKKKKKKKKKKKKK KK KK KK KKK 


* * 
* BASIC CONCAT COMMAND * 
* * 
* Command syntax: CONCAT "file #2" [,DR] TO "file #1" * 
* [,DR] [<ON, >DV] * 
* * 
* NOTE: DR = 'D! + the drive number * 
* DV = 'U!t + the device number * 
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A362: 
A365: 


A368: 
A36A: 
A36C: 


A36E: 
A370; 
A373: 
A376; 
A378: 
A37A: 


JSR 
JSR 


LDY 
LDA 
BNE 


LDA 
JSR 
JSR 
LDY 
LDA 
BNE 


+ + + F 


This command allows you to combine two files on disk * 


into one file on the disk. 


The filename that is * 


given to the new file is the one that was specified * 


for 


‘file #1". ~ 


* 


KEKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KK KKKKKK KKK KKK KKK KK KKK KKK 


SA3BF 
SA760 


#S0D 
#S0C 
$A397 


;Parse the command 

sEnsure that the two filenames are specified 
safter the command 

;index to the command table minus one 
;Number of characters in the command 
7;Execute the command 


KKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KK KK KKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


Command syntax: 


NOTE: 


This command allows you to RENAME a file from the 
old filename specified by 'old' to the new filename 
specified by 


#SE4 
$A3C1 
SA766 
#S52F 
#$08 
$A397 


= the filename of the file that you wish 
= the filename that is to be assigned 


= Ip? 
= 'U' + the device number 


BASIC RENAME COMMAND 


RENAME "old" TO "new" [,DR] [,DV] 


to RENAME 


to the file being RENAMED 
+ the drive number 


"new!. 


+ + + € FF FF FF FF FF FE FHF FE F F F 


KEKKKKKKEKKKKKKKEKKEKKKEKKKKKKEKKKEKKKKKKKKKKKKKKKKKKEKKKKKKKKK 


;Parse the command and ensure that 

;There are no illegal parameters present 
;Ensure that 2 filenames follow the command 
;Index to the command table minus one 
;Number of characters in command 

;Execute the command 


KKK KKK KKK KKKKKKKKKKKKKKKEKKKKKEKKKKEKKEKKKKKKKKKKEKKKKKKEKKK 


+ 


* 


+ 


Command syntax: 


* 


BASIC BACKUP COMMAND i 
* 
* 


BACKUP SDR to DDR [<ON, >DV] 
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A37C; 
A37E;3 
A381: 
A383; 
A385: 
A387: 
A38A; 
A38D: 
A38F; 
A390; 
A393: 
A395: 
A397: 
A39A; 
A39D; 
A39F; 
A3A0: 
A3A3: 
A3A4: 
A3A7: 
A3A8:; 
A3A9: 
A3AC: 
A3AD: 
A3B0: 
A3B1; 
A3B2: 
A3B4: 
A3B5: 


A3B8: 
A3BA: 


LDA 
JSR 
AND 
CMP 
BEQ 
JMP 
JSR 
BEQ 
RTS 
JSR 
LDY 
LDA 
JSR 
JSR 
LDA 
TAX 
JSR 
SEC 
JSR 
PHP 
PHA 
LDA 
SEC 
JSR 
PLA 
PLP 
BCS 
RTS 
JMP 


-BYTE SFF, SFF 
~-BYTE SFF,SFF 


* 
* 
* 
* 
* 
* 
* 


NOTE: 


This command 


SDR 
DDR 
DV 


DE 
‘DE 
‘U! 


+ the source drive number 
+ the destination drive number 
+ the device number 


disk on to another on a dual disk drive only. 


* 

* 

* 

* 

allows you to copy the contents of one * 
* 

* 

* 


KH KKKK KK IKK KK KEK KKK KKK KK KEK KKK KKKKKKKKKKKKKKKKKKKKKK 


#SC7 
SA3C1 
#$30 
#$30 
SA38A 
$796C 
SATE1 
$A390 


$A183 
#523 
#504 
SA667 
$926F 
#$00 
$9287 


$90D8 


$011B 


$9275 


SA3B5 


$90D0 


;Parse the command and ensure that 

;There are no illegal parameters present 

;Ensure that two drive 

;Numbers were specified 

;If two were specified, then branch 

;Generate a ‘SYNTAX’ error 

;Ask the question 'ARE YOU SURE?! 

;Branch if 'Y' was entered 

;Exit the routine 

;Close all open files 

;Index to the command table minus one 

s;Number of characters in the command 

;Put the proper command into the buffer at $1100 
;CLRCHN - Set system to default I/O 

;Set up for RAM BANK 0 

;And call SETBNK 

;To set I/O for RAM BANK 0 

;Useless code 

;Open the file to execute the BACKUP command 
;Save the error flag 

;And the error number 

;Get the logical file number flag to perform 
Internal close (don't send close to disk) 

;And close it 

;Get the error number back 

;And the error flag 
;If there was an error, 
;If not, then exit 
;Generate the appropriate error message 


then branch 


KKEKKKKK KKK KK KKH KKK KKK KKK KKK KKKKKKAKKKKKKEKKKKKKKKKKKKKKK 


* 


* 


* 


* 


DOS INITIALIZATION DATA TABLE 


* 


KK KKK KKK KKK KKH KI KK KH KKK KKK KKK KKKKKKKKEKKKKKKKKKKKKKKKKKKK 


;Default starting address 
;Default ending address 
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A3BC: .BYTE $00 ;Default logical file number of zero 

A3BD: .BYTE $08 ;Default device number of 8 

A3BE: .BYTE S6F ;Default secondary address of 15 + $60 


KkKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKkKKKKKKK KKK KKK KKK 


BDCPP 
Basic DOS Command Parameter Parser 


* 

* 

* 

* 

* 

* This routine is used to set up which parameters 

. are allowed to be entered after each of the DOS 

* commands. This routine will also clear out the 

* DOS buffer and copy the default DOS table into 

. the DOS work area. Note: There are several entry 
* points into this routine due to the fact that 

* there are so many different combinations 

= available. It is better to start at the begining 
* of the DOS command and walk through it instead of 
* starting here. 

* 

* 


+ + + € F € FF FF F FF FF FF F F HF F 


Kkkkkkkkkkkkkkkkkkkkkkkkkke kk KKKKKKKKKKKKKKKKKKKKRKKKKKKKK 


A3BF: LDA #$00 ;Flag to enable any parameters to be used except 
;Those specified in the next line 

A3C1: LDX #SFF ;Flag to indicate the BANK #, starting and/or 
;Ending cannot be specified 

A3C3: PHA ;Save them 

A3C4: TXA 7;Onto the 

A3C5: PHA ;Stack 

A3C6: LDA #0 ;Clear the two bytes that are reserved for the 

A3C8: STA $80 ;Bit representation of the parameters 

A3CA: STA $81 ;That follow any BASIC DOS command 

A3CC: LDX #$22 ;For 34 bytes to clear 

A3CE: STA $0100,X ;Clear the DOS work area 

A3D1: DEX ;Starting from $0101 

A3D2: BNE SA3CE ;To $0122 

A3D4: LDX #6 ;Transfer the default 

A3D6: LDA SA3B8,X ;Values 

A3D9: STA $0117,X s;Into the 

A3DC: DEX ;DOS 

A3DD: BPL SA3D6 ;Work area 

A3DF: LDX $03D5 ;Save the BANK number 

A3E2: STX $011F ;For BLOAD/BSAVE 

A3E5: JSR $0386 ;Get lst character after BASIC DOS command token 

A3E8; BNE SA3F8 ;If there are parameters, then branch to process 

A3EA: PLA ;Get the parameter off of the stack 
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A3EB: 
A3ED: 
A3EF;: 
A3F0: 


A3F3: 
A3F5:3 


A3F7: 


A3F8: 
A3FA: 
A3FC:; 
A3FE: 
A400; 
A402: 
A404: 
A406: 
A408: 
A40A; 
A40C: 
A4OE: 


A410: 
A412: 
A414: 
A416: 
A418: 


A41A: 
A41C:; 
A41F: 


A421; 
A423: 
A425; 
A427: 
A429; 


AND 
BNE 
PLA 
JSR 


LDA 
LDX 


RTS 


CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 


CMP 
BEQ 
CMP 
BEQ 
CMP 


BNE 
JMP 
CMP 


BEQ 
CMP 
BEQ 
CMP 
BEQ 


$81 
SA45A 


SA61D 


$80 
$81 
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;Compare it to the parameter that is specified 
;lf not equal, then generate a 'SYNTAX' 
;Get the parameter off of the stack 


error 


;Check to see if the parameter has been used yet 


;And if so, then generate a 'SYNTAX' 
;Load the accumulator and X register 
;With the user specified parameters 

; (For more information, see locations $80, 
;0of a zero page listing) 

;Exit the routine 


error 


$81 


KKKKK KKK KKKKKKKKKKEKKKKKKKEKKEKKKKKKEKKKKKKKKKKKKKKKKKKKKKKK 


* 
* 
* 
* 
* 
* 


This routine checks for the various parameters and 


process that parameter will be called. 


* 

* 

if the parameter exists, the proper subroutine to * 
* 

* 

* 


#$23 
SA447 
#$57 
SA45D 
#S54C 
SA45D 
#552 
$A431 
#$44 
SA47F 
#$91 
$A437 


#$42 
SA442 
#$55 
S$A43D 
#$50 


SA41F 
SA4B4 
#$49 


SA498 
#$22 
SA42E 
#528 
SA42E 


KKK KKKKHEKKKKK KKK KKK KKKKKKEKKKKKEKKKKKKKKKKEKKKKKKKKKKKKK 


;Is it the pound sign '#!'? 

;Yes, then branch to process the file number 
;Is it a 'W' for write? 

;Yes, then branch 

;Is it an 'L' for record length? 

;Yes, then branch 

fIs it an 'R' for read? 

;Yes, then branch 

sIs it a 'D' for drive number? 

;Yes, then branch to process the drive number 
;Is it the token for 'ON'? 

7;Yes, then branch to process the parameter 
;After the 'ON' 

s;Is it a 'B' to designate the BANK number? 
;Yes, then branch to process the BANK number 
jIs it a 'U' to designate the device number? 
;Yes, then branch to process the device number 
;Is it a 'P' to designate a starting or 
;Ending address? 

;If not, then branch 

;Process the address 

;Is it an 'I' to designate an ID for 

;The 'HEADER' command? 

;Yes, then branch to process the ID 

;Is it a quote mark? 

;Yes, then branch to process the string 

;Is it an opening parenthesis? 

;Yes, then branch to process the string 
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KKKKKKKKKKKKEKKKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* * 
* "SYNTAX' error generator = 
* * 


KKKKKKKKKKKKKKEKKKEKKKKK KKK KKK KKKKEKKKKEKKKKKKKKKKKKKKKKKKK 


A42B: JMP $796C ;Generate a 'SYNTAX' error 


KKK HK HK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKEKKKKKKKKKKKKKKKK 
* * 
* This routine is called to process the string that is * 


* in quotes or parentheses after a BASIC DOS command. * 
* * 


KHEKKK KKK KKK K KKK KEKE KEKKEKKKEKKEKKKKKEKKKKKKEKKKKKKKKKKKKKEK 


A42E: JMP SA4DC ;Process the string in quotes or parentheses 


KKK IK KKK KKH KK KK KH KK IKK KH KKK HK KKK KKK KKK KK KEKE KKKKKKK KKK KRKKKK 
* * 
* This routine is used to move to the next character * 


* in the command and process it. * 
* * 


KK KK KKK KKK KKK KKK KKK KKK KEKE KKKKKKKKKKKKKKKKKKKKKKKKEK 


A431: JSR $0380 ;Get the next character 
A434: JMP SA4FB ;And process it 


KK KKK KKK KKH KK KKK KK KK KK KKK KKK KKK KEKE KKEKKKKKKKKKKKKKKKKKKK 


* * 
* This routine is called to process the parameter * 
* that follows the token for ‘ON’. * 
* * 


KKKKKKKKKKEKKKKKKEKKKEKEKEKEKKKEKKEKKKKEKKKKKEKKKKKKKKKKKKKKK 


A437: JSR SA582 ;Process the parameter after the 'ON' 
A43A: JMP SA4F7 ;Continue with the next parameter, if any 


KK AKK KKH KKK HK KKK KI KKK KKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKEK 


* 
* This routine is used to get the device number that * 
* is specified after the ' U ' and store it in the DOS * 
* work area at $011C. This routine then continues * 
* with the routine that parses the command. * 
* * 
* * 


KKH HK KKK KKK KK KKK KKK KKKKKKKEKEKKEKKKKEKKKKKKEKKKKKEKKKKKEKKEK 
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A43D: 


A440; 
A442; 
A445; 
A447; 
A449; 
A44C; 
A44F: 
A451; 
A453: 
A456; 
A458: 
A45A: 


A45D: 
A45E;: 
A460: 
A463; 
A465: 
A467: 
A46A: 


A46D: 
A470: 
A472: 
A474; 
A476: 
A478: 
A47B: 
A47D:; 


JSR 


BNE 
JSR 
BEQ 
LDA 
JSR 
JSR 
CPX 
BEQ 
STX 
LDA 
BNE 
JMP 


SA58D 


SA43A 
SA59E 
SA43A 
#504 

SA61D 
SA5F2 
#$00 

SA495 
$011B 
#$04 

SA43A 
$796C 


;Get the device number and store it into the DOS 
;Work area 

;Branch back to the Main Loop 

;Get the BANK #, store it into DOS work area 
;Branch back to the Main Loop 

;Check if the logical file number 

;Parameter has been used yet 

;Get the logical file number into the X register 
;If the logical file number is zero 

;Then generate an 'ILLEGAL QUANTITY' error 

;Save the logical file number into DOS work area 
;Branch to get the proper bit (bit 3) 

;For the logical file number 

s;Generate a 'SYNTAX' error 


KKKEKKKEKKKKEKKKKEKKKEKKKEKKKKKKKKEKKEKKKKKKKKKKKEKKKKKKKKKKKKKK 


* 


* 


* 


* 


This routine processes the 'W' or 'L' parameter. 3 


* 


KKKEKKKEKKKKKKEKKKKKKKKKKKKKKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKK 


TAX 
LDA 
JSR 
CPX 
BNE 
JSR 
JMP 


#$40 
$A61D 
#$57 
SA46D 
$0380 
$SA47B 


;Save the 'W' or 'L' into the X register 

s;Make sure that the parameter 

;Has not been used yet 

;If the parameter 

jIs an 'L', then branch 

;Get the next character after the 'W’ 

;Set proper bit in location $80 to specify this 
;Parameter was used (Bit 6) 


KKEKKKEKKKKEKKKKEKKKEKKEKKKEKKKEKKKEKKEKKKKEKKKKKKKKKKKKKKKKKKEKK 


* 


* 


* 


* 


* 


This routine is used to get the record length that * 
is specified after the parameter 'L' and process it. * 


* 


KEKEKKKKKEKKEKKEKKKKKKKKKKKKKEKEKKKEKKKEKKKKKKKKKKKKKKKKKKKKKKKEK 


JSR 
CPX 
BEQO 
CPX 
BEQ 
STX 
LDA 
BNE 


SASF2 
#$00 
SA495 
#SFF 
$A495 
SO11E 
#$40 
$A493 


;Get the record length into the X register 

s;If the record length is zero, 

;Then generate an 'ILLEGAL QUANTITY' error 

sIf the record length is 255 

;Then generate an ‘ILLEGAL QUANTITY' error 
;Save the record length into the DOS work area 
;And set the proper bit in location $80 

;For this parameter (Bit 6) 
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A4TFs: 
A481: 
A484; 
A487: 
A489; 
A48B: 
A48E; 
A491; 
A493: 
A495; 


A498; 
A4 9B; 
A49D: 
A4A0: 
A4A3:; 
A4A63 
A4A9:3 
A4AB: 
A4AE: 
A4B1:; 


A4B4: 
A4B6: 
A4B9:; 


LDA 
BNE 
JSR 
STA 
JSR 
STA 
LDA 
STA 
JSR 
JMP 


LDA 
JSR 
JSR 


KaKKKKKKKKKKKKKKK KKK KKKKKKKKKKKKKKKKKKKKKKK KK KKK KKKKK KKK 


* 


* 


* 


* 


* 


This routine is used to get the drive number that * 
is specified after the 'D'. * 


* 


KKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKKKKKKKKKR KKK KKK KKKKKKKK 


#$10 

SA61D 
SASF2 
#502 

$A495 
$0112 
$0114 
#510 

SA4F7 
$7D28 


;Check if this parameter has been used yet 
;And if it has, then generate a 'SYNTAX' 
;Get the drive number into the X register 
;If the drive number is greater than one, then 
;Branch to generate ‘ILLEGAL QUANTITY' 
;Save the drive number 

;To the DOS work area 

;And get the proper bit in location $80 
;For this parameter (Bit 4) 
,Generate an 'ILLEGAL QUANTITY' 


error 


error 


error 


KREKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KK KKK KKKKKKK KKK KKKKKKK KKK 


* 


* 


* 


* 


* 


This routine is used to get the ID value that is * 
specified after the 'I' parameter. * 


* 


KKKKKKKK KK KK KKK KKKKKKKKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKK 


$0122 
SA45A 
$0380 
$0120 
$0380 
$0121 
#SFF 

$0122 
$0380 
SA4FB 


;Check if the ID has already been defined 
;And if it has, then generate a 'SYNTAX' 
;Get the first character of the ID 

;Save it to the DOS work area 

7;Get the second character of the ID 

;Save it to the DOS work area 

;Set the flag for 

;ID defined 

;Get the next character 

;And process it 


error 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKKKKKEK 


* 


* 


* 


* 


* 


This routine is used to get the starting address = 
that is specified after the 'P'. x 


* 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKK KKK KK KKKKK 


#502 
SA622 
SA605 


;Check if the parameter has been used yet 

;And if it has, then generate a 'SYNTAX' error 
;Get starting address into the Y register and 
;The accumulator 
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A4BC: 
A4BF: 
A4C2: 
A4C4; 
A4C6; 
A4C8; 


A4CA: 
A4CC: 
A4CF: 


A4D2: 
A4D5: 
A4D8:; 
A4DA:;: 
A4DC: 
A4DE;: 
A4E1: 
A4E4: 
A4E6: 
A4E9;: 
A4EC: 
A4EF: 
A4F0: 


A4F3: 


A4F5: 


A4F7: 
A4F9; 
A4FB: 
A4FE:; 
A500: 


STY 
STA 
LDA 
ORA 
STA 
BNE 


LDA 
JSR 
JSR 


STY 
STA 
LDA 
BNE 
LDA 
JSR 
STA 
LDY 
JSR 
STA 
STA 
INY 
CPrY 


BCC 


LDA 


ORA 
STA 
JSR 
BNE 
JMP 


$0117 
$0118 
#$02 
$81 
$81 
SA4FB 


;Save the LSB and the MSB 

;Of the starting address into the DOS work area 
;Set the proper bit 

sIn location $81 


;For this parameter (BIT 1) 
;And continue processing 


KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKEKKKEEKKKEKKEKKKEKKKEKKKKKEKEK 


* 


* 


* 


* 


* 


This routine is used to get the ending address that * 
is specified after the 'P’, * 


* 


KHKKKKKKKKKKKKKKKKKEKEKEKKKKKEKKKKEKEKKKKEKKKEKKKKKKKKKKKKKKEK 


#$04 
SA622 
SA605 


$0119 
SO11A 
#$04 

SA4C4 
#$01 

SA5B9 
$0111 
#$00 

$03B7 
SFFO3 


$12B7,Y 


$0111 


SA4E6 


#S$01 


$80 
$80 
$0386 
$A519 
SA3EA 


;Check if this parameter has been used yet. 

;And if it has, then generate a 'SYNTAX’ error 
;Get the end address into the Y register and the 
;Accumulator 

;Save the LSB and the MSB 

;Of the ending address into the DOS work area 
;Set the proper bit in location $81 

;For this parameter (Bit 2) 

;Set bit O to indicate this is the lst filename 
;Then process string-—get its address and length 
;Save the length of the filename 

;Zero the index pointer 

;And copy filename from the temporary strings in 
;RAM BANK 1 into SAVRAM in RAM 

;BANK 0 

;Increment the index pointer, see if it has 
;Copied string from temporary string to SAVRAM 
;By comparing index pointer to string length 
s;And if it has not, then continue transferring 
;The string 

;Get bit to represent that the lst filename has 
;Been specified 

;Set the proper bit for the parameter 

;Save it 

;Get next character after the previous parameter 
;If have more parameters to process, then branch 
;If not, jump back to the Main Loop 
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kK KKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKK KKK KK KKKKKK KKK KK KKK 


* * 
* This routine is used to process the parameter that * 
* is specified after the 'ON'. If 'ON' is not found, * 
* then the routine branches to check for a 'TO’. * 
* * 
* * 


KKK KKKKKKKKKKKKKKKKKKKKKKkKkKKkKkKKkKKKKKkKKKk kkk kkkk kk kkk kkk 


A503: CMP #$91 ;Is it the token for 'ON'? 

A505: BNE £SASOA ;No, then branch 

A507: JMP $A437 ;Yes, then process the parameter after '‘'ON' 
KKEKKKKKKKKKKKKKEKKKKEKEKKKKEKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 
* * 
* This routine checks for the parameter 'TO' and * 
* generates a 'SYNTAX' error if it is not found. * 
* This routine then processes the parameters that are * 
* specified after the 'TO'. is 
* * 
KKKKKKKKKKKKEKEKKKKKKKKKEKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 

A50A: CMP #5A4 ;Is it the token for 'TO'? 

A50C: BEQ  $A510 ;Yes, then process the parameter after the 'TO' 

A5SOE: BNE SA57D ;If not, then generate a 'SYNTAX' error 

A510: JSR $0380 ;Get the next character 

A513: CMP #$50 fis it a, Pte 

A515: BNE $A526 ;If it is not, then branch 

A517: BEQ SA4CA ;If it is, then process the address 

A519: CMP #$2C sjIs the character a comma? 

AS51B: BNE $A503 sIf it is not, then branch 

A51D: JSR $0380 ;If it is, then get the next character 

A520: IMP SA3F8 ;And continue processing 
KKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKRKKKKKKKKKKKKKK 
* 
* This routine processes the values for the filenames * 
* in quotes or parentheses and the values that are , 
* specified after the parameters 'D', 'U', and 'ON'. is 
* * 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 

A523: JSR $0380 ;Get the next character 

A526: CMP #5944 ;Is it a 'D' for drive number? 

A528: BEQ £SA53A ;Yes, then branch to process it 

A52A: CMP #9$91 ;Is it the token for 'ON'? 

A52C: BEQ SA54D ;Yes, then branch to process it 

A52E: CMP #$55 sIs it a 'U' for device number? 
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A530: 
A532: 
A534: 
A536: 
A538; 


A53A;: 
A53C; 
A53F; 
A542; 
A5443 


A546: 
A5493 
AS 4B; 
A54D: 
A550; 


A553: 
A556: 


A558: 
A55A:3 


A55D: 
A560; 
A563: 
A566: 
A568: 
A56A: 
AS56C: 
A5S6F: 
A571: 
AS7T35 
A575; 
A577: 
A5793 
A57B: 


A57D: 


BEQ 
CMP 
BEQ 
CMP 
BEQ 


LDA 
JSR 
JSR 
CPX 
BCS 


STX 
LDA 
BNE 
JSR 
JMP 


$A553 
#522 
$A558 
#$28 
SA558 


#$20 
SA61D 
SA5F2 
#502 
SA57F 


$0114 
#520 

SA568 
SA582 
SA568 


;Yes, then branch to process it 

;Is it a quote? 

;Yes, then branch to get the second filename 
;Is it an opening parenthesis? 

;Yes, then branch to get the string that is 
;Assigned to the variable 

;Check if the parameter has been used yet 
;And if it has, then generate a 'SYNTAX' error 
;Get the drive number into the X register 
;If the drive number 

;Is greater than one, then generate an 

,; "ILLEGAL QUNATITY' error 

;Save the drive number to the DOS work area 
;And get the proper bit in Location $80 

;For this parameter (Bit 5) 

;Process the parameter after 'ON' 

;And set the proper bit in Location $80 


KKKKKKK KKK KKK KKK KK KKK KKK KEE KEKE KEKKKKKKK KKK KKKKK 


* 


* 


* 


* 


* 


This routine is used to get the second device * 
number and use it as the current device number. * 


* 


KKEKKKKKKEKKEKKKEKK KEKE KKK KKKKKKEKKKKKEKKKKKKKKKKKKKKRKKK 


JSR 
BNE 


LDA 
JSR 


STA 
STX 
STY 
LDA 
ORA 
STA 
JSR 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 


BNE 


SA58D 
SA568 


#$02 
SA5B9 


$0113 
$0115 
$0116 
#$02 
$80 
$80 
$0386 
$A500 
#',! 
$A523 
#$91 
SA54D 
#'U! 
$A553 


SASBE 


;Process the device number 

;And set the proper bit in Location $80 for this 
;Parameter 

;Set bit one to indicate this is the second 
;Filename, then process the string and get its 
;Address and length 

;Save the length of the second filename 

s;And save the address of the second filename 
;Which is in RAM BANK 1 

;Set bit one to indicate the second filename 
;Has been specified in PARSTX 


;Get the 1st character after closing quote mark 
s;If not followed by another parameter, branch 
;If the character after the closing quote is a 
;Comma, then branch to process next parameter 
;If not a comma, then is it the token for 'ON'? 
;If so, then branch to process it 

;Check to see if it is the flag to designate a 
;New device number and if it is, then 

;Branch to process it 

;If it is not, then generate a 'SYNTAX' error 
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A5S7TF: 


A582; 
A585; 
A587; 
A589: 
A58B: 
A58D: 
A590; 
A592: 


A594: 
A596: 


A5983 
A59B: 
A59D: 


A59E: 
A5A0: 
A5A3: 
ASA6: 
ASA8; 
A5AA: 
ASAD: 


JMP 


JSR 
CMP 
BEQ 
CMP 
BNE 
JSR 
CPX 
BCS 


CPX 
BCC 


STX 
LDA 
RTS 


C-128 BASIC 7.0 Internals 


KKKKKKKKKKKKKKKKKKKKKKKK KK KKKKKKKKKKKKK KK KK KKK KKK KKK KKK KK 


* 


* 


* 


"ILLEGAL QUANTITY' 


* 


error generator * 
* 


KHKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KK 


$7D28 


;Generate an ‘ILLEGAL QUANTITY' error message 


KKKKKKKKKK KKK KKK KK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KK KK 


* 
* 
* 
* 
* 
* 
* 


This routine is used to process the parameters that 


are specified after the token for 'ON'. 
two parameters that can be used after the 
are 'B' 


$0380 
#$42 
SA59E 
#$55 
SA5B6 
SA5F2 
#$1F 
SA5EA 


#504 
SA5EA 


$011C 
#$08 


* 

* 

The only a 
‘ON! * 
* 

* 

* 


ry? e 


KKK KK KKK KKK KK KKK KKK KKK KKKKKKKKKKKKKKKKKK KKK KKK KKKKKK 


;Get the next character in the command 

sIs it a 'B' for BANK number? 

;Yes, then branch 

s;Is it a 'U' for device number? 

sIf not, then generate a 'SYNTAX' error 

;Get the device # specified into the X register 
;If the device number 

;Is greater than 30, then generate an 

, "ILLEGAL DEVICE NUMBER' 
;If the device number 
sis less than 4, then generate an 

; "ILLEGAL DEVICE NUMBER' error 

;Save the device number to the DOS work area 
;Value to set bit 3 of Location $80 to 
;Designate that a device number was specified 


error 


KKK IK KKH KKK KK KK KKK KKK KKK KKK KKK KK KKKKKKKKKKKKKKKKKKKKKKKKK 


* * 
* This routine is used to process the BANK number * 
* that is specified after the 'B' parameter. * 
* * 


KKKKHK KK KKK KK KKK KKK KKH KKK KKK KKK KKKKKKKKKKKKKKKKKEKKKKKKKEKK 


LDA #$01 ;Check if this parameter has been used yet 

JSR SA622 sAnd if it has, then generate a 'SYNTAX' error 
JSR SA5F2 ;Get the BANK number into the X register 

CPX #$10 ;If the BANK is greater than 15, 

BCS SAS7F ;Then generate an ‘ILLEGAL QUANTITY' error 

STX $011F ;Save it in the DOS work area 

LDA #501 ;And set the proper bit (Bit 1) 
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ASAF: ORA $81 ;In Location $81 
A5B1: STA $81 ;For this parameter 
A5B3: LDA #500 ;Set the zero flag 
A5B5: RTS ;And exit the routine 


KKK KKK KI KKKKKKKKEKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKRKK KKK KKK K 
* * 
* Another 'SYNTAX' error generator * 


* * 


ka KK KK KKKKKKKKKKKKK KKK KK KKKKKKKKKKKKKKKKKKKKKRK KKK KK KK KKK 


A5B6: JMP $796C ;Generate a 'SYNTAX' error 


kkk Kk KKK KKK KK KKKKKKKKKKKK KKK KKK KKK KKKKk KKK KK KKK KK KK KK KKK 


Syntax for Save with Replace 
Option syntax: DSAVE "@Filename" 


This routine is used to 'PARSE' the filename 

for the DOS routine. It will first check the 
accumulator to see which filename it is about to 
parse ( $01 = filename 1 and $02 = filename 2). 

Next it will ensure that the filename has not 
already been parsed. If it has already been 

parsed, then a 'SYNTAX' error will occur. Next, 

the routine will check to see if the user has used 
the '@' symbol which will indicate to the disk drive 
a save with replace function is being requested. 

If a save with replace has been specified, bit 7 

of location $80 will be set and the starting address 
of the string will be incremented by one to remove 
the '@' symbol from the filename. This is to enable 
the individual routines to see if a save with 
replace is allowed. If it is allowed, then the 
individual routine will prefix the filename with 
'@(drive number):'. If it is not allowed, 

(say with the DLOAD command) a 'SYNTAX' error will 
be generated. Note: If you enter 

DSAVE "@0:Filename 1", the C-128 operating system 
will send the following filename to the disk drive: 
"0:O0:filename 1". This bug is because a check is 
not performed on the "0:" the user inputted. 
Therefore, ensure you use the new command syntaxes 
correctly. When this routine exits, the 


+ ee ek OF FF OF OF OF FF FF FH OF OF OF HF OF OF F OF H OF F HF HF F 
a a a ee i as 
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ASBO: 


A5BC: 


A5BF: 


A5CO: 


A5C2; 
A5C4: 
A5C7: 
A5C9; 
ASCB: 


A5CD: 
A5DO: 
A5D2: 
A5D4: 
A5D6: 
A5D7: 
A5D9: 


A5DB: 


A5DD: 
A5DE: 


A5E0: 
A5E2: 


JSR 


JSR 


TAX 


BEQ 


LDY 
JSR 
CMP 
BNE 
LDA 


JSR 
LDA 
ORA 
STA 
DEX 
INC 
BNE 


INC 


TXA 
CMP 


BCS 
LDX 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


X and Y registers, and locations $24, 


$25 will 


contain the address of the string in RAM BANK 1 and 
the accumulator will contain the length of the 


string. 


NOTE: 


The 
not 
the 
the 
the 
the 


* 
* 
* 
* 
* 
use of the save with replace option is * 
recommended due to software problems with * 
Commodore disk drives. Instead of using * 
save with replace option, first scratch * 
old version of the file and then save * 
new version to disk. * 

* 

* 


KARR KKK KKK KKK KKK KKK KKK KKK KKK KK KK KK KKK KKK KKEKKEKKKK KK KK KKK K 


SA61D 


$877B 


SA5E7 
#$00 
$03B7 
#'@! 
SASDD 
#$80 
SA61D 
$80 


#$80 
$80 


$24 
SA5DD 


$25 


#171 


SASED 
$24 


;See if the filename in the accumulator has been 
;Specified. If so, generate a 'SYNTAX' error 

;lf filename has not been specified yet, then 
;Place address of the string in RAM BANK 1 and 
;In locations $24, $25, and the string's length 
sin the accumulator 

;Then save the length of string in the 
;Accumulator to the X register 

;Ilf the filename length is zero, then generate a 
; "FILENAME MISSING’ error 

;Zero the index register 

;And get the first character of the filename 

;To check if a save with replace is being 
;Attempted and if not, then branch 

;Check bit 7 in $80 (PARSTX) to see if a 

;Save with replace 

;Has already been attempted and if so, then 
;Generate a 'SYNTAX!' error 

;Since save with replace has not been attempted 
;Before 

;Set bit 7 to indicate that it is being 
;Attempted now 

;Subtract 1 from length of the string, then add 
;One to the address of the string in RAM BANK 1 
;This is done to 'Remove' user's '@' symbol from 
;The filename 


;So the system can prefix '@ (drive number):' to 
;The filename 

;Move the length of filename into accumulator 
s;And ensure the length of the filename is not 
;Over 16 characters 

;If it is, then generate 'STRING TOO LONG' error 


;Exit routine with the length of the filename 
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A5E6: 


AS5SE7:; 
A5E9; 
ASEA; 
A5EC: 
AS5SED: 
A5EF; 


AS5SF2: 
A5FS5: 


ASF7: 
A5F9: 
ASFC: 
ASFF: 


A602: 


LDY 
RTS 


$25 
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;In accumulator and address of the string which 
;Is in RAM BANK 1 in the X and Y registers 


KKEKKKEKKKKEKKKKKKEKKEKKKKKKEKEKKKEKKKEKKREKKKKKKKKKKKKKKKKKKKKKK 


* 
* 
* 
* 
* 
* 
* 
* 


LDX #8 
.BYTE $2C 
LDX #9 
~.BYTE $2C 
LDX #23 
JMP S4D3C 


JSR 
BEQ 


BCC 
JSR 
JSR 
JMP 


JMP 


Error Generator 


;Error number 
;Mask to skip 
;Error number 
;Mask to skip 
;Error number 
;Generate the 


Enter at: A5E7 for 'MISSING FILENAME' error 
A5EA for ‘ILLEGAL DRIVE NUMBER! error 
A5ED for 'STRING TOO LONG' error 


KKEKKKKKKKKEKKKKKKEKKKKKKKKKKKKKEKKEKKKKKKKKEKKKKKEKKKKKKKK 


for 
the 
for 
the 
for 


* 
* 
* 
* 
* 
* 
* 
* 


"MISSING FILENAME! error 
next two instructions 
'TLLEGAL DRIVE NUMBER' error 
next instruction 

"STRING TOO LONG’ error 


error message 


KHKKKKKKKEKKKKKKKKKKKEKEKKKKKEKKKKKEKEKKKEKKEKKKKKKKKKKKKKKKK 


* 

* This routine is used to get the eight bit numeric 
* value that is specified after the 'B', 'D', 'U', 
* 

* 

* 


a 


and 'L' parameters. 


t+ + + € 


kkkkkkk kkk kkkkk kkk kkk kkk kkk kkk kkk kkk kkk kkk kek kk kkk kk kk kk 


$0380 
SA5B6 


SA602 
$7959 
S87F4 
$7956 


;Get the first character after the parameter 
;If it is a zero or colon, then generate a 

; "SYNTAX' error | 
;If it is not a variable, then branch 

;Check for an opening parenthesis 

;Get value of the variable into the X register 
;Check for a closing parenthesis and exit 


KEKKKKKKKKEKKKKEKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKK 


This routine is used to convert the eight bit ASCII 
value that is specified after the 'B', 'D', ‘'U', 


into the X register. 


* 
* 
* 
* and 'L' 
* 
* 
* 


* 

* 

* 

parameters to hex and then store the value * 
* 

* 

* 


KKEKKKKKKEKKEKKEKKKKKEKEKKEKKKKKKEKKEKKKKKKKKKKKKKKKKKKKKKEK 


S87F4 


;Get the numeric value into the X register 
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KAEKKKKKKKK KKK KKK KKKKKEKKKKKEKKKKKKKKKKKKKKKK KR KKKKKK KKK KK KKK 


* * 
* This routine is used to get the sixteen bit numeric * 
* address that is specified after the 'D' parameter * 
* into the Y register and the accumulator (LSB,MSB). * 
* * 
* * 


KKK KKK KKK KKK KKK KKK KKK KKK KKKKHKKKKKKEKKKKKKKK KKK KK KKK KKKK 


A605: JSR $0380 ;Get the first character after the parameter 
A608: BEQ SASB6 ;If it is a zero or a colon, then generate 
7A 'SYNTAX' error 
A60A: BCC SA61A ;If it is not a variable, then branch 
A60C: JSR $7959 ;Check for an opening parenthesis 
A60F: JSR $8812 ;Put value of variable into locations $16,$17 
A612: JSR $7956 ;Check for a closing parenthesis 
A615: LDY $16 ;Get the LSB 
A617: LDA $17 ;And the MSB of the address 
A619: RTS ;And exit 


KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKEKKKKKKKKKKK 


* * 
* This routine is used to get the sixteen bit ASCII * 
* address that is specified after the 'P' parameter * 
* into the Y register and the accumulator (LSB,MSB). - 
* * 
* * 


KAKA KK HAA KKK KKK KKEKAKKKKKEKKEKKKEEKKKKEKKEKKKKKKKEKKKK KK KKK 


A61A: JMP $8812 ;Get the address into the Y register and the 
;Accumulator 


KHKKKAKKKKKK KKK KKKKKKKHKKKEKKKK KKK KEKKEKEEKKKKKKKKKKKKKEKKKKEK 


* 
* This routine is used to check if a parameter has 

* been used yet. Enter with the value of the bit you 
* wish to check in the accumulator. If the parameter 
* has already been used, a 'SYNTAX' error will be 

* generated. 

* 

* 


+ + + + € F&F F 


KKK KK KK KKK KK KKK KKK KKK KKK KKK KEKE KKK KEKKEKKEKKKEKKKKEKKKKKKK 


A61D: AND $80 ;Mask specified bit 

A61F: BNE SASB6 ;If the parameter has been used, then generate 
;A 'SYNTAX' error 

A621: RTS ;Else, exit the routine 
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KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKEKK 


* * 
* This routine operates the same as the routine at * 
* $A61D except location $81 is checked instead. * 


* * 


KKKKKKKKKK KKK KKK KKK KKEKKKKEKKKKEKKKKKKKKKKKKKKKKKKKKKKK 


A622: AND $81 ;Mask the proper bit 

A624: BNE SASB6 ;Ilf the parameter has been used, then generate 
,;A "SYNTAX! error 

A626: RTS ;Else, exit the routine 


KKKKKKKKKKKKKKKKKKKKKEKKKKEKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKK 


* * 
* This is the command table of the characters and 
* control values to generate the appropriate disk * 
* command for each of the BASIC DOS commands. = 
* x 
* The following is a table of the control values in * 
* the command table and their meanings. x 
* * 
* CONTROL VALUE MEANING = 
Fe inci ce esi oe iiti—“‘“‘élé*s*C*‘C™ el Sec le c ee c * 
* DO -- Place the two character ID in the command = 
* buffer bs 
* Dl -- Place the first drive number in the command ‘a 
* buffer ms 
* D2 -- Place the second drive number in the command * 
* buffer - 
* EO -- Place the read/write character in the command * 
m buffer . 
* El -- Place the file type (P,S,L) in the command * 
7 buffer * 
* E2 -- Place the record number in the command * 
“ buffer ~ 
* FO -- Place the save and replace character '@' * 
* in the command buffer * 
* Fl -- Place the first filename in the command * 
* buffer * 
* F2 -- Place the second filename in the command * 
. buffer * 
* C2 -- Place the channel number in the command * 
= buffer * 
* * 
KKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKK KKK KK KKKK KKK KKK KKK 
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KRAKKKKKKKKKKKKKKEKK KKK KKK KKKKKKK KK KKKKKKKKKKKKKK KKK KKK KR KKK 


* * 
* DCLEAR * 
* * 
* I (Drive number) * 
* * 
KK KK KKK IKK KKK KKH KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK 


A627: .BYTE $49,SD1 


KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKKKKKEKKKEKKKKKK KKK KKK KK KKK 


DIRECTORY 


S$ (Drive number) : (wildcard) 


+ &€ &€ & 


* 
* 
* 
* 
* 
KH KKK KK KKK KKK KKK KKK KKK KKK KKK KKH KKK KK KKKKKHKKEKKKKKKKK KK KKK 


A629: .BYTE $24,5D1 
A62B: .BYTE $3A,5F1 


FO KIT IO II IORI IOI IO IOI IO IO KIO TO IIR KR IO IO KR Ok IK 
DOPEN, DSAVE, DLOAD, DVERIFY, BSAVE, BLOAD 


* * 
* * 
* * 
* '@' (Drive number): (Filename), (Filetype), (L or W) * 
* * 
* * 
* * 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KE KKEKKKKKKKKKKKKKKKKEK 


A62D: .BYTE SFO,S$D1 
A62F: .BYTE $3A,$F1 
A631: .BYTE $2C,S$E1 
A633: .BYTE $2C, SEO 


KKEKKKKKKKEKKEKKKKKEKKKKKEKKKEKKKKEKKKEKKKKKEKKEKKKKKKKKKKKKKKKKKK 


* 
* CONCAT * 
* * 
* C (Drive number): (First Filename) = (Drive * 
* number): (First Filename), (Drive number): * 
* (Second Filename) * 
* * 
KH KKK KK KKK KKK KKK KKK KKH HK KKK KKK KKK KK KKK KKEKKKRKKKKEKKKKKEEK 


A635: .BYTE $43,S$D2 
A637: .BYTE $3A,$F2 
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A639: .BYTE $3D,$D2 
A63B: .BYTE $3A,$F2 
A63D: .BYTE $2C,S5D1 


kkkkkkkkkkkkkkkkkkkkkkKekeK KKK KK KK KKK KKKKKKKKKKKKKKKKKKKK 


* * 
* APPEND * 
* * 
* (Drive number): (Filename), A * 
* * 
KKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKKKKKKEKKKKKKEKKKKKKKKKKKEK 


A63E: .BYTE SD1 
A63F: .BYTE $3A,$F1 
A641: BYTE $2C,$41 


KKKKKKKKKKKKKKEKKKKKKKKKKKEEKKEEKKKEEKKKKEKKKKKKKKKKKEKKKK 


* 

* HEADER * 
* * 
* N (Drive number): (Disk name), (ID) * 
* * 
KKekkkkKkkkKk KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKRKKRKKKKKRKKRKEK 


A643: .BYTE $4E,S$D1 
A645: .BYTE $3A,S$F1 
A647: .BYTE $2C,S$D0 


KkkkkkkkkkkkkkkkkekekekekkkkkkkkKKkkkkekkKekekeKRK KKK KKRKRKKKKKKKKKRKEK 


COLLECT 


V(Drive number) 


t + + + 


* 
* 
* 
* 
* 
KKKKKKKKKKKKKKKKEKKKKKKKKKEKKEKEKKKKKKKKEKKKKKKKKKKKKKKKKKK 


A649: .BYTE $56,$D1 


KKKKKKKKKKKKKKKKKKEKKEKKKKEKEKKEKKKKKKEKKKKEKKKKKKKKKKKKKKKEK 


* * 
* BACKUP * 
* * 
* D(Second Drive number) = (First Drive number) * 


kkekkkkkkkkekkkkekkkkkkkkKKRKKKKKKKKKRKKKKKKKKKKKKKRKKKRK KK KKK K 


A64B: .BYTE $44,$D2 
A64D: .BYTE $3D,$D1 
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KKEKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK 


COPY 


* 
* * 
* * 
* C(Second Drive number):(Second Filename) = * 
* (First Drive number) :(First Filename) * 
* * 
* * 


KHKKKKKKKKKKKEKKKKKEKKKKKEKKEKKEKKKKKKKEKKKKKKKKKEKKKKKKKKEKK 


A64F: .BYTE $43,$D2 
A651: .BYTE $3A,5F2 
A653: .BYTE $3D,$D1 
A655: .BYTE $3A,S$F1 


KKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


* * 
* RENAME * 
* * 
* R(Drive number) :(Second Filename) = (Drive * 
* number): (First Filename) * 
* * 
KKekKkKKKKKKKKKKKKKK KK KK KKK KK KKK KKK KKK KKKKKK KKK KKK KK 


A657: .BYTE $52,$D1 
A659: .BYTE $3A,5$F2 
A65B: .BYTE $3D,$D1 
A65D: .BYTE $3A,5F1 


COO kok kk kkk kok kk kok tok kk kok kk kk kk kk kk kK Rk Ik 
SCRATCH 


* 
* 
* 
= S(Drive number) : (Filename) 
* 
* 


* 
* 
* 
* 
* 
KRAKKKKKKKKKKKKKKKKKKKKKKKEKKKEKKKKKKKKKKKKKKKKKKKKK KKK KKK KK 


A65F: .BYTE $53,$D1 
A661: .BYTE $3A,5F1 


KKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKRKKEK 


* 

* RECORD * 
* * 
* P(Channel number) (Record number) (File op) * 
* * 
kkekkkkkKkkk kkk Kkkk KKK KKK KK KK KK KKK KKKKKKRKKKKKKKKKKKK KKK KKK KK 
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A663: 
A665: 


A667: 
A66A3 
AG6B: 
A66C: 
A66F: 
A671: 
A672: 
A675; 
A677: 
A678; 
A6793 
A67A: 
A67B: 
A67E: 


A680: 
A682: 


~BYTE $50,$C2 
-BYTE $E2,$E0 


STA 
TYA 
PHA 
JSR 
LDX 
PLA 
DEC 
BMI 
TAY 
INY 
TYA 
PHA 
LDA 
BPL 


CMP 
BEQ 


KKK KKKEKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


characters in the command, and the Y register 
holding the offset minus one to the proper command 
in the command table. 


This routine is used to place the proper sequence * 
of characters in the buffer at $1100 for the DOS me 
commands. * 
* 

Ex: DCLEAR ~ 

* 

Buffer = I0 * 

* 

Enter with the accumulator holding the number of * 
* 

* 

* 

* 

* 


$0110 


SA80D 


#$00 


$0110 
SA6BF 


SA627, 


SA6B7 


KKKKKKEKKKKKKKKKKKKKEKKKKKEKKKKEKKKKKKKKKKKKRKKKKKKKKKKKKKK 


;Save the number of characters in the command 
;Save the index to the command table 

;Onto the stack 

;Deallocate DSS$ 


;Get back the index to the command table 
s;If we have finished getting 
;This command, then branch 
s;Increment the command table index 
*;By one and save 
s;It back onto 
;The stack 

Y ;Get a character of the command 
;If it is not a control character, 
;To place it in the command buffer 


then branch 


KKKKKEKKKKKKKKKKEKKEKKKEKKKEKEKKKEKKKKKEKKKKKKKKKKKKKEKKKKEKKKEK 


* 
* 
* 
* 
* 
* 


This routine is used to check the control value 


or sequence of characters in the command buffer. 


* 

* 

from the command and store the proper character = 
* 

* 

* 


#$C2 
SA6D6 


KkKkKKKKKKKKKKKKKKRKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KR KKK 


s;Is it the control value to get the channel #? 
;Yes, then branch to store the channel # into 
;Buffer 
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A684: 


A686: 
A688: 
A68A: 


A68C: 
A68E: 


A690: 
A692; 
A694; 
A696; 


A698: 
A69A: 


A69C: 
A69E: 
A6A0: 


A6A3:; 
A6A5: 
AGA? ; 
A6A9: 
A6AC: 
A6AE: 


A6B0; 
A6B2: 
A6B5: 
A6B7: 
A6BA;: 
AGBB: 


A6BD: 


A6BF: 
A6CO0; 
A6C1; 
A6C3; 
A6C5: 


A6C8: 
A6CB: 
A6CE: 
AéD1: 


CMP 


BEQ 
CMP 
BEQ 


CMP 
BEQ 


CMP 
BEQ 
CMP 
BEQ 


CMP 
BEQ 


CMP 
BNE 
LDA 


BNE 
CMP 
BNE 
LDA 
BPL 
CMP 


BNE 
LDA 
ORA 
STA 
INX 
BNE 


BEQ 


TXA 
PHA 
LDX 
LDY 
JSR 


LDA 
LDX 
LDY 
JSR 


#SDO 


SA6E5 
#SE2 
$A703 


#SE1 
SA6F1 


#SFO 
SA6DB 
#SF1 
SA70D 


#SF2 
SA6BD 


#SEO 
SA6A5 
SO11E 


SA6B7 
#$D1 
SAG6AE 
$0112 
SA6B5 
#$D2 


SA671 
$0114 
#$30 


$1100,X 


SA671 


$A723 


#$00 
#$11 
$925D 


$011B 
$011C 
$011D 
$9257 


;Is it the control value to get the second 
;character ID? 

;Yes, then branch to put the ID in the buffer 
;Is it the control value to get the record #? 
;Yes, then branch to store the record number 
;In the buffer 

;Is it the control value to get the file type? 
;Yes, check to see if an 'L' was used and if not 
;Then designate the type as sequential 

s;Is it the control value to get the '@' flag? 
;Yes, then place the '@' in the buffer 

;Is it the control value to get lst filename? 
;Yes, then branch to put the lst filename into 
;The buffer 

;Is it the control value to get 2nd filename? 
;Yes, then branch to put the 2nd filename 

;Into the buffer 

;Is it control value to get the file operation? 
;No, then branch 

;Get type of file operation 'W' or default to 
;Read 

;And store it in the buffer 

;Is it the control value to get the drive #? 
;No, then branch 

;Get the current drive number 

;Branch to store it in the command buffer 

;Is it the control value to get the second drive 
;Number? 

;No, then back to Loop 

;Get the drive number for the second filename 
;Create an ASCII digit 

;And save it to the command buffer 

;Move index to the next byte in command buffer 
;If index is not 0, then branch to get the next 
; Command 

;If index is 0, then branch to get the second 
;Filename 

;Save the index to the command buffer 

;Onto the stack 

;Set up the LSB 

;And the MSB of the command or name 

;Call BASIC SETNAM to set up the parameters for 
;Command or name 

;Get the current logical file number 

;Get the current device number 

;Get the current secondary address 

;Call BASIC SETLFS to set up the file parameters 
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A6D4: PLA ;Get the command buffer index back 
A6D5: RTS s;Exit the routine 


KKEKKEKEKKEKKEKKKKKKKEKKKKEKKKKKKKKKKKKKEKKKKKKKEKKKKKKKKKKKKKKKKK 


* * 
* This routine gets the channel number for the RECORD * 
* command and branches to store it in the command = 
* buffer. ~ 
* * 
* * 


kakkkkkKkKekKkkkKekKKKkkkKkKeKkKKKKKk KKK KKKKKKKKKKKKKKKKKKKKKKK 


A6D6: LDA $11ED ;Get the channel number for the RECORD command 
A6D9: BNE SA6B7 ;And branch back to Loop 


KEKKKKKKKKKKKKKKKKEKEKKEKKKKKKEKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKEK 


* * 
* This routine checks if the save with replace flag * 
* '@' was used in the filename and if so, the routine * 
* then stores an '@' in the command buffer. = 
* * 
Kk KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKRKKKKRKKRKKK 

A6DB: BIT $80 ;Check if the save and replace flag '@' was used 

A6DD: BMI SA6E1 ;And if so, then branch 

A6DF: BPL SA671 ;If not, then continue with Loop 

A6E1: LDA #$40 ;Get the save and replace flag '@' 

A6E3: BNE SA6B7 ;And branch to include it in the command 


KEKKKKKKKKKKKKKKKKEKKKEKEKEKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKK 


* * 
* This routine stores the two character ID for the - 
* HEADER command into the command buffer. * 
* * 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


A6E5: LDA $0120 ;Get the first character of the ID 

A6GE8: STA $1100,X ;Store it in the command buffer 

A6EB: INX Move to the next byte in the buffer 

A6EC: LDA $0121 ;Get the second character of the ID 

A6EF: BNE SA6B7 ;And branch to store it in the command buffer 
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A6F1: 
A6F4: 
A6F6: 
A6F8: 


A6FA: 
A6FC: 
A6FF: 
A701: 


A703: 
A705: 
A7083 
A7OA: 
A7OB: 


A70OD;: 
A710: 
A712: 
A714; 
A717: 
A71A: 
A71B: 


LDA 
BEQ 
LDA 
BNE 


LDA 
STA 
LDA 
BNE 


LDA 
STA 
LDA 
INX 
BNE 


LDY 
BEQ 
LDY 
LDA 
STA 
INX 
INY 
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KKKKKKKKKKKKEKKKKEKKKKEKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKEK 


* 
* 
* 
* 
* 
* 
* 
* 


This routine checks location $011E to see if a file 
length was specified and if it was, then the 
routine stores an 'L' in the command buffer. If a 


designated as a sequential write file. 


* 

* 

* 

* 

a record length was not specified, then the file is * 
* 

* 

* 


SO11E 
SA6FA 
#S54C 

SA6B7 


#$53 
S011E 
#$57 
SA6B7 


KKEKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKEKKKKKKKKKKKKKKKKKKKKKKK 


;Check if a record length was specified 

;If not, then designate the file as sequential 
;If a record length was specified then place 
;An 'L' in the command buffer and continue 
;With the Loop 

;Store an 'S' in the DOS work area to 
;Designate the file as a sequential file 

;Get a 'W' to designate a write file 

;And branch to store it in the buffer 


KAKKKEKKKKKKEKKEKKEKKKKKEKKKKEKKKEKKKKKKKEKKKKKKKKKKKKKKKKKKKKK 


* 


* 


* 


* 


* 


This routine stores the sixteen bit record number * 
in LSB,MSB format to the command buffer. * 


* 


KKKKKKKKKKKEKEKKEKKKKKEEKEKEKKEKKKKKKKEKKEKKKKKKKKKKKKKKKKKKK 


$16 
$1100,X 
$17 


SA6B7 


;Get the LSB of the record number 

;Save it in the command buffer 

;Get the MSB of the record number 

;Move to the next byte of the command buffer 
s;And branch to store MSB in the command buffer 


KKKKKKKKKKEKEKKEKKKKEKKKEKEKKKEKKEKKKEKKKKKKKKKKKKKKKKKK KK KKK 


* 


* 


* 


* 


* 


This routine is used to transfer the first filename * 
from $12B7 to the command buffer at $1100. * 


* 


KkkKkKkKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


$0111 
SA745 
#$00 
$12B7,Y 
$1100,X 


;Get the length of the first filename 
;If it is zero, then branch 

;Zero an index 

;Transfer the 

;First filename 

;To the 

;Command buffer 
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A71C: CPY $0111 ;Continue until the entire filename 
A71F: BNE SA714 ;Has been transferred 
A721: BEQ SA7T46 ;Branch to continue with the Loop 


KKKKKKK KKK KKKKKKKK KK KK KKK KKK KKK KKK KKKKKKKKKKKKKKKRKKKRK KR KKK 
* * 
* This routine is used to transfer the second filename * 
* from RAM BANK 1 to the command buffer at $1100. * 


* * 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKR KKK 


A723: LDA $0115 ;Save the BANK 1 

A726: STA $24 ;Address of the second filename 

A728: LDA $0116 sInto $24, $25 

A72B: STA $25 

A72D: LDY $0113 ;Check the length of the second filename 
A730: BEQ SA745 ;And if it is zero, then branch 

A732: LDY #$00 ;Zero an index 

A734: JSR $03B7 ;Get a character of the second filename 
A737: STA SFFO3 ;Enable BANK 0 

A73A: STA $1100,xX s;And store the character in the command buffer 
A73D: INX ;Continue transferring 

A73E: INY ;The name 

A73F: CPY $0113 ;Until done 

A742: BNE SA734 

A744: .BYTE $24 ;Mask to skip the next instruction 

A745: DEX ;Move index to the last character 

A746: JMP SA671 > ;Continue with the Loop 


KHKEKKKKKKKKEKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKEKKKKKKKKKEK KKK 


* 
* This routine is used to ensure that no other 

* parameters but the filename, the device number, or 

* the drive number are used. If others are used, then 
* a 'SYNTAX' error is generated. The routine must be 
* entered with the value of location $80 in the 

* accumulator. 

* 

* 


+ + © ££ € € F F 


KAKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKRKKKKKKK KKK KKK KKKK KKK K 


A749: AND #SE6 ;Mask to test for illegal parameters 
A74B: BEQ SA750 ;If no illegal parameters were specified, branch 
A74D: JMP $796C ;Generate a 'SYNTAX' error 
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KKKKKKK KKK KKK KKK KK KKKKKKKKKKKKKKEKKKKKKKKKKKKKKKK KKK KKKKK 


CHKNAM 
CHeck for a fileNAMe after the command 


This routine checks if there is a filename after 
the command that was parsed and if a filename is 
not present, then the routine generates a 'SYNTAX' 
error. 


+ + +  F F F F HF HF 
+ + +  F F F F 


KkkKkKKKKKKKK KK KKK KKK KKK KK KKKKKKKKKKKKKKKKKKKKKKK KK KK KK KKK 


A750: LDA $80 ;Get type of parameters following the command 
A752: AND #$01 ;Mask out the bit for the filename 

A754: CMP #$01 ;If a filename was not specified after command, 
A756: BNE SA74D ;Then branch to generate a 'SYNTAX' error 

A758: LDA $80 ;Get the types of parameters in the accumulator 
A75A: RTS ;And exit 


kKaekkkkkkkkKkkkkkkkKkeKkkkKkKkKK KKK KKK KKK KKKK KKK KKKKK KK KK KK KK KKK 


This routine ensures that the only parameters that 
are specified after the command are the device 
number or the drive number. The routine must be 
entered with the value of location $80 in the 
accumulator. If any other parameters are specified, 
a 'SYNTAX' error is generated. 


+ + © + © © H F 
+ + €£ € + € HF F 


kKkeKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKKEKKKKKKKKKKKKKKKKKKEKK 


A75B: AND #SE7 ;Ensure that only the drive # or device # is 
; Specified 

A75D: BNE $A74D ;If other parameters are specified, generate 
s;A 'SYNTAX' error 

A75F;: RTS s;If no other parameters specified, then exit 


KaKKK KKK KKK KKKKKKKKKKKKEKKKKKKKKKKKKK KK KKK KK KKKK KKK KKK KKK K 


* 

* This routine is used to ensure that two filenames 

* are present after the command being processed. 

* If they are not, then a 'SYNTAX' error is generated. 
* This routine also ensures that a save and replace 

* '@', logical file number, or record length is not 

* present. 

* 

* 


+ + + € FF F F F 


KkkkKkKkK KKK KK KKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKKK KKK KKK K 
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A760: 


762: 
A7162: 


A764: 


A766: 
A768: 
A76A: 
A7T6C: 
A7T6E: 


A76F: 
A771: 
A773: 


A775: 
A777: 


AND 


BNE 
BNE 


LDA 


AND 
CMP 
BNE 
LDA 
RTS 


AND 
CMP 
BNE 
LDA 
RTS 


#S$C4 


SA74D 
S$A74D 


$80 


#%0011 
#$03 
SA74D 
$80 


Ensure that the parameters, save & replace '@', 
;Record length, or logical file number are not 
;Specified 

;If any of these are specified, then generate 
7A 'SYNTAX' error 

;Get the bit representation of the parameters 
;After the command 

;Mask bits for the first and second filename 
;If the two filenames are not present, 

;Then branch to generate a 'SYNTAX' error 

;Get the types of parameters 

;And exit 


KKKKEKKKKKKKKKKKKKEKKKKKKKKKKEKKKEKKEKKKKKKKEKKKKKKKKKKKKKKKKK 


This routine checks if a logical file number and 
a filename were specified after the command. If 
they are not specified after the command, then a 


entered with the value from location $80 in the 
accumulator. 


* 
* * 
* * 
* * 
* 'SYNTAX' error is generated. This routine is si 
* * 
* * 
* * 
* * 


KKEKKKKKKKKKEKKKKKKKKKKKEKKKKKKEKKEKKKKEKKEKEKKKKKKKKKKKKKKKKEKK 


#%00000101 


#S05 
$A74D 
$80 


;Mask the bits for filename, and logical file # 
;If a filename and a logical file # 

;Are not present, then generate a 'SYNTAX' error 
;Get the type of parameters 

;And exit 
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A778; 
ATTA: 
A77C;3 
ATTE: 


LDA 
BNE 
LDA 
STA 





KHKKKIKKK KKK KK KKK KKK KKK KKEKE KKK KEKEKEKKKKKKKKKKKKKKKKKKKKKKEK 


HANDLE DSS 


* 
* 
* 
This routine will read the current disk drive's * 
error channel (message) and will either assign * 
it to a new DSS or to the old DSS. If location $7A * 
is not equal to zero, then this routine will assign * 
the error message to the old DS$. However, if x 
location $7A contains a zero, this routine will 3 
create space for a new DSS and read in and assign = 
it to DSS. * 
* 
* 
* 
* 
* 
* 
* 


Note: To use this routine in machine language, 
place the address of where you wish the error 
message to be located in RAM BANK 1 in | 
locations $7B, $7C and JSR $A795. This 
routine will read in the error message and 
place a delimiter of zero after after the 
error message. 


* 
* 
Note: This routine does not actually close the * 
command channel (secondary address of S6F * 

or $60 + CMD address of SOF) down in the * 

disk drive but, it uses the method of * 
setting the carry flag and JSR CLOSE which * 

will close the I/O channel internally in * 

the C-128. This is done this way to enable ‘a 

you to leave any channels that are currently * 

open to remain opened. This is so because * 

when you close the command channel to the * 

disk drive, it will automatically close all * 

of its internal channels which would cause * 
various errors to occur. But, the errors * 

will not be caught by DSS$ because, as far as * 

the disk drive is concerned, everything is * 
okay. However, if you check ST, it will * 
either equal $40 or $42 which indicates the * 
drive produced an ‘end of file’ or an * 

'End of file' and a 'Time out read' error. * 

* 

* 


+ + + £ F FF F FF OF K€ F F OF OF HF Fi F OF OF FF OF OF F F F F F F FF F F F F FE F F F F HF F 


KH KKKHKHKKHKKKKHKKKKKKKEKKEKKKEEKKKKEKKKKKKKKKK KKK KKK KR KKK KK KKKK 


S7A ;If DS$ has already been allocated, 
$SA795 ;Then branch past obtaining a new DSS 
#528 ;Place the length to be allocated for 
S7A ;DS$ in $7A, then allocate the space for 
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A780: 
A783: 
A785: 
A7873 
A789; 
A78C:; 
A7T8E: 
A790: 
A791; 
A793: 
A795; 
A798; 
A79A;: 
A19C; 
Al9F3 
A7TA1: 


A7A3: 
A7A6: 
A7A8: 
A7AB: 


A7AE: 
A7BO: 
A7B3:3 


A7B5: 


A7B7: 
A7B8: 
A7BB: 
A7BE: 
A7CO: 


A7C2: 


A71C4: 
A71C6; 
A7C8; 
ATCA: 
A7CC: 
A7TCF: 
A7D1:; 
A7D2: 


JSR 
STX 
STY 
LDY 
STA 
LDA 
STA 
INY 
LDA 
STA 
LDX 
BNE 
LDX 
STX 
LDA 
LDY 


JSR 
LDA 
JSR 
JSR 


LDX 
JSR 
BCS 


LDY 


INY 
JSR 
STA 
CMP 
BEQ 


STA 


CPY 
BCC 
LDA 
STA 
JSR 
LDA 
SEC 
JMP 


$9299 
$7B 
$7C 
#$28 
SFFO4 
#S7A 


($7B),Y 


#500 


($7B),Y 


$011C 
SA79F 
#508 
$011C 
#500 
#S6F 


$9257 
#500 

$925D 
$90D8 


#500 
SFFC6 
SA7D5 


#SFF 


$9263 
SFFO4 
#S0D 

SA7C8 


($7B),Y 


#528 
SA7B7 
#$00 


($7B),Y 


$926F 
#$00 


$9275 


;DS$ + 2 bytes for the descriptor's address 
;Save the address of the space created 

;For DSS in $7B, $7C 

;Get the length of DSS 

;Enable Bank 15 with RAM BANK 1 enabled 

;Save the address of 

;DS$ variable descriptor 

;After the string 

;Which is always 

;Located at SOO7TA 

;Get the device # (unit number) to get DSS from 
s;And if not zero, then branch to process it 

;If device address was zero, make it the default 
;Address of eight 

;Then call SETCFS to set the logical file 
;Number to O and the device address that's in 
;The accumulator 

;And the secondary address of 15 

;Then set the length of the filename 

;TO zero 

;Then call OPEN to finish opening zero, 
;Accumulator, 15 

;Open an input channel to the logical 

;File number of zero and if an error occurs 
;During the opening process, then branch with 
;The error number in the accumulator 

;Get this value so the next instruction sets the 
;Index value to zero 

;Increment the index register 

;Get a character from the disk drive 

;Then Enable Bank 15 with RAM BANK 1 Enabled 
;And see if it is a carriage return denoting the 
sEnd of the error message. If it is a carriage 
;Return, then branch 

;If not a carriage return, then place the error 
;Message in DSS$'s address 

;Continue reading in DS$ until a carriage return 
;Or length of the string reaches 40 characters 
;Place a delimiter of zero 

;After DSS then 

;Close the input file down 

;Close the input channel down in the 

;C-128, but NOT in the disk drive to 

;Prevent the drive from closing other channels 
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A7D5: 
A7D6: 


ATD9;3 
A7DC: 
A7TDD: 
A7DE; 


A7E1: 
ATE3: 
ATES: 
ATE8: 
ATFS5S: 
ATF6: 
A7TF9: 
ATFC: 
ATFD: 
ATFF: 
A801; 
A804: 
A806; 
A807: 
A809; 


PHA 
JSR 


JSR 
PLA 
TAX 
JMP 


RKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKRKK KKK KKK KKK KK KK KKK 


* This routine will soft close the input channel and . 
* place a delimiter after DS$. The routine will then * 
* generate the error message. * 
* * 
* * 


KRKEKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKRKKKKKKKKKKK KKK KKK 


:Save the error number onto the stack 
SA7C8 ;Soft-close input channel,place delimiter 
;After DSS 
SA80D ;Deallocate DSS 


;Get the error number back off the stack 
;Place it in the xX register 
$4D3C ;Then jump to the error message handler 


KKKKKKEKKKKKKKKKKKKKKKKKKRKKKKKKK KKK KK KKK KK KK KKK KKKKKKKKKK 


* * 
* This routine checks to see if we are in the PROGRAM * 
* mode and if we are, then the question 'ARE YOU SURE' * 
* is not asked. Instead, the command is executed. id 
* * 
* * 


KKEEKKKKKKKKKEKKAEKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


BIT S7F ;Check if we are in the PROGRAM mode 

BMI SA80A ;If we are, then branch 

JSR $9281 _ ¢PRIMM, output the following text 

TXT ‘are you sure?' 

~-BYTE $00 ;Delimiter byte 

JSR $926F ;Reset system to the default I/O configuration 
JSR $9263 ;Input the first drive character 

PHA ;And save it onto the stack 

CMP #13 jIs it a carriage return? 

BEQ SA806 ;If it is, then exit 

JSR $9263 ;If it is not, then keep inputting characters 
BNE SA7FD ;Until a carriage return is processed 

PLA ;Get the first character back 

CMP #'y' ;Compare it to a 'Y' to condition the Z2 flag 
RTS ;And exit 
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A80A: LDA 
A80C: RTS 
A80D: TYA 
A80E: PHA 
A80F: LDA 
A811: BEQ 
A813: LDY 
A815: TYA 
A816: STA 
A819: STA 
A81B: INY 
A81C: LDA 
A81E: STA 
A820: LDA 
A822: STA 
A825: STA 
A827: PLA 
A828: TAY 
A829: RTS 
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KKEKKKKKKKKKKKKKEKKKEKKKKKKKKKKEKKKKEKEKKEKKKKKKKKKKKKKKKKKKKKEK 


* 
* 
* 
* 
* 
* 
* 
* 


If we are in the PROGRAM mode, then set the flag 
for the BEQ branch. This routine is used if the 


PROGRAM mode. So the comparison to 'Y' in the 
"ARE YOU SURE' question is always true. 


* 

* 

* 

SCRATCH, HEADER, or BACKUP commands are used in the * 
* 

* 

* 

* 


#0 


STA 
$A820 


#$28 
SFFO4 
($7B),¥ 
#SFF 
($7B) ,Y 


#500 


SFFO3 
S7A 


KKKKKKKKKKKKKHKKKK KEKE KEKE KKEKKEKKKKKEKKKKEKKKKKEKKKKKKKKKEK 


;Set the zero flag 

;And exit 

;Preserve the index register onto the 

;Stack 

;If DSS has not been updated 

;Since the last disk operation, then branch 

;To prevent the deallocation of the old DS$ 
;Place the # of characters to deallocate in the 
;Accumulator and the Y register 


;Enable Bank 15 with RAM BANK 1 Enabled 

;Place the # of characters to deallocate in the 
;Two bytes following string (Descriptor address) 
;So that the next string operation or garbage 
Collection will deallocate and use this address 
;Flag to indicate a disk operation occurred 
;Since the last time DSS$ was processed 

;Enable Bank 14 

;Set flag to get a new DSS from the disk drive 
;Get the Y register off of the stack 

;And restore it in the Y register 

;Exit the routine 


KKKKKKKKKEKEKEKKKKKKKEKKKEKEKKEKEKKEKKEKKEKKKEKKKKKKEKKKKKKK 


* 


* 


* 


* 


* 


This routine is used by the 'KEY' command to output * 
the word 'KEY' plus the key number. ° 


* 


KKKEKKKKKKKKKKKKKKKE KKK KEKE KKKKEKKEKKKKKKKKKEKKKKKKKKK 


A82A: .BYTE $00 


A82B: TXT 


' YEK' 


;Delimiter byte 
;Text for the KEY command 
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A830: 
A831: 
A832; 
A833: 
A835: 
A838: 
A839: 
A83A: 


A83B: 
A83D: 


A83E: 
A83F: 
A840; 
A842; 


A844; 


TAX 
TYA 
PHA 
LDA 
JSR 
PLA 
TAY 
RTS 


STA 
DEY 


TAX 
INX 
BNE 
STX 


RTS 


KKKKKKKKKKKKKKKKKKKKKK KK KK KKKKKK KKK KKK KKK KKK KKKKKKKKKKKKEK 


* 
* 
* 


* 


* 


This routine is used to output the ASCII value in * 
accumulator. The Y register is preserved. " 
* 


KKKKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KK KK KK KKK KKK K 


;Save the value to be outputted 
;Save the Y register 
;Onto the stack 
#500 ;Set the MSB of the value to zero 
$8E32 ;Output the value in X,A (LSB,MSB) in ASCII 
;Restore the Y register 


sAnd exit 


KRKKKKKKKKKKKKKKKKKKKKKK KKK KKKKKKKKKK KK KKK K KKK KK KK KKKKKKK 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


* 


This routine is used by the GOSUB and DO commands to * 
check if the line number specified on the pseudo stack* 
is too large. If the line number is too large, this * 
routine sets $7F to zero, which puts the system into * 
DIRECT mode and exits. This means that if somehow you * 
are able to slip a line number past the operating * 
system that is too large, this routine will stop your * 
BASIC program without displaying an error! = 

* 

* 


KkKkkekkkkkkKeKKK KKK KKK KK KKK KKK K KK KKK KK KK KKK KKK KRKK KKK KKK KKK 


$3C ;Save MSB of the line number 
;Decrement the index pointer by one to point 
;To the LSB of the line number 
;Move the MSB into the X register 
;Add one to it 

SA844 ;If it was not SFF then exit 

STF ;Place the zero into mode to stop the program 
;After this BASIC statement is executed 
;Exit this routine 


KIKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKEKKKKKKKK KKK K KKK KKK KKK KKK 


* 
* 
* 
* 
* 
* 
* 


BASIC BANK 15 


* 
* 
* 
This routine switches the computer to BANK 15. * 
The value in the accumulator is preserved. * 

* 

* 


KKK KKK AKA KKK KKK KKK KKK KKKKKKKKEKKKKEKKKKKKKKKKRKKKKKKKKKEKK 
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A845; 
A846: 
A848; 
A84B; 
A84C;: 


A84D: 
A850: 
A852: 
A853: 
A856: 
A858: 
A85B:; 
A85E; 
A85F:; 
A861: 
A863: 
A866; 
A869: 
AS 6B; 


A86E: 
A871; 
A873; 
A876; 
A877; 
A878; 
A879; 
A87C: 
A87D: 
A87F3 
A880; 
A881; 
A882: 
A885; 
A886: 
A887: 


A888: 
A88B: 
A88E:; 


PHA 

LDA #0 
STA SFFOO 
PLA 

RTS 


KkkKKKKKkKKKKKKK 


* 


* 


* 


KK KKKKKKKKKKKEK 


$12FD 
SA853 


$12FD 
#510 


$11D6,X 
$DO000,X 


SA858 
#$07 
$DO015 


$6CB3,Y 


SA8A3 


S$6DD9,¥Y 


$117E,X 


SA8A3 


S117F,X 


$1180,X 


#501 


SA9F4 


$1180,X 


SA9F4 


;Save the accumulator onto the stack 
;Set the memory configuration 

;To BASIC BANK 15 

;Restore the accumulator 

;And exit 


KkKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKK 
* 

BASIC IRQ ROUTINE * 

* 


kaekkkkkkkkkkkkkkkkkkkkkkkkkkkkkkKkkkkkekkkekk 


;If the BASIC IRQ 

;Is already in progress, 

;Then exit the routine 

;Block the BASIC IRQ 

;Copy. each of the eight sprites X and Y location 
; (Position) into their respective VIC Register 
;(8 sprites X 2 registers=16 bytes to be copied) 


;Check each one of the eight sprites 

;To see if they are Enabled (=1) and if 

;They are not, then 

;Branch to check the next sprite 

;If the sprite # that is in the Y register is 
;Enabled, then get the offset to its speed value 
;Get the speed value of the sprite 

s;If the speed is 0, then continue to next sprite 
;Save the speed value 

;Transfer the sprite number to the accumulator 
sMultiply it by two 

;Save the result in the Y register 

;Get the angle of movement divided by 90 


s;Subtract 1 from it 

s;Move the X index to the proper 

;Timer value 

;And the Y index to the proper sprite coordinate 
;Update the Y coordinate and timers 

;Restore the indexes 

;To point to the X 

;Coordinate of the sprite and its corresponding 
;Timer 

;Get the angle of movement divided by 90 

;And update the X coordinate and timers 

;Save the status register onto the stack 
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A88F: 
A890; 
A891; 
A892; 
A893; 
A895: 
A898; 
A8 9B: 
A89E;: 
A8Al1; 
A8A3: 
A8A4: 
A8A6: 
A8A9: 
A8AC: 
A8AE: 
A8BO: 
A8B1: 


A8B3: 
A8B4: 
A8B6; 
A8B7: 
A8BA: 
A8BD: 
A8CO: 
A8C2: 
A8C5; 


A8C8: 
A8CA: 
A8CC: 


A8CD: 


A8CE;: 


A8DO: 


A8D2:; 
A8D5: 
A8D6; 
A8D7:; 
A8D9: 
A8DA: 
A8DC; 


TYA 
LSR 
TAY 
PLP 
BCC 
LDA 
EOR 
STA 
DEC 
BNE 
DEY 
BPL 
LDA 
STA 
AND 
BEQ 
LSR 
LDY 


LSR 
BCC 
PHA 
LDA 
ORA 
STA 
LDA 
STA 
LDA 


CPY 
BEQ 
LSR 


LSR 
BCC 


LDA 


STA 
PLA 
DEY 
BPL 
LSR 
BCC 
LDA 


SA89E 
$11E6 


$6CB3,Y 


$11E6 


$117F,X 


SA876 


SA863 
$D019 
$D019 
#SOE 

SA8F4 


#$01 


SA8D6 


SDO1E,Y 
$11E7,Y 
$11E7,Y 


#500 


SDO1E,Y 


$127F 


#$00 
SA8CD 


SA8D5 


#SFF 


$1276,Y 


SA8B3 


SA8F4 
$D013 


;Move the sprite number to the accumulator 
;Divide it by 2 

;And move it back to the accumulator 

;Get the status register back 

;If sprite did not cross the seam, then branch 
;If the sprite crossed the seam, 

;Set the MSB bit of the sprite 

;To indicate that the sprite is on the seam 
;Decrement the speed factor by 1 

;Update coordinates until speed value equals 0 
;Move to the next sprite register 

*;Branch until all eight are done 

;Get the status of the VIC IRQ 

;Erase the register 

;Mask bits for light pen and sprite collision 
;If no IRQ triggered, then branch 

s;Shift all bits right one bit 

;Set index to the sprite to Background 
;Collision Register 

;Check for sprite to Background Collision 

;If none, then branch 

;Save the IRQ condition to the stack 

;Get the sprite to sprite collision register 
;Set bits for sprites involved in the last 
;Collision and save 

;Clear the appropriate 

;Sprite collision register 

;Get value of what type of interrupt check is 
;Requested 

;Was last register we read the sprite to sprite 
;Collision register? If so then shift only 1 bit 
;If entered here, shift the bit for sprite to 
;Background collision into the carry 

;If entered here, shift bit for sprite to sprite 
;Collision into the carry 

;If there was no collision, then branch to° 
;Continue to the next register 

;Store a SFF in the correct location to indicate 
3$1277 = Sprite to Background, $1276 = Sprite to 
;Sprite Collision 

;What type of interrupt took place 

;Get the VIC IRQ condition off of the stack 
;Move to the next sprite collision register 
;Loop until both collision registers are done 
;Check for a light pen interrupt 

sIf there is none, then branch 

;Save the light pen 
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A8DF; 
A8E2;: 
A8E5; 
A8E8: 
A8EB; 
A8ED: 
A8EF: 
A8F1: 
A8F4:; 
A8F6; 
A8F9:; 


A8SFB:; 
A8FE: 
A8FF: 
A902: 
A905: 
A907; 
A90A: 
A90C: 
A9OF: 


A911: 
A912: 
A913: 
A914: 
A917: 
A919; 
AQIA;: 


A91D: 
AQI1E: 
AQ1F;: 
A922: 
A923; 
A924: 
A926: 
A928: 
A92A: 
A92D: 
A92F: 
A930: 
A932: 
A935: 
A936; 
A939; 
A93C: 


STA 
LDA 
STA 
LDA 
AND 
BEQ 
LDA 
STA 
LDX 
LDA 
BMI 


LDA 
SEC 
SBC 
STA 
BCS 
LDA 
SBC 
STA 
BCS 


TXA 
LSR 
TAY 
LDA 
AND 
PHA 
LDA 


TAY 
PLA 
STA 
INX 
INX 
CPX 
BNE 
LDY 
LDA 
BPL 
DEY 
BPL 
JMP 
CLC 
LDA 
ADC 
STA 


$11E9 
$D014 
$11EA 
$127F 
#504 
SA8F4 
#SFF 
$1278 
#500 
$1224,X 
SA922 


$1223,X 


$1222 
$1223,X 
$A922 
$1224,X 
#500 
$1224,X 
SA922 


$1230,Y 
#SFE 


$7039,Y 


$D404,Y 


#506 
SA8F6 
#$02 
$1285,Y 
$A935 


SA92A 
SA9FO 


$129D,Y 
$1297,Y 
$129D,Y 


;X coordinate 

;And the 

;Y coordinate 

;Get the interrupt value 

;And see if light pen interrupt was requested 
;If not, then branch 

;Store a SFF in LPWT to 

;Indicate a light pen interrupt has occurred 
;Clear an index 

;Check if the voice is active (S$FF = inactive) 
;lf the voice is inactive, then branch to check 
;The next voice 

:;Get the timer value for the active voice 
;Subtract the current 

;Tempo rate from the timer value 

;And save it back 

;If timer has not counted down yet, then branch 
;If the timer has counted down, 

;Then subtract one from the voice flag 

;And save it back 

;If the flag was reset to inactive (SFF), do the 
;Next voice 

;Divide the index by 2 

;To get the voice number 

;And transfer it to the Y register as an index 
;Get the waveform for the selected voice 

;Drop the gate bit 

;And save the waveform onto the stack 

;Get the offset to the control register of the 
;Selected voice 

;Use the offset as an index 

;Get the waveform off the stack 

;And store it in the control register 
;Increment the index by 2 

;To get the next voice register 

;Have we done all 3 yet? 

;If not, then branch 

;Set an index to the sound time MSB for voice 3 
;Get the sound time MSB 

;Branch if in use 

;If not in use, then move to the next register 
;And continue 

;Exit IRQ 

;Clear the carry for addition 

;Add the LSB of the Frequency Sweep Step 

;To the sound frequency LSB 

;And save as the new frequency LSB 
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A93F: 
A942: 
A945: 
A948; 
A94B; 
A94C;: 
A94E;: 
A950; 


A952; 
A953: 
A956: 
A959: 
A95C3 
ASSF;: 
A961: 
A963: 
A965: 
A968; 
A96A: 
A96D: 
AQG6F:; 
A972: 
A975: 
A978; 
AQ7B: 
AQ7TE: 
A980; 
A983; 
A986; 
A988: 
A98A: 
A98D;: 
A990; 
A992: 
A994; 
A996; 
A998; 
A99B: 
A99D; 
A9AO:; 
A9A2;: 
A9AS: 
AQA8: 
AQSAB: 
A9AE: 
A9B1: 


LDA 
ADC 
STA 
LDA 
TAX 
AND 
BEQ 
BCC 


SEC 
LDA 
SBC 
LDA 
SBC 
BCS 
CPX 
BCC 
JSR 
LDA 
STA 
BNE 
LDA 
STA 
LDA 
STA 
JMP 
BCS 
LDA 
CMP 
BCC 
BNE 
LDA 
CMP 
BCC 
BEQ 
CPX 
BCC 
JSR 
LDA 
STA 
BNE 
LDA 
STA 
LDA 
STA 
LDX 
LDA 


$12A0,Y 
$129A,Y 
$12A0,Y 
$1294,Y 


#$01 
SA97E 
$A961 


$129D,Y 
$128E,Y 
$12A0,Y 
$1291,Y 
SA9AE 
#$02 
SA96F 
SA9DA 
#502 
$1294,Y 
SA9A2 
$1288,Y 


$129D,Y 


$128B,Y 
$12A0,Y 
SAQAE 
$SA994 
$12A0,Y 
$128B,Y 
SAQAE 
SA994 
$129D,Y 
$1288,Y 
SAQAE 
SAQAE 
#$02 
SA9A2 
SA9DA 
#$03 
$1294,Y 
SA96F 
$128E,Y 
$129D,Y 
$1291,Y 
$12A0,Y 
$7039,Y 
$129D,Y 


;Add the MSB of the Frequency Sweep Step 
;To the sound frequency MSB 

;And save as the new frequency MSB 

;Get the frequency sweep direction 

;Save it in the X register 

;Check if the sweep direction is down 

;If not, then branch 

s;If it is not down, then check if the sweep 
;Direction is up 

;Set the carry for subtraction 

;Check if the current 

;Sound frequency is 

;Less than or equal to the 

;Specified minimum frequency 

;If current frequency less than minimum, branch 
s;Is the direction of the frequency up? 

s;If less, then branch 

;Invert the sweep step value 

;Set the sweep direction 

;To 2 for oscillating 

;And set up frequency and update the counters 
;Set the sound 

;Frequency to the maximum 

;Value specified 


;And update the SID registers 

;Branch if sweep value is for oscillating sweep 
;Compare the current sound frequency MSB 
;To the sound frequency MAX MSB 

;If the current value is less, then branch 
;If it is not the same, then branch 
;Compare the current sound frequency LSB 
;To the sound frequency MAX MSB 

;If the current value is less 

;Or if the value is equal, then branch 

s;Is the sweep direction oscillating? 

;No, then branch 

s;Invert the sweep step value 

;Set the flag for an 

;Oscillating sweep value 

;And set up the sound registers 

;Get the minimum frequency sweep LSB 

;Save as the LSB of the sound's frequency 
;Get the minimum frequency sweep MSB 

;Save as the MSB of the sound's frequency 
;Get offset to the control register of the voice 
;Set up the current 
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A9B4; STA 
A9B7: LDA 
A9BA: STA 
A9BD: TYA 
A9SBE: TAX 
ASBF: LDA 
A9C2: BNE 
A9C4: DEC 
A9C7: DEC 
ASCA: LDA 
A9CD: BPL 
ASCF: LDA 
A9D1i: LDX 
A9D4: STA 
A9D7: JMP 


ASDA: LDA 
ASDD: EOR 
ASDF: CLC 
A9SEO: ADC 
A9E2: STA 
A9E5: LDA 
A9E8: EOR 
A9EA: ADC 
A9EC: STA 
A9YEF: RTS 


A9FO: DEC 
A9F3: RTS 


$D400,X ;Voice's frequency 
$12A0,Y ;In the SID chip 
$D401,X 


sTransfer the voice 
;Number to the X register 
$1282,X sIf the LSB of the sound timer 


SA9C7 s;Is not zero, then branch 

$1285,X ;Decrement the timer's MSB 

$1282,X ;And the timer's LSB 

$1285,X ;Check the timer's MSB value 

SA9D7 sAnd if no overflow has occurred, then continue 
;To the next register 

#$08 ;Value to turn off voice 

$7039,Y ;Get the offset to 

$D404,X ;Turn off the current voice 

SA92F ;Continue to the next register 


C-128 BASIC 7.0 Internals 


KKEKKKKKKKKKKEKKKKEKKKKKEKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKK 


* 


* 


* 


* 


This routine is used to invert the frequency sweep 


step value. Ex: from $2000 - $6000 


* 


* 


* 


* 


KKKKKKKKKKKKKKKKEKKEKKKKKKKEKKEKEKKKKKKKKKKKKKKKKKKKKKKKKEKK KKK 


$1297,Y ;Get the LSB of the step value 
#SFF sInvert it 

;Clear the carry for addition 
#501 ;Add one to the inverted LSB 
$1297,Y s;And save it back 
$129A,Y ;Get the MSB of the step value 
#SFF sInvert it 
#$00 ;And carry the flag to it 
$129A,Y ;And save it back 

;Exit 


KKKKKKKKKKKKKKKKKKKKKKKEKKKKEKKKKKKKRK KKK KKKKKKKKKKKRKKK KK KKK 


* 
* 
* 
* 
* 
* 
* 
* 


This routine is called to exit the BASIC IRQ by 
clearing the flag at $12FD which when set to 
anything but zero will block any IRQ call to the 


BASIC IRQ. This is an easy way to disable the BASIC 
IRQ routine. Just set $12FD to any value but zero. 


$12FD ;Clear the IRQ in progress flag 
;And exit . 
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A9QF4: 
A9FS; 
A9SF6: 
ASF9: 
AQFC;: 
AQFF: 
AAO2: 
AAOS: 
AAO8: 
AAO: 
AAOB: 
AAOC; 
AAOD: 
AA10: 
AA12: 
AA14: 
AA17: 
AA19:; 
AA1B; 
AA1E;: 


KHKKKKKKKKKKEKKKKKEKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKEKEK 


* 
This routine is used to update the sprite * 
coordinates. On entry, the accumulator holds the * 
angle of movement divided by 90. Ex: Angle = * 
180 degree, then the accuulator = 2. An increment * 
value is added to two sixteen bit count down timers * 
and if the timer overflows, i.e. flips from SFFFF to * 
$0000, the sprite coordinates are updated. The * 
X register must hold the offset to the timer * 
selected and the Y register must hold the current * 
sprite number (0-7). * 

* 

* 


+ + + £ + £€ &€ FF FE F HF F 


KEKKKKKKEKKEKEKKEKEKKEKKKKKKKKKKKKRKKKKKKKKKKKKKKKKKKKKKKKKKK 


;Save the angle of movement value onto the stack 
;Clear the carry for addition 


$1181,X ;Add the LSB of the increment value 

$1185,X ;To the timer value 

$1185,X s;And save it as the new timer LSB 

$1182,X ;Get the MSB of the increment value 

$1186,xX ;And add it to the MSB of the timer 

$1186,X ;Save the results as the new timer MSB 
;Get the angle of movement value back 

SAAI1E ;If the timer did not overflow, then exit 


;Divide the angle of movement by 2 
sAnd 2 again (divide by 4) 


$11D6,Y ;Get the proper coordinate 
SAA17 s;If the angle was up or left, then branch 
#S01 s;Add one to the selected coordinate 
SAA1B ;And JMP to update the sprites coordinate 
#$01 ;If the angle was down or right, subtract 1 from 
#SFF ;The coordinate and check if it underflowed 
$11D6,Y ;Save the new sprite coordinate 
:And exit 


KkkkKKkKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


BASIC STASH COMMAND 
Command syntax: STASH #bytes, insta, expa, expb 


NOTE: #bytes the number of bytes to be sent 
intsa = INTernal Starting Address 
of the C-128 RAM to be transferred 
expb = EXPansion RAM Bank number (0-15) 
expa EXPansion RAM Starting Address 


+ + + + + € FF HF FF F 


+ + ££ &€ & € &F FF HF 
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* This command is used to transfer the contents of the * 
* C-128 RAM into the EXPANSION RAM. * 


* * 


Kak Kk KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 


AAIF: LDA #132 ;Set the bit pattern to transfer C-128 RAM 
AA21: JMP SAA2B ;To the RAM Disk and Jump to process 


kkkkkkkk kkk kK kkk Kk Kkk KKK KK KKK KKKKK KKK KKKKKKKK KKK KKK KKKKK 


* * 
* BASIC FETCH COMMAND * 
* * 
* Command syntax: FETCH #bytes, insta, expsa, expb * 
* * 
* NOTE: #bytes = the number of bytes to be received * 
* intsa = INTernal Starting Address * 
= of the C-128 RAM to store the bytes * 
* expb = EXPansion RAM Bank number (0-15) * 
* expsa = EXPansion RAM Starting Address * 
* * 
* This command is used to transfer the contents of the * 
* EXPANSION RAM to the C-128 RAM. * 
* * 
KkKkkkkkkkkkkk kk Kk KK KK KKKKKKKKKKKKKKKKKKKKKKKK KK KK KKK KKK 


AA24:; LDA #%10000101 ;Set the bit value for executing a 
AA26: JMP SAA2B ;Transfer from the RAM DISK to the C-128 


wkkkkkkkkkkkkkkkkkKkKkKKKKKKK KKK KKKKKKKR KK KKK KK KKK KK KKK KKK KKK 
* * 
* BASIC SWAP COMMAND * 
* * 
* Command syntax: SWAP #bytes, insta, expsa, expb * 
* * 
* NOTE: #bytes = the number of bytes to be swapped * 
* intsa = INTernal Starting Address * 
* of the C-128 RAM to be swapped * 
* expb = EXPansion RAM Bank number (0-15) * 
* * 
* * 
* * 
* * 
* * 
* * 


expsa = EXPansion RAM Starting Address 


This command is used to swap the contents of the 
EXPANSION RAM with the contents of the C-128 RAM. 


KKKKKKKKKKKKEKEKKKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKEK 


AA29: LDA #134 ;Set the bit pattern to swap memory between 
AA2B: PHA ;The RAM disk and the 128 and save it on stack 
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AA2C: 


AA2F: 
AA32: 
AA35: 
AA38; 


AA3B: 
AA3E: 
AA41: 


AA44: © 


AA47: 
AA4A: 
AA4D: 
AA5O: 


AA53: 
AA5S: 
AAS57: 
AASA: 
AASD: 
AASE: 
AASF: 


AA62: 


AA65: 


AA68: 
AAGB: 


JSR 


JSR 
SLY 
STA 
JSR 


JSR 
STY 
STA 
JSR 


JSR 
STY 
STA 
JSR 


CPX 
BCS 
JSR 
STX 
PLA 
TAY 
LDX 


JMP 


JMP 


JSR 


JMP 


$8812 


SA845 
SDFO7 
SDFO8 
$880F 


SA845 
SDFO2 
SDFO3 
S880F 


$A845 
SDFO4 
SDFOS 
$8809 


#16 

SAA65 
SA845 
SDF06 


$03D5 


SFF50 


;Change number of bytes from ASCII to integer 
yin Y,A 

;Enable Bank 15 

;Save the number of bytes to be 

;Transferred in DMADAC and DMADAH 

;Convert the internal starting address after the 
;Comma into integer format in Y,A and if comma 
s;Is not found, then generate a 'SYNTAX' 
;Enable Bank 15 

s;Save the address of the C-128 

; Internal RAM address to be accessed 
;Convert external starting address after comma 
;Into integer format in A,Y and if comma is not 
;Found, then generate a 'SYNTAX' error 

;Enable Bank 15 

;Save the address of the expansion RAM 

;To be accessed 

;Get the external RAM BANK number in X register 
; (Ram Disk) 

;Get the Bank number to be accessed in the 
;C-128 and if it is 16 or greater, then branch 
;Enable Bank 15 

;Save the Bank number to be accessed 

;Get the type of operation to perform 

;And place it into the Y register 

;Get the Internal Bank number from/to where the 
;Operation is to occur. (Inside the 128) 
;Perform the function (Direct Memory Access-DMA) 


error 


kKkkkkkkkkkkkkkkkkkkkkkkkkk kkk KKK KKK KKK KKK KKK KKKKK KKK KK KKK 


* * 
= Output ‘ILLEGAL QUANTITY' error message * 
* * 


xkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkKkkkkkkKe KKK KKK KKK KKK KKK K 


$7D28 


KKkKK KK KKKKKK KK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKK KKK 


* * 
* This routine rounds the Floating Point Number in . 
* FAC1 and converts it to integer format in $64,S65. ‘ 
* * 


KK KKK KKK KK KKK KKK KKK KKK KKK KKKKKKKEKKKKKKKKKKKKKK KKK KKKKKKK 


$8C47 
$8CC7 
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kk KKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK K 


* 


* 


* 


* 


Unused bytes from SAA6E to SAE62 * 
* 


kakkkkkkkkkkKekekKeKeKKRKKKKKKKKKKKKKKKKKKKKKKKKKKRKKKKKKKKKKKK 


SFF, SFF, SFF 
SFF,SFF 


KK KKK AKEKKKKKKAKKKAKK KKK KKKKKAKKKKKAKKKKKKKKKEKKKKKKKKKKEKK 


* 


This is the encrypted message that appears when you * 
enter SYS 32800,123,45,6 * 


* 


KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KKKKKKEKKKKKKKKKKKKKKEKK 


$7B, SE9,$77,S6A, $5F, $5E,$5D, SBE 
$21,$3D,$24,$37,$3F,$22,$55,$20 
$24,$4A,$30,$27,$3A,$4E,$2F,$35 
$4D,$4C, $4F,$40, $47, $46,$68, $69 
$88,$15,S$1F,$0C,$08,51F,0FC,$19 
$69, $5F,$71,$96,$05,$13,$11,$74 
$89,$05,$1E,$0D,$01,$43,$6D, $98 
$06,$10,$13,$19, $67,$94,$1C,$05 
$75,$37,$19, SEE, $70,$70,$1D,$F9 
SE3,$6F,$7B,$6C,$78, S$6F,$7F, $69 
$19, $2F,$01,$E2,$6E,$6A,$05, SEC 
$5E,$48,$5D,$15, $3F, $DA,$5C,$4A 
$56,$32,$09,$51,$4E, $58,$5C, $51 
$06,$2A, SCF,$5A, $4E, $40,$46, $23 
$D3,$43,$4D,$41,$4E,$47,$08,$09 
SE9, $36, $B0, $B6, $B4, SDE, SBC, SAE 
SBE, $A1,$DD,$B4,$B8,$B8,$D2, $A0 
SCB, SA7, $A8,SA3, SAA, SCE, $B9, $A4 
SA6, SAF, SCF, SED, $E7 


KKK KKK KKK KKK KKK KKK KKKKHEKKKKKKKKKEKKKKEKKKKKKK KKK KKK KKK K 


* 


JUMP TABLE FOR FORMAT CONVERSIONS x 


* 


KKK KKK KKK KKK KKK KKK KKK IKK KKK KKKEKKKKKKKKKKKKKK KKK KKK KKK 


AAGE: .BYTE 
AE61: .BYTE 
* 
* 
* 
* 
AE63: .BYTE 
AE6B: .BYTE 
AE73: .BYTE 
AE7B: .BYTE 
AE83: .BYTE 
AE8B: .BYTE 
AE93: .BYTE 
AEQB: .BYTE 
AEA3: .BYTE 
AEB3: .BYTE 
AEBB: .BYTE 
AEC3: .BYTE 
AECB: .BYTE 
AED3: .BYTE 
AEDB: .BYTE 
AEE3: .BYTE 
AEEB: .BYTE 
AEF3: .BYTE 
AEFB: .BYTE 
* 
* 
* 
AFOO: JMP 
AFO3: JMP 
AFO6: JMP 
AFO9: JMP 
AFOC: JMP 


$84B4 ;AYINT Convert a Floating Point number to an integer 
$793C ;GIVAYF Convert an integer to Floating Point format 
S$8E42 ;FOUT Convert Floating Point to an ASCII string 
$8052 ;VAL1 Convert an ASCII string to Floating Point 
$8815 ;GETADR Convert Floating Point to LSB/MSB address 
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kkekkkkkkkkkkke kkk KKK KKKKKKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK 


* * 
- JUMP TABLE FOR MATH FUNCTIONS x 
* * 


kkkkkkkkkkkkkkkekkkKkkkkkkkkkkKKKeKKRKKRKKKKRK KKK KKK KKK KK KKK KK 


AFOF: JMP $8C75 ;FLOATC Convert an address to Floating Point format 

AF12: JMP $882E ;FSUB Subtract FAC1 from a value in memory 

AF15: JMP $8831 ;FSUBT FAC2 - FAC1 

AF18;  JMP $8845 ;FADD FAC1 = FAC1 + MEM 

AF1B: JMP $8848 ;FADDT FAC2 + FAC1 

AF1E; JMP $8A24 ;FMULT Multiply a value in memory by FAC1 

AF21: JMP $8A27 ;FMULTT Multiply FAC1 by FAC2 

AF24: JMP $8B49 ;FDIV Divide a value in memory by FAC1 

AF27: JMP S$8B4C ;FDIVT Divide FAC2 by FAC1 

AF2A: JMP S89CA ;LOG Calculate the natural log of FAC1 

AF2D: JMP S8CFB ;INT Take the integer portion of FAC1 

AF30: JMP S8FB7 ;SOR Calculate the square root of FAC1 

AF33: JMP S8FFA ;NEGOP Negate FAC1 

AF36: JUMP S8FBE ;FPWR Raise FAC2 to power of a value in memory 

AF39: JMP S8FC1l ;FPWRT Raise FAC2 to the FAC1 power 

AF3C: JMP $9033 ;EXP Calculate the EXP of FAC1 

AF3F: JMP $9409 ;COS Calculate the cosine of FAC1 

AF42: JMP $9410 ;SIN Calculate the sine of FAC1 

AF45: JMP $9459 ;TAN Calculate the tangent of FAC1 

AF48; JMP $94B3 ;ATN Calculate the arctangent of FAC1 

AF4B: JMP $8C47 ;ROUND Round off the value in FAC1 

AF4E: JMP $8C84 ;ABS Take the absolute value of FAC1 

AF51: JMP $8C57 ;SIGN Test the sign of FAC1 

AF54: JMP $8C87 ;FCOMP Compare FAC1 with a value in memory 

AF57: JMP $8437 ;RND 0 Generate a random Floating Point number 
Kkakkkkk kk KKK KK KKKKKKKK KKK KKK KKRKKKKKKKKKKRKK KKK KKK KKK KKK 
* * 
* JUMP TABLE FOR MEMORY MOVEMENT * 
* * 
KkkkkkkkkkkkkkkkkK kkk KKK KKKKRKKKKKRKKKKRKKKRKKKKK KKK KKK KKK K 

AF5A: JMP $8AB4 ;CONUPK Transfer a value in RAM to FAC2 

AF5D: JMP $8A89 ;ROMUPK Transfer a value in ROM to FAC2 

AF60: JMP $7A85 ;MOVFRM Transfer a value in RAM to FAC1 

AF63: JMP $8BD4 ;MOVFM Transfer a value in ROM to FACI1 

AF66: JMP $8C00 ;MOVMF Transfer FAC1 to memory 

AF69: JMP $8C28 ;MOVFA Transfer FAC2 to FAC1 

AF6C: JMP $8C38 ;MOVAF Transfer FAC1 to FAC2 

AF6F: JMP $4828 ;OPTAB Math operator vector table 

AF72:  JMP $9B30 ;DRAWLN Draw a straight line 
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AF75:; 
AF78; 
AF7B; 
AF7E; 


AF81: 
AF84; 
AF87: 
AF8A: 
AF 8D: 
AF 90; 
AF93:; 


AF 96; 
AF 99; 
AF9C: 
AF OF: 
AFA2:; 
AFAS: 


AFA8: 


JMP 
JMP 
JMP 
JMP 


JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 


JMP 
JMP 
JMP 
JMP 
JMP 
JMP 


~-BYTE SFF,SFF,S5FF,.... 


SOBFB 
$6750 
S5A9B 
$51F3 


S$51F8 
$51D6 
S4F4F 
$430A 
$5064 
S4AF6 
$78D7 


ST7EF 
S5AA6 
$5A81 
$50A0 
SO2EA 
$4DCD 


;GPLOT 
;CIRSUB 
; RUN 

; RUNC 

’ 

; CLEAR 
;NEW 

; LNKPRG 
; CRUNCH 
; FNDLIN 
;NEWSTT 
; EVAL 


; FRMEVL 


Plot a single point 

Draw a circle or polygon 

Perform RUN 

Reset the current text character pointer to 
the beginning of the program 

Perform CLR 

Perform NEW 

Relink the program lines 

Tokenize the line in the input buffer 
Search for a line number 

Set up the next program line for execution 
Convert a number from ASCII text toa 
Floating Point number 

Evaluate the expression 


;RUN A PROGRAM 


; SETEXC 
; LINGET 
; GARBA2 


Set the system to the PROGRAM mode 
Convert no. from ASCII to 2-byte line no. 
Perform string garbage collection 


; EXECUTE A LINE 


KKKKKKKK KKK KK KKK KKK KKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKK 


* 


More unused bytes from SAFA8 to SAFFF * 


* 


KEKKKKKKKKKKKKKKKKKKKEKKKKKEKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKK 
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APPENDIX A 


COMMODORE 64 TO COMMODORE 128 


CROSS REFERENCE GUIDE 
C64 ROUTINE COMMENTS LABEL C128 
AO0O COLD START IN THE C-128 THIS IS THE JUMP ADDRESS CLDSTRT 4000 
AOOC BASIC COMMAND ADDRESSES - 1 ADDRLST 46FC 
A052 BASIC FUNCTION ADDRESSES NFUN 47D8 
A080 TABLE OF PRIORITY VALUES AND BASIC OPERATOR ADDRESSES OPTAB 4828 
AO9E LIST OF BASIC COMMAND/STATEMENTS (TEXT) RESLST 4417 
A19E LIST OF BASIC ERROR MESSAGES ERRTAB 484B 
A38A FIND FOR GOSUB SEARCH STACK FNDFOR 4FAA 
A3B8 CREATE A SPACE IN RAM FOR VARIABLE OR PROGRAM LINE BLTU 71066 
A3FB TEST STACK DEPTH (CHKSTK) GETSTK 4FFE 


A408 ENSURE THERE IS ENOUGH RAM FOR NEW LINE OR VARIABLE REASON 5017 
A437 ERROR MESSAGE GENERATOR WHERE X = THE ERROR NUMBER ERROR 4D3C 
A469 PRINT 'ERROR' AND THE LINE NUMBER OF THE ERROR IF ANY PRTERR 4DA5 
A474 PRINT 'READY.' AND SETS SYSTEM STATE TO DIRECT MODE READY 4D37 


A480 MAIN BASIC INPUT LOOP MAIN 4DC3 
A49C ADD OR REPLACE A BASIC PROGRAM TEXT MAIN1 4DE2 
A533 RELINK THE LINES OF BASIC TEXT (LINE LINKS) LINKPRG 4F4F 
A560 INPUT A LINE TO THE INPUT BUFFER INLIN 4F93 
A579 TOKENIZE BASIC LINE CRNCH 430A 
A613 SEARCH BASIC TEXT FOR THE SPECIFIED LINE NUMBER FNDLIN 5064 
A642 BASIC NEW COMMAND SCRATCH 51D6 
A65E BASIC CLR COMMAND CLEAR 51F8 
A68E SET TXTPTR TO TXTTAB-1 RUNC 5254 
A69C BASIC LIST COMMAND LIST 50E2 
A717 PRINT BASIC TOKENS AS ASCII CHARACTERS QPLOP 914E 
A742 BASIC FOR COMMAND FOR 5DF9 
A7TAE SET UP NEXT STATEMENT NEWSTT 4AF6 
A7E4 EXECUTE NEXT BASIC STATEMENT GONE 4A9F 
A7ED EXECUTE CURRENT BASIC STATEMENT (TOKEN IN THE ACC) nolabel 4B74 
A81D BASIC RESTORE COMMAND RESTOR SACA 
A82C TEST THE STOP KEY AND IF DEPRESSED THEN 'BREAK' ERROR CHKSTP 4BC1 
A82F BASIC STOP COMMAND STOP 4BCB 
A831 BASIC END COMMAND END 4BCD 
A857 BASIC CONT COMMAND CONT SA60 
A871 BASIC RUN COMMAND RUN SA9SB 
A883 BASIC GOSUB COMMAND GOSUB 59CF 
A8A0O BASIC GOTO COMMAND GOTO 59DB 
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BASIC 
BASIC 


SEARCH FOR THE NEXT STATEMENT FLAG ':' colon 


ROUTINE COMMENTS 


RETURN COMMAND 
DATA COMMAND 


SEARCH FOR END OF LINE FLAG (#S$00) 


BASIC 
BASIC 
BASIC 


IF COMMAND 
REM COMMAND 
ON COMMAND 


CONVERT ASCII LINE NUMBER TO INTEGER 


BASIC 
BASIC 
BASIC 
BASIC 
PRINT 
ERROR 
BASIC 
BASIC 
BASIC 
PRINT 
BASIC 
BASIC 


LET COMMAND 

PRINT# COMMAND 

CMD COMMAND 

PRINT COMMANAD 

STRING FROM MEMORY 

HANDLER FOR THE INPUT ROUTINE 
GET COMMAND 

INPUT# COMMAND 

INPUT COMMANAD 

THE INPUT PROMPT AND INPUT THE DATA 
READ COMMAND 

NEXT COMMAND 


EVALUATE NUMERIC EXPRESSION 


CHECK 
CHECK 


FOR DATA TYPE OF NUMERIC 
FOR DATA TYPE OF STRING 


EVALUATE EXPRESSION 


CONVERT SINGLE NUMERIC TERM FROM ASCII TO F.P.N. 


CONSTANT-PI 


BASIC 


NOT COMMAND 


EVALUATE WITHIN PARENTHESES 


CHECK 
CHECK 
CHECK 


CHECK FOR THE CHARACTER THAT'S IN THE ACCUMULATOR 


FOR uw ) uw 
FOR hi ( uw 
FOR ',' 


SYNTAX ERROR 
GET VALUE OF A VARIABLE 
SET UP REFERENCES 


BASIC 


OR COMMAND 


BASIC AND COMMAND 


BASIC <=>COMPARISONS FOR FLOATING POINT #S & STRINGS 


BASIC 


SEARCH FOR VARIABLE DESCRIPTOR; IF NOT FOUND CREATE IT 


DIM COMMAND 


CREATE A NEW 7 BYTE DESCRIPTOR 


RETURN THE ADDRESS OF A 


FLOATING POINT CONSTANT -32768 


CONVERT FPN TO A SIGNED 
INPUT AND CONVERT A FPN 
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VARIABLE CREATED/FOUND 


INTEGER IN Y,A (LSB/MSB) 
TO A POSITIVE INTEGER 


LABEL 


RETURN 
DATA 
DATAN 
DATAL 
LF 

REM 
ONGOTO 
LINGET 
LET 
PRINTN 
CMD 
PRINT 
STROUT 
DOAGIN 
GET 
INPUTN 
INPUT 
KEYBRD 
READ 
NEAT 
FRMNUM 
CHKNUM 
CHKSTR 
FRMEVL 
EVAL 
PIVAL 
NOT 
PARCHK 
CHKCLS 
CHKOPN 
CHKCOM 
CHKACC 
SNERR 
SVAR 
SFUN 
OROP 
ANDOP 
DORE1 
DIM 
PTRGET 
NOTFNS 
FINPTR 
N32768 
FPNINT 
INTIDX 
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C64 ROUTINE COMMENTS LABEL C128 
BIBF FAC 1 INTEGER AYINT 84B4 
B1D1 SEARCH FOR AN ARRAY OR CREATE IT ISARY 7CAB 
B245 GENERATE 'BAD SUBSCRIPT’ ERROR MESSAGE BSERR 7D25 
B248 GENERATE AN ‘ILLEGAL QUANTITY' ERROR MESSAGE FCERR 71D28 
B37D BASIC FRE FUNCTION FREFN 8000 
B391 INTEGER TO FAC 1 (GIVAYF) GIVAYF 8C70 
B39E BASIC POS COMMAND POS 84D0 
B3A6 CHECK FOR DIRECT MODE (ERR) ERRDIR 84D9 
B3B3 BASIC DEF COMMAND DEF 847A 
B3E1 CHECKS FOR PROPER 'FN' SYNTAX GETFNM 8528 
B3F4 BASIC FN FUNCTION | FNDOER 853B 
B465 BASIC STRS FUNCTION STRD 85AE 
B487 SET UP A STRING IN MEMORY STRLIT 869A 


B4F4 ALLOCATE SPACE IN MEMORY FOR A STRING (LENGTH = ACC.) GETSPA 9299 
B526 DISCARD UNUSED STRING BY SHIFTING GOOD STRING OVER IT GARBAG 92EA 


B5BD IF THE CURRENT STRING IS THE HIGHEST IN MEMORY GARBAG1 9383 
B63D CONCATENATE TWO STRINGS TOGETHER CAT 870D 
B6é7A TRANSFER A STRING IN MEMORY MOVINS 874E 
B6A3 DISCARD UNWANTED STRING FRESTR 877E 
B6DB DELETE A STRING FROM THE TEMPORARY STRING STACK FRETMS 87E0 
B6EC BASIC CHRS FUNCTION CHRD 85BF 
B700 BASIC LEFTS FUNCTION LFTD 85D6 
B72C BASIC RIGHTS FUNCTION RIGHTD 860A 
B737 BASIC MIDS FUNCTION MIDD 861C 
B761 PULL STRING PARAMETERS OFF THE STACK PREAM 864D 
B77C BASIC LEN FUNCTION LEN 8668 
B782 GET/SET STRING PARAMETERS tet 866E 
B78B BASIC ASC FUNCTION ASCFN 8677 
B79B CONVERT ASCII NUMBER TO A # VALUE 0-255 IN X REG. GETBYTC 87F1 
B7AD BASIC VAL FUNCTION VAL 804A 
B7EB GET POKE VALUES GETADR 8803 
B80D BASIC PEEK FUNCTION PEEK 80C5 
B824 BASIC POKE COMMAND POKE 80ED 
B82D BASIC WAIT COMMAND FUWAIT 6C2D 
B849 ADD 0.5 to FAC1 FADDH 8A0E 
B850 SUBTRACT FAC1 FROM A NUMBER IN MEMORY FSUB FSUB 882E 
B853 BASIC SUBTRACTION COMMAND FUSUBT 8831 
B867 ADD FAC1 TO A NUMBER IN MEMORY FADD 8A45 
B86A BASIC ADDITION COMMAND (+) FADDT 8848 
B947 COMPLEMENT FAC1 NEGFAC 8926 
B97E GENERATE AN 'OVERFLOW' ERROR OVERR 8 95D 
B983 SINGLE BYTE MULTIPLY MULTSHF 8962 
B9BC FLOATING POINT CONSTANT FOR LOG FONE 899C 
B9EA BASIC LOG FUNCTION LOG 89CA 
BA28 FAC1=FAC1*MEMORY FMULT 8A08 
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C64 ROUTINE COMMENTS LABEL C128 
BA30 MULT FAC2*FAC1 FMULT1 8AOB 
BA8C TRANSFER MEMORY TO FAC2 (ARG) CONUPK 8A89 
BAB7 ADD THE EXPONENT OF FAC1 TO THE EXPONENT OF FAC2 (ARG) MULTDIV 8AEC 
BAE2 MULTIPLY FAC1 BY 10 MUL10  8B17 
BAF9 CONSTANT 10 IN FLOATING POINT NUMBER FORMAT TENC 8B2E 
BAFE DIVIDE BY 10 FAC1 = FAC1 / 10 DIV10 8B38 
BBO7 DIVIDE FAC 2/MEMORY FDIV1 8B3F 
BBOF DIVIDE MEMORY/FAC 1 FDIV2 8B49 
BB12 DIVIDE FAC 2/FAC 1 FDIVT 8B4C 
BB8A GENERATE "DIVISION BY ZERO' ERROR MESSAGE DZERR 8B33 
BBA2 MEMORY TO FAC 1 MOVFM  8BD4 
BBC7 MOVE A FPN FROM FAC] TO TEMP1l1  } } } } 7— 3 = een== 8BF9 
BBCA MOVE A FPN FROM FAC] TO TEMP2 pe em 8BFC 
BBDO MOVE FAC1 INTO A VARIABLE'S DESCRIPTOR | ==-=== 8C00 
BBFC FAC 2 TO FAC 1 MOVFA  8C28 
BCOC ROUND NUMBER & MOVE FROM FAC1 TO FAC2 MOVAF  8C38 
BCOF FAC 1 TO FAC 2 MOVEF  8C3B 
BC1B ROUND OFF FAC 1 ROUND 8C47 
BC2B GET SIGN SIGN 8C57 
BC39 BASIC SGN FUNCTION SGN 8C65 
BC58 BASIC ABS FUNCTION ABS 8C84 
BC5B COMPARE FAC 1 TO MEMORY FCOMP  8C87 
BC9B FAC 1 TO INTEGER QINT 8CC7 
BCCC BASIC INT FUNCTION INT 8CFB 
BCF3 ASCII TO FAC 1 FIN 8D22 
BD7E GET NEW ASCII DIGIT FINLOG 8DB4 
BDB3 CONSTANTS NO999 8E17 
BDCO PRINT 'IN' FOLLOWED BY LINE NUMBER INPRT 8E26 
BDCD OUTPUT NUMBER IN ASCII DEC. DIGITS LINPRT 8E32 
BDDD FAC 1 TO ASCII FOUT 8E42 
BF11 MORE CONSTANTS FHALF 8F76 
BFIC POWERS OF - 10 CONSTANTS TABLE FOUTBL 8F81 
BF3A TABLE OF CONSTANTS FOR TIS CONVERSION FDCEND 8FDF 
BF71 BASIC SOR FUNCTION SOR 8FB7 
BF7B BASIC EXPONENTIATION FUNCTION '*! FPWRT 8FC1 
BFB4 BASIC NEGATION FUNCTION NEGOP 8FFA 
BFBF MORE CONSTANTS EXPCON 9005 
BFED BASIC EXP FUNCTION EXP 9033 
E043 FUNCTION SERIES EVALUATION SUBROUTINE NUMBER 1 POLY1 9086 
E059 FUNCTION SERIES EVALUATION SUBROUTINE NUMBER 2 POLY2 909C 
EO8D MULTIPLICATIVE CONSTANT FOR RND RMULC 8490 
E092 ADDITIVE CONSTANT FOR RND RADDC 8495 


E10C BSOUT - OUTPUT A CHAR. TO THE CURRENT OUTPUT DEVICE BSOUT SODF 
E112 BASIN - INPUT A CHAR. FROM THE CURRENT INPUT DEVICE BASIN S90E5 
E118 CHKOUT - SET FILE TO OUTPUT CHKOUT 90EB 
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C64 ROUTINE COMMENTS LABEL C128 
E11E CHKIN - SET FILE TO INPUT CHKIN 90FD 
E124 GETIN - GET A CHARACTER FROM THE CURRENT INPUT DEVICE GETIN 9109 
E12A BASIC SYS COMMAND SYS 5885 
E156 BASIC SAVE COMMAND SAVE 9112 
E165 BASIC VERIFY COMMAND VERIFY 9129 
E168 BASIC LOAD COMMAND LOAD 912C 
E1BE BASIC OPEN COMMAND OPEN 918D 
E1C7 BASIC CLOSE COMMAND | CLOSE 919A 
E1D4 SET PARAMETERS FOR LOAD, VERIFY, SAVE SETPAR 91AE 
E200 SKIP COMMA & GET INTEGER IN X SKPCOM 91DD 
E206 GET CURRENT CHARACTER & CHECK FOR END OF LINE ENDTRM 91E3 
E20E CHECK FOR COMMA AND ENSURE THAT A CHARACTER FOLLOWS CHKCOM1 91EB 
E219 SET PARAMETERS FOR OPEN & CLOSE SETPAR1 91F6 
E264 BASIC COS FUNCTION cos 9409 
E26B BASIC SIN FUNCTION SIN 9410 
E2B4 BASIC TAN FUNCTION TAN 9459 
E2EO0 CONSTANTS FOR TRIG FUNCTIONS P12 9485 
E2E5 5 BYTE FLOATING POINT REP. OF CONSTANT 2*PI TWOPI 948A 
E2EA 5 BYTE FLOATING POINT REP. OF CONSTANT 1/4 FR4 948F 
E2EF TABLE OF CONSTANTS FOR EVAL. OF SIN,COS, TAN SINCON 9494 
E30E PERFORM ATN ATN 94B3 
E33E CONSTANTS FOR ATN ATNCON 9453 
E37B BASIC NMI JUMP IN ADDRESS NMI 4009 
E38B ERROR MESSAGE HANDLER ERROR 4D3F 
£334 COLD START BASIC CLDSTRT 4D23 
E3A2 COPY OF CHRGET ROUTINE INITAT 4279 
E3BF INITIALIZE BASIC INIT 4045 
E447 TABLE OF BASIC VECTORS SYSVEC 4267 
E453 TRANSFER BASIC VECTORS FROM ROM TO RAM VECRAM 4251 
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APPENDIX B 


BASIC RESERVED WORD TABLES 


RESERVED ROUTINE 


ABS 
ASC 
AUTO 
BANK 
BEND 
BOOT 
BSAVE 
CATALOG 
CHRS 
CLOSE 
CMD 
COLLISION 
CONCAT 
COPY 
DATA 
DCLOSE 
DEF 
DIM 
DLOAD 
DOPEN 
DS 
DSAVE 
EL 

END 

ER 
EXIT 
FAST 
FILTER 
FOR 
GET 
GET # 
GO64 
GOTO 


$8C84 
$8677 
$5975 
S6BC9 
$528F 
$7335 
SA1C8 
SAO7E 
S85BF 
$919A 
S55FO 
$7164 
$A362 
SA346 
$528F 
SA16F 
S84FA 
$587B 
SA1A7 
SA11D 


SA18C 


$4BCD 
$6039 
$77B3 
$7046 
S5DF9 
$5612 
$5625 
$5A54 
$59DB 
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RESERVED ROUTINE 
APPEND $A134 
ATN $94B3 
BACKUP SA37C 
BEGIN $796C 
BLOAD $A218 
BOX $62B7 
BUMP $837C 
CHAR $67D7 
CIRCLE S668E 
CLR S$51F8 
COLLECT SA32F 
COLOR $69E2 
CONT S5A60 
COS $9409 
DCLEAR $A322 
DEC $8076 
DELETE $5E87 
DIRECTORY SAO7E 
DO SSFEO 
DRAW $6797 
DS$ er 
DVERIFY SA1A4 
ELSE/BEND $5391 
ENVELOPE $70C1 
ERRS S80F6 
EXP $9033 
FETCH SAA24 
FN $853B 
FRE $8000 
GETKEY $561F 
GO $5A3D 
GOSUB $59CF 
GRAPHIC S6B5A 


BASIC Commands and Functions 


WITH TOKENS AND COMMAND ADDRESSES 
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RESERVED ROUTINE 


KEYWORD ADDRESS __ TOKEN __D/P/B 


GSHAPE 
HELP 

IF 
INPUT # 
INT 

KEY 

LEN 
LIST 
LOCATE 
LOOP 
MONITOR 
NEW 

OFF 
OPEN 
PEEK 

PI 
POINTER 
POS 
PRINT 


PRINT USING 


QUIT 
RDOT 
RECORD 
RENAME 
RESTORE 
RETURN 
RIGHTS 
RREG 
RSPPOS 
RUN 
SAVE 
SCNCLR 
SGN 
SLEEP 
SOUND 
SPRCOLOR 
SPRITE 
SOR 

ST 
STEP 
STR$ 
SYS 
TAN 
THEN 
TIS 


$658D 
$5986 
$52C5 
$5648 
S8CFB 
$610A 
$8668 
S50E2 
$6955 
S608A 
SBO000 
$51D6 
$4845 
$918D 
$80C5 
S82FA 
$84D0 
S555A 
$9520 
$4845 
S9BOC 
SA2D7 
SA36E 
SSACA 
$5262 
S860A 
SS8BD 
$8397 
SSA9B 
$9112 
$6A79 
$8C65 
S6BD7 
S71EC 
$7190 
S6C4F 
S8FB7 


S85AE 
$5885 
$9459 
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KEYWORD ADDRESS _ TOKEN D/P/B 


RESERVED ROUTINE 
HEADER $A267 
HEXS $8142 
INPUT $5662 
INSTR $99C1 
JOY $99C1 
LEFTS $85D6 
LET $53C6 
LOAD $912C 
LOG $89CA 
MIDS $861C 
MOVSPR $6CC6 
NEXT S5S7F4 
ON $53A3 
PAINT $61A8 
PEN $82AE 
PLAY S6DE1 
POKE S80E5 
POT $824D 
PRINT# $553A 
PUDEF S5F34 
RCLR $819B 
READ S$5S6A9 
REM $529D 
RENUMBER SSAF8 
RESUME SSF62 
RGR $8182 
RND $8434 
RSPCOLOR $8361 
RSPRITE $831E 
RWINDOW $8407 
SCALE $6960 
SCRATCH SA2A1 
SIN $9410 
SLOW $77C4 
SPC ( S55B9 
SPRDEF $7372 
SPRSAV $76EC 
SSHAPE $642B 
STASH SAA1F 
STOP $4BCB 
SWAP SAA2 9 
TAB ( $55B9 
TEMPO S6FD7 
TI ---- 
TO ---- 
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RESERVED ROUTINE 


KEYWORD ADDRESS ___TOKEN___D/P/B 


TRAP 
TRON 
USING 
VAL 
VOL 
WHILE 


WINDOW 


RELATIONAL 
OPERATORS 


RESERVED ROUTINE 


KEYWORD ___ ADDRESS TOKEN D/P /B 


S5F4D -~ $D7 B TROFF $58B7 -- $D9 
$58B4 -- $D8 B UNTIL $600B -~ SFC 
$9520 -~ SFB B USR $1218 -~- $B7 
S$804A -- §C5 B VERIFY $9129 ~- $95 
$71C5 -- SDB B WAIT $6C2D -~- $92 
S60BC -- SFD B WIDTH $71B6 SFE $1C 
$72CC SFE S1A B XOR $83E1 SCE $08 
BASIC Operators 
PRIORITY 
OPERATOR ADDRESS TOKEN CODE D/P/B 
+ (ADDITION) $8848 -- SAA $79 B 
—- (SUBTRACTION) $8831 -- SAB $79 B 
* (MULTIPLICATION) $8A27 -- SAC $7B B 
/ (DIVISION) S8B4C -- SAD $7B B 
“ (EXPONENTIAL) S8FC1 -- SAE S7F B 
AND $4C89 -- SAF $50 B 
OR $4C86 -- $BO $46 B 
NOT $7930 -- SA8 SSA B 
- (UNARY MINUS) S8FFA  ------ $7D B 
(NEGATIVE ) 
< (LESS THAN) S$ 4CB6 -- $B3 $64 B 
> (GREATER THAN) -- $Bl B 
= (EQUAL TO) -- $B2 B 
D = DIRECT MODE 
P = PROGRAM MODE 
B = BOTH DIRECT AND PROGRAM MODES 
N/I = NOT IMPLEMENTED 
N/A = NOT APPLICABLE 
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APPENDIX C 


Hexadecimal/Decimal Conversion Table 


The following table can be used as a tool by both the BASIC and machine 
language programmer alike. The BASIC programmer will appreciate the 
columns that deal with the character sets and the machine language 
programmer will appreciate the hexadecimal to decimal conversion columns 
as well as the machine code instruction column. 


For those of you who have a hard time converting a one byte or two byte 
hexadecimal number to decimal, it is an easy matter when using this table.In 
order to convert a one byte HEX number, find the HEX number that you 
wish to convert in the HEX column and look across the page to the LSB 
column to find the decimal equivalent. For example, to convert the HEX 
value of $20, find that value in the HEX column and look across the page to 
the LSB column. In that column will be the decimal equivalent of the HEX 
value $20 which is 32. 


In order to convert a two byte number or address, first divide the number or 
address into two one byte numbers. The first number will be the MSB 
(Most Significant Byte) and the second number will be the LSB (Least 
Significant Byte). Now find the HEX value of the MSB in the HEX 
column and get the decimal equivlent. Then find the HEX value of the LSB 
in the HEX column and get the decimal equivalent. In order to finish the 
conversion, add the decimal value of the MSB to the decimal value of the 
LSB. The sum of the two values will be the decimal equivalent of the two 
byte address or number that you wanted to convert. 


For example, if the value of the number was $FFOA, after dividing the 
number into two one byte numbers, you would have the HEX value of $FF 
for the MSB and the HEX value of $0A for the LSB. Now find the HEX 
value of the MSB in the HEX column and get the decimal equivalent from 
the MSB column. The equivalent decimal value of $FF as the MSB of a 
number is 65280. Next, find the HEX value of the LSB in the HEX 
column and get its decimal equivalent from the LSB column. This time, the 
equivalent decimal value of $0A as the LSB of a number is 10. In order to 
complete the conversion, add the decimal equivalent of the MSB (65280) to 
the decimal equivalent of the LSB (10) to obtain the value of 65290. 
Therefore the decimal equivalent of $FFOA is 65290. 
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To convert a decimal number to its hexadecimal equivalent, first find the 
number in the MSB column that comes the closest to (but not larger than) 
the number you wish to convert. Look in the HEX column and write down 
that value; this is the MSB of the final number. Then subtract that value 
from your original number and find the result in the HEX column, this is 
the LSB of the number. 


For example, to convert the number 63248 to its hex equivalent, find the 
number closest to it without going over it in the HEX column. This would 
be 63232 or F7-this is the MSB. Subtract that value from the original 
number (63248-63232), which would give you 16 or $10 for the LSB. 
Combine the two numbers, and you have the result: $F710. 
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HEX 


00 
01 
02 
03 
04 
05 
06 
07 
08 
09 
OA 
OB 
OC 
OD 
OE 
OF 
10 
11 
12 
13 
14 
ats 
16 
17 
18 
19 
1A 


oy 
~ 
tw 


a a 
ADO PWNHERFH OW WWHAUPBWNHRH O 


NOD FF 
eH OO ® 


NO BN BO 
m W NO 


NO DO 
aH Ol 


BINARY CHARUP CHARDWN 


00000000 
00000001 
00000010 
00000011 
00000100 
00000101 
00000110 
00000111 
00001000 
00001001 
00001010 
00001011 
00001100 
00001101 
00001110 
00001111 
00010000 
00010001 
00010010 
00010011 
00010100 
00010101 
00010110 
00010111 
00011000 
00011001 
00011010 


NK MESES GCHHNDO VOSA SH AYUHTOANAAVAWY @® 


NS KE qGCetaor QUOD SrwWUee TQ hHdA SY @& 


ASCII 


WHITE 


RETURN 
lower 


CSR Dn 
RVSON 


HOME 


DELETE 


BPL 


ADDRESSING MODE 


indirect,X indexed 


zero page 
zero page 


immediate 
accumulator 


absolute 
absolute 


indirect,Y indexed 


zero page,X indexed 
zero page,X indexed 


absolute, Y indexed 


dIBMJJOS snoeqy 


sjeuiojuy 0°L OISVA 8@I-D 


OT9 


BINARY CHARUP CHARDWN ASCII 


ADDRESSING MODE 


a 


HEX LSB MSB 
1B 27 9984 
1C 28 7168 
1D 29 7424 
1E 30 7680 
1F 31 7936 
20 32 8192 
21 33 8448 
22 34 8704 
23 35 8960 
24 36 9216 
25 37 9472 
26 38 9728 
27 39 9984 
28 40 10240 
29 41 10496 
2A 42 10752 
2B 43 11008 
2C 44 11264 
2D 45 11520 
2E 46 11776 
2F 47] 12032 
30 48 12288 
31 49 12544 
32 50 12800 
33 51 13056 
34 52 13312 


00100111 
00011100 
00011101 
00011110 
00011111 
00100000 
00100001 
00100010 
00100011 
00100100 
00100101 
00100110 
00100111 
00101000 
00101001 
00101010 
00101011 
00101100 
00101101 
00101110 
00101111 
00110000 
00110001 
00110010 
00110011 
00110100 


a 


> 


SPACE 
t 


+ +" ~ = RM KO YW 


Dm WHO FP O™M 


mWNHre O™ > 


CSR Rt 


BLUE 
SPACE SPACE 


+ +" ~ = MM HP DW 3H 


=~ 


mWHFe O™ > 


BMI 


absolute,X indexed 
absolute,X indexed 


indirect,X indexed 


zero page 
zero page 
zero page 


immediate 
accumulator 


absolute 
absolute 
absolute 


JIVAIJOS smoeqy 


syeutozuy 0°L OISVA 87I-O 
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HEX LSB MSB BINARY CHARUP CHARDWN ASCII INS ADDRESSING MODE 
35 53 13568 00110101 5 5 5 AND Z,X zero page,X indexed 
36 54 13824 00110110 6 6 6 ROL Z,X zero page,X indexed 
37 55 14080 00110111 7 7 7 --- 

38 56 14336 00111000 8 8 8 SEC 

39 57 14592 00111001 9 9 9 AND Y absolute,Y indexed 
3A 58 14848 00111010 : --- 

3B 59 15104 00111011 ; ; ; --- 

3c 60 15360 00111100 < < < oo 

3D 61 15616 00111101 = = = AND X absolute,X indexed 
3E 62 15872 00111110 > > > ROL X absolute,X indexed 
3F 63 16128 00111111 ? ? ? --- 

40 64 16384 01000000 & = RTI 

41 65 16640 01000001 [4] A A EOR(I,X) indirect,X indexed 
42 66 16896 01000010 [1 B B a 

43 67 17152 01000011 Cc Cc --- 

44 68 17408 01000100 FF D D --- 

45 69 17664 01000101 FY E E EOR Z zero page 

46 70 17920 01000110 [] F F LSR Z zero page 

47 71 18176 01000111 [] G G --- 

48 72 18432 01001000 [] H H PHA 

49 73 18688 01001001 {| I I EOR # immediate 

4B 74 18944 01001010 [YN J J LSR A accumulator 

4B 75 19200 01001011 F] K K --- 

4C 76 19456 01001100 [] L L JMP absolute 

4D 77 19712 01001101 N M M EOR absolute 

4E 78 19968 01001110 —Y N N LSR absolute 


dIVMJJOS snaeqy 


sjedtojuy 0°L OISVA 87I-D 
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HEX LSB MSB BINARY CHARUP CHARDWN ASCII INS ADDRESSING MODE 
4F 79 20224 01001111 OU O O a 

50 80 20480 01010000 U1 P P BVC 

51 81 20736 01010001 @® Q Q FOR(I),Y (indirect),Y indexed 
52 82 20992 01010010 LJ R R = 

53 83. 21248 01010011 [v] S S --- 

54 84 21504 01010100 LL] T T ——— 

55 85 21760 01010101 [4 U U EOR Z,X zero page,X indexed 
56 86 22016 01010110 kX Vv Vv LSR Z,X zero page,X indexed 
57 87 22272 01010111 CO W W --- 

58 88 22528 01011000 [+] X X CLI 

59 89 22784 01011001 al Y Y EOR Y absolute, Y indexed 
5A 90 23040 01011010 [¢] Z Z _-- 

5B 91 23296 01011011 fH HH [ --- 

5C 92 23552 01011100 &! E | £ = 

5D 93 23808 01011101 IW LU ] EOR X absolute,X indexed 
5E 94 24064 01011110 et t LSR X absolute,X indexed 
SF 95 24320 01011111 NM — —— 

60 96 24576 01100000 KH RTS 

61 97 24832 01100001 i i [4] ADC(I,X) indirect,X indexed 
62 98 25088 01100010 im = a == 

63 99 25344 01100011 (J CO = --- 

64 100 25600 01100100 CO CJ @ --- 

65 101 25856 01100101 a ‘a FF ADC 2 zero page 

66 102 26112 01100110 & Ez LJ ROR Z zero page 

67 103 26368 01100111 [J {[ ] ia --- 

68 104 26624 01101000 - = [ ]] PLA 
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e19 


HEX 


69 
6A 
6B 
6C 
6D 
6E 
6F 
70 
71 
72 
73 
74 
75 
76 
77 
78 
719 
7A 
7B 
7¢ 
7D 
TE 
7F 
80 
81 
82 


LSB 


105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 


MSB 


26880 
27136 
27392 
27648 
27904 
28160 
28416 
28672 
28928 
29184 
29440 
29696 
29952 
30208 
30464 
30720 
30976 
31232 
31488 
31744 
32000 
32256 
32512 
32768 
33024 
33280 


BINARY CHARUP CHARDWN ASCII 


01101001 
01101010 
01101011 
01101100 
01101101 
01101110 
01101111 
01110000 
01110001 
01110010 
01110011 
01110100 
01110101 
01110110 
01110111 
01111000 
01111001 
01111010 
01111011 
01111100 
01111101 
01111110 
01111111 
10000000 
10000001 
10000010 


= 


BG OGF0 DOOM O48) Ba) Oe dies 


BAS SO) UIC OP O66) OE ie Bd COS 


ZAlIS RI) OKWFEIOBOONYAONEE 


: 


INS 


ADC # 
ROR A 


JMP (TI) 


BVS 


STA (I,X) 


ADDRESSING MODE 


immediate 
accumulator 


indirect 
absolute 
absolute 


indirect,Y indexed 


zero page,X indexed 
zero page,X indexed 


absolute,Y 


absolute, xX 
absolute, X 


indirect,X 
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ae 


HEX LSB MSB 
83 131 33536 
84 132 33792 
85 133 34048 
86 134 34304 
87 135 34560 
88 136 34816 
89 137 35072 
8A 138 35328 
8B 139 35584 
8C 140 35840 
8D 141 36096 
8E 142 36352 
8F 143 36608 
90 144 36864 
91 145 37120 
92 146 37376 
93 147 37632 
94 148 37888 
95 149 38144 
96 150 38400 
97 151 38656 
98 152 38912 
99 153 39168 
9A 154 39424 
9B 155 39680 
9C 156 39936 


BINARY CHARUP CHARDWN ASCII 


10000011 
10000100 
10000101 
10000110 
10000111 
10001000 
10001001 
10001010 
10001011 
10001100 
10001101 
10001110 
10001111 
10010000 
10010001 
10010010 
10010011 
10010100 
10010101 
10010110 
10010111 
10011000 
10011001 
10011010 
10011011 
10011100 


"Als 


O17 00$ NGYWHO pue dNUWHD JO SuUOTSIeA CAPTA-SS7s9AaI 
ere (SSZ O02 8ZT) dd$ 93 08S NMCYWHO Pue dNYWHO -adLON 


fl 
£3 
£5 
£77 
£2 
£4 
£6 
£8 


UPPER 


BLACK 
CSR UP 
RVS OFF 
CLR 

INS 
BROWN 
LT RED 
GRAY1 
GRAY2 
LT GRN 
LT BLUE 
GRAY3 
PURPLE 


STY 2 
STA Z 


BCC 


ADDRESSING MODE 


zero page 
zero page 
zero page 


absolute 
absolute 
absolute 


indirect, Y indexed 


zero page,X indexed 
zero page,X indexed 
zero page,Y indexed 


absolute, Y indexed 
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HEX LSB 
9D 157 
9 158 
OF 159 
AQ 160 
Al 161 
A2 162 
A3 163 
A4 164 
A5 165 
A6 166 
A7 167 
A8 168 
A9 169 
AA 170 
AB 171 
AC 172 
AD 173 
AE 174 
AF 175 
BO 176 
Bl 177 
B2 178 
B3 179 
B4 180 
BS 181 
B6 182 


MSB 


40192 
40448 
40704 
40960 
41216 
41472 
41728 
41984 
42240 
42496 
42752 
43008 
43264 
43520 
43776 
44032 
44288 
44544 
44800 
45056 
45312 
45568 
45824 
46080 
46336 
46592 


BINARY CHARUP CHARDWN ASCII 


10011101 
10011110 
10011111 
10100000 
10100001 
10100010 
10100011 
10100100 
10100101 
10100110 
10100111 
10101000 
10101001 
10101010 
10101011 
10101100 
10101101 
10101110 
10101111 
10110000 
10110001 
10110010 
10110011 
10110100 
10110101 
10110110 


"L$ 


© 00$ NGYWHOD pue dNUWHO FO SUOTSZ9eA CdpPTA-ssz7SAsZ 
ere ($GZ 02 B82T) AdS 93 08S NMGYWHO pue dNyVHO :dLON 


CSR LFT 


YEL 
CYAN 
SPACE 


BOOUR OE S210 See ll 


INS 

STA X 
LDY # 
LDA (I,X) 


LDX # 


LDY Z 
LDA 2 


BCS 


ADDRESSING MODE 


absolute,X indexed 


immediate 
indirect,X indexed 
immediate 


zero page 
zero page 
zero page 


immediate 


absolute 
absolute 
absolute 


indirect,Y indexed 


zero page,X indexed 
zero page,X indexed 
zero page,Y indexed 
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HEX LSB MSB BINARY CHARUP CHARDWN ASCII INS ADDRESSING MODE 

B7 183 46848 10110111 mH Z ey --- 

B8 184 47104 10111000 aga — CLV 

B9 185 47360 10111001 r es = LDA Y absolute, Y indexed 
BA 186 47616 10111010 re J TSX 

BB 187 47872 10111011 a > = — 

BC 188 48128 10111100 a. G L. LDY X —absolute,X indexed 
BD 189 48384 110111101 oO LH] LDA X absolute,X indexed 
BE 190 48640 10111110 <3 all LDX Y absolute, Y indexed 
BF 191 48896 10111111 HOO Fa --- 

CO 192 49152 11000000 ae KH CPY # immediate 

Cl 193 49408 11000001 3 rs [4] CMP (I),X indirect,X indexed 
C2 194 49664 11000010 o 8 (0 --- 

C3. 195 49920 11000011 he A See 

C4 196 50176 11000100 a2 fF CPY Z zero page 

C5 197 50432 11000101 Pa Fy CMP Z zero page 

C6 198 50688 11000110 Go [_] DEC Z zero page 

C7 199 50944 11000111 2 T] wits 

C8 200 51200 #£11001000 Bo qT INY 

C9 201 51456 11001001 cs R] CMP # immediate 

CA 202 51712 11001010 = K DEX 

CB 203 51968 11001011 i 4 = 

cc 204 52224 11001100 Zo O CPY absolute 

CD 205 52480 11001101 a ¥ N CMP absolute 

CE 206 52736 11001110 OU A DEC absolute 

CF 207 52992 11001111 ae a a 

DO 208 53248 11010000 H Bl BNE 


JIVMIJOS sNIVGY 
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HEX 


D1 
D2 
D3 
D4 
D5 
D6 
D7 
D8 
D9 
DA 
DB 
DC 
DD 
DE 
DF 
E0 
El 
Ei2 
E3 
E4 
ES 
E6 
E7 
E8 
E9 
EA 


LSB 


209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 


MSB 


93504 
53760 
54016 
54272 
54528 
54784 
55040 
55296 
55552 
55808 
56064 
56320 
56576 
56832 
57088 
57344 
57600 
57856 
58112 
58368 
58624 
58880 
59136 
59392 
59648 
59904 


BINARY CHARUP 


11010001 
11010010 
11010011 
11010100 
11010101 
11010110 
11010111 
11011000 
11011001 
11011010 
11011011 
11011100 
11011101 
11011110 
11011111 
11100000 
11100001 
11100010 
11100011 
11100100 
11100101 
11100110 
11100111 
11101000 
11101001 
11101010 


“Als 


CHARDWN ASCII 


K 2 es 
32 C) 
3 a 
- (7 
a & XI 
O e 
$2 o 
fgg 
2 
2, 2 Tr 
Q 2 fm 
fs ol 
= 0 "DD 
ae = 
2 C7 
cas C] 
ge 
70 pe 
28 a 
a = 
ct | 
ae O 
() 


INS 


CMP (I),Y 


CMP X 
DEC X 


CPX # 
SBC (I) ,X 


ADDRESSING MODE 


indirect,Y 


zero page,X indexed 
zero page,X indexed 


absolute, Y 


absolute, X 
absolute, X 


immediate 


indirect,Y 


zero page 
zero page 
zero page 


immediate 


indexed 


indexed 


indexed 
indexed 


indexed 
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HEX LSB MSB - BINARY CHARUP CHARDWN ASCII INS ADDRESSING MODE 
EB 235 60160 #£=*11101011 eS (H --- 

EC 236 60416 11101100 “oo r CPX absolute 

ED 237 60672 #£«11101101 ae (Y SBC absolute 

EE 238 60928 11101110 < A] INC absolute 

EF 239 61184 11101111 a3 Oo --- 

FO 240 61440 11110000 2 2 ie BEQ 

Fl 241 61696 11110001 Ao FQ SBC(I),Y indirect,Y indexed 
F2 242 61952 11110010 . FA --- 

F3 243 62208 #£=11110011 i H] --- 

F4 244 62464 11110100 ° & Oo --- 

F5 245 62720 #£«;°£:11110101 Q® fl SBC Z,X zero page,X indexed 
F6 246 62976 #£°£11110110 BS [J INC Z,X zero page,X indexed 
F7 247 63232 11110111 --- 

F8 248 63488 11111000 pr = SED 

F9 249 63744 111111001 nee Lal SBC Y absolute, Y indexed 
FA 250 64000 11111010 zi --- 

FB 251 64256 11111011 ge 4 --- 

FC 252 64512 11111100 eae L _-- 

FD 253 64768 #£=11111101 OO D] SBC X absolute,X indexed 
FE 254 165024 °&©11111110 uae all INC X absolute,X indexed 
FF 255 65280 #£=11111111 ® --- 


IIVMJJOS SNIVQGY 


sjeusazuy O°L OISVA 871-0 
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APPENDIX D 


MMU Values 


VALUE IN MMU-CRL 0400 4000 8000 DOOO C000 


0000 00000000 RAM 0 BASIC BASIC I/O KERN 
0001 00000001 RAM 0 BASIC BASIC CHAR KERN 
0002 00000010 RAM 0 RAM 0 BASIC I/O KERN 
0003 00000011 RAM 0 RAM 0 BASIC CHAR KERN 
0004 00000100 RAM 0 BASIC INT I/O KERN 
0005 00000101 RAM 0 BASIC INT CHAR KERN 
0006 00000110 RAM 0 RAM 0 INT I/O KERN 
0007 00000111 RAM 0 RAM 0 INT CHAR KERN 
0008 00001000 RAM 0O BASIC EXT I/O KERN 
0009 00001001 RAM 0 BASIC EXT CHAR KERN 
OOOA 00001010 RAM 0 RAM 0 EXT I/O KERN 
OOOB 00001011 RAM 0 RAM 0 EXT CHAR KERN 
000C 00001100 RAM 0 BASIC RAM 0 I/O KERN 
OO0O0D 00001101 RAM 0 BASIC RAM 0 CHAR KERN 
OOOE 00001110 RAM 0 RAM 0 RAM 0 I/O KERN 
OOOF 00001111 RAM 0 RAM 0 RAM 0 CHAR KERN 
0010 00010000 RAM 0 BASIC BASIC I/O INT 
0011 00010001 RAM 0 BASIC BASIC RAM 0 INT 
0012 00010010 RAM 0 RAM 0 BASIC I/O INT 
0013 00010011 RAM 0 © RAM 0 BASIC RAM 0 INT 
0014 00010100 RAM 0 BASIC INT I/O INT 
0015 00010101 RAM 0 BASIC INT RAM 0 INT 
0016 00010110 RAM 0 RAM 0 INT I/O INT 
0017 00010111 RAM 0 RAM 0 INT RAM 0 INT 
0018 00011000 RAM 0 BASIC EXT I/O INT 
0019 00011001 RAM 0 BASIC EXT RAM 0 INT 
OO1A 00011010 RAM 0 RAM 0 EXT I/O INT 
001B 00011011 RAM 0 RAM 0 EXT RAM 0 INT 
O001C 00011100 RAM 0 BASIC RAM 0 I/O INT 
001D 00011101 RAM 0 BASIC RAM 0 RAM 0 INT 
OO1E 00011110 RAM 0 RAM 0 RAM 0 I/O INT 
OO1F 00011111 RAM 0 RAM 0 RAM 0 RAM 0 INT 
0020 00100000 RAM 0 BASIC BASIC I/O EXT 
0021 00100001 RAM 0 BASIC BASIC RAM 0 EXT 
0022 00100010 RAM 0 RAM 0 BASIC I/O EXT 
0023 00100011 RAM 0 RAM 0 BASIC RAM 0 EXT 
0024 00100100 RAM 0 BASIC INT I/O EXT 
0025 00100101 RAM 0 BASIC INT RAM 0 EXT 
0026 00100110 RAM 0 RAM 0 INT I/O EXT 
0027 00100111 RAM 0 RAM 0 INT RAM 0 EXT 


Abacus Software 





VALUE IN MMU-CRL 


—HEX__BINARY SER CUB 


00101000 
00101001 
00101010 
00101011 
00101100 
00101101 
00101110 
00101111 
00110000 
00110001 
00110010 
00110011 
00110100 
00110101 
00110110 
00110111 
00111000 
00111001 
00111010 
00111011 
00111100 
00111101 
00111110 
00111111 
01000000 
01000001 
01000010 
01000011 
01000100 
01000101 
01000110 


01000111 


01001000 
01001001 
01001010 
01001011 
01001100 
01001101 
01001110 
01001111 
01010000 
01010001 
01010010 


0400 


PrPPPrPPPHPPPPHPHEP PEPE EP EHH PPHPHOTCAOOCOODOOACAAOAAOAAaAAOAAaAAaAaAaAaaaeaaaae eo eo 


4000 
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8000 


DOOO0 


C000 


cooaooo0ocoaocooooeo7eo:°9e 
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VALUE IN MMU-CRL 0400 4000 8000 DOOO C000 


0053 01010011 RAM 1 RAM 1 BASIC RAM 1 INT 
0054 01010100 RAM 1 BASIC INT I/O INT 
0055 01010101 RAM 1 BASIC INT RAM 1 INT 
0056 01010110 RAM 1 RAM 1 INT I/O INT 
0057 01010111 RAM 1 RAM 1 INT RAM 1 INT 
0058 01011000 RAM 1 BASIC EXT I/O INT 
0059 01011001 RAM 1 BASIC EXT RAM 1 INT 
OO5A 01011010 RAM 1 RAM 1 EXT I/O INT 
OO5B 01011011 RAM 1 RAM 1 EXT RAM 1 INT 
005C 01011100 RAM 1 BASIC RAM 1 I/O INT 
005D 01011101 RAM 1 BASIC RAM 1 RAM 1 INT 
OO5SE 01011110 RAM 1 RAM 1 RAM 1 I/O INT 
OO5F 01011111 RAM 1 RAM 1 RAM 1 RAM 1 INT 
0060 01100000 RAM 1 BASIC BASIC I/O EXT 
0061 01100001 RAM 1 BASIC BASIC RAM 1 EXT 
0062 01100010 RAM 1 RAM 1 BASIC I/O EXT 
0063 01100011 RAM 1 RAM 1 BASIC RAM 1 EXT 
0064 01100100 RAM 1 BASIC INT I/O EXT 
0065 01100101 RAM 1 BASIC INT RAM 1 EXT 
0066 01100110 RAM 1 RAM 1 INT I/O EXT 
0067 01100111 RAM 1 RAM 1 INT RAM 1 EXT 
0068 01101000 RAM 1 BASIC EXT I/O EXT 
0069 01101001 RAM 1 BASIC EXT RAM 1 EXT 
OO6A 01101010 RAM 1 RAM 1 EXT I/O EXT 
OO6B 01101011 RAM 1 RAM 1 EXT RAM 1 EXT 
006C 01101100 RAM 1 BASIC RAM 1 I/O EXT 
0O06D 01101101 RAM 1 BASIC RAM 1 RAM 1 EXT 
OO6E 01101110 RAM 1 RAM 1 RAM 1 I/O EXT 
OO6F 01101111 RAM 1 RAM 1 RAM 1 RAM 1 EXT 
0070 01110000 RAM 1 BASIC BASIC I/O RAM 1 
0071 01110001 RAM 1 BASIC BASIC RAM 1 RAM 1 
0072 01110010 RAM 1 RAM 1 BASIC I/O RAM 1 
0073 01110011 RAM 1 RAM 1 BASIC RAM 1 RAM 1 
0074 01110100 RAM 1 BASIC INT I/O RAM 1 
0075 01110101 RAM 1 BASIC INT RAM 1 RAM 1 
0076 01110110 RAM 1 RAM 1 INT I/O RAM 1 
0077 01110111 RAM 1 RAM 1 INT RAM 1 RAM 1 
0078 01111000 RAM 1 BASIC EXT I/O RAM 1 
0079 01111001 RAM 1 BASIC EXT RAM 1 RAM 1 
OO7A 01111010 RAM 1 RAM 1 EXT I/O RAM 1 
007B 01111011 RAM 1 RAM 1 EXT RAM 1 RAM 1 
007C 01111100 RAM 1 BASIC RAM 1 I/O RAM 1 
007D 01111101 RAM 1 BASIC RAM 1 RAM 1 RAM 1 
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VALUE IN MMU-CRL 0400 4000 8000 DOOO C000 


OO7E 01111110 RAM 1 RAM 1 RAM 1 I/O RAM 1 
OO7F 01111111 RAM 1 RAM 1 RAM 1 RAM 1 RAM 1 
0080 10000000 RAM 2 BASIC BASIC I/O KERN 
0081 10000001 RAM 2 BASIC BASIC CHAR KERN 
0082 10000010 RAM 2 RAM 2 BASIC I/O KERN 
0083 10000011 RAM 2 RAM 2 BASIC CHAR KERN 
0084 10000100 RAM 2 BASIC INT I/O KERN 
0085 10000101 RAM 2 BASIC INT CHAR KERN 
0086 10000110 RAM 2 RAM 2 INT I/O KERN 
0087 10000111 RAM 2 RAM 2 INT CHAR KERN 
0088 10001000 RAM 2 BASIC EXT I/O KERN 
0089 10001001 RAM 2 BASIC EXT CHAR KERN 
OO8A 10001010 RAM 2 RAM 2 EXT I/O KERN 
008B 10001011 RAM 2 RAM 2 EXT CHAR KERN 
008C 10001100 RAM 2 BASIC RAM 2 I/O KERN 
008D 10001101 RAM 2 BASIC RAM 2 CHAR KERN 
O0O8E 10001110 RAM 2 RAM 2 RAM 2 I/O KERN 
OO8F 10001111 RAM 2 RAM 2 RAM 2 CHAR KERN 
0090 10010000 RAM 2 BASIC BASIC I/O INT 
0091 10010001 RAM 2 BASIC BASIC RAM 2 INT 
0092 10010010 RAM 2 RAM 2 BASIC I/O INT 
0093 10010011 RAM 2 RAM 2 BASIC RAM 2 INT 
0094 10010100 RAM 2 BASIC INT I/O INT 
0095 10010101 RAM 2 BASIC INT RAM 2 INT 
0096 10010110 RAM 2 RAM 2 INT I/O INT 
0097 10010111 RAM 2 RAM 2 INT RAM 2 INT 
0098 10011000 RAM 2 BASIC EXT I/O INT 
0099 10011001 RAM 2 BASIC EXT RAM 2 INT 
OO9A 10011010 RAM 2 RAM 2 EXT I/O INT 
OO9B 10011011 RAM 2 RAM 2 EXT RAM 2 INT 
009C 10011100 RAM 2 BASIC RAM 2 I/O INT 
009D 10011101 RAM 2 BASIC RAM 2 RAM 2 INT 
00 9E 10011110 RAM 2 RAM 2 RAM 2 I/O INT 
OO9F 10011111 RAM 2 RAM 2 RAM 2 RAM 2 INT 
OOAO 10100000 RAM 2 BASIC BASIC I/O EXT 
OOA1 10100001 RAM 2 BASIC BASIC RAM 2 EXT 
OOA2 10100010 RAM 2 RAM 2 BASIC I/O EXT 
00A3 10100011 RAM 2 RAM 2 BASIC RAM 2 EXT 
OOA4 10100100 RAM 2 BASIC INT I/O EXT 
OOA5 10100101 RAM 2 BASIC INT RAM 2 EXT 
OOAG6 10100110 RAM 2 RAM 2 INT I/O EXT 
OOA7 10100111 RAM 2 RAM 2 INT RAM 2 EXT 
OOA8 10101000 RAM 2 BASIC EXT I/O EXT 
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VALUE IN MMU-CRL 0400 4000 8000 DOOO C000 


OOA9 10101001 RAM 2 BASIC EXT RAM 2 EXT 

OOAA 10101010 RAM 2 RAM 2 EXT I/O EXT 

OOAB 10101011 RAM 2 RAM 2 EXT RAM 2 EXT 

OOAC 10101100 RAM 2 BASIC RAM 2 I/O EXT 

OOAD 10101101 RAM 2 BASIC RAM 2 RAM 2 EXT 

OOAE 10101110 RAM 2 RAM 2 RAM 2 I/O EXT 

OOAF 10101111 RAM 2 RAM 2 RAM 2 RAM 2 EXT 

OOBO 10110000 RAM 2 BASIC BASIC I/O RAM 2 
O0OB1 10110001 RAM 2 BASIC BASIC RAM 2 RAM 2 
00B2 10110010 RAM 2 RAM 2 BASIC I/O RAM 2 
00B3 10110011 RAM 2 RAM 2 BASIC RAM 2 RAM 2 
OOB4 10110100 RAM 2 BASIC INT I/O RAM 2 
OOBS 10110101 RAM 2 BASIC INT RAM 2 RAM 2 
OOB6 10110110 RAM 2 RAM 2 INT I/O RAM 2 
OOB7 10110111 RAM 2 RAM 2 INT RAM 2 RAM 2 
OOB8 10111000 RAM 2 BASIC EXT I/O RAM 2 
OOB9 10111001 RAM 2 BASIC EXT RAM 2 RAM 2 
OOBA 10111010 RAM 2 RAM 2 EXT I/O RAM 2 
OOBB 10111011 RAM 2 RAM 2 EXT RAM 2 RAM 2 
OOBC 10111100 RAM 2 BASIC RAM 2 I/O RAM 2 
OOBD 10111101 RAM 2 BASIC RAM 2 RAM 2 RAM 2 
OOBE 10111110 RAM 2 RAM 2 RAM 2 I/O RAM 2 
OOBF 10111111 RAM 2 RAM 2 RAM 2 RAM 2 RAM 2 
00CO 11000000 RAM 3 BASIC BASIC I/O KERN 
00C1 11000001 RAM 3 BASIC BASIC CHAR KERN 
00C2 11000010 RAM 3 RAM 3 BASIC I/O KERN 
00C3 11000011 RAM 3 RAM 3 BASIC CHAR KERN 
00C4 11000100 RAM 3 BASIC INT I/O KERN 
00C5 11000101 RAM 3 BASIC INT CHAR KERN 
O00C6 11000110 RAM 3 RAM 3 INT I/O KERN 
00C7 11000111 RAM 3 RAM 3 INT CHAR KERN 
00C8 11001000 RAM 3 BASIC EXT I/O KERN 
00Cc9 11001001 RAM 3 BASIC EXT CHAR KERN 
OOCA 11001010 RAM 3 RAM 3 EXT I/O KERN 
OOCB 11001011 RAM 3 RAM 3 EXT CHAR KERN 
0O0CC 11001100 RAM 3 BASIC RAM 3 I/O KERN 
OOCD 11001101 RAM 3 BASIC RAM 3 CHAR KERN 
OOCE 11001110 RAM 3 RAM 3 RAM 3 I/O KERN 
OOCF 11001111 RAM 3 RAM 3 RAM 3 CHAR KERN 
OODO 11010000 RAM 3 BASIC BASIC I/O INT 

OOD1 11010001 RAM 3 BASIC BASIC RAM 3 INT 

00D2 11010010 RAM 3 RAM 3 BASIC I/O INT 

0O0D3 11010011 RAM 3 RAM 3 BASIC RAM 3 INT 
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VALUE IN MMU-CRL 0400 4000 8000 DOOO C000 


O0D4 11010100 RAM 3 BASIC INT I/O INT 
OOD5 11010101 RAM 3 BASIC INT RAM 3 INT 
O0D6 11010110 RAM 3 RAM 3 INT I/O INT 
00D? 11010111 RAM 3 RAM 3 INT RAM 3 INT 
O0D8 11011000 RAM 3 BASIC EXT I/O INT 
OOD9 11011001 RAM 3 BASIC EXT RAM 3 INT 
OODA 11011010 RAM 3 RAM 3 EXT I/O INT 
OODB 11011011 RAM 3 RAM 3 EXT RAM 3 INT 
OODC 11011100 RAM 3 BASIC RAM 3 I/O INT 
OODD 11011101 RAM 3 BASIC RAM 3 RAM 3 INT 
OODE 11011110 RAM 3 RAM 3 RAM 3 I/O INT 
OODF 11011111 RAM 3 RAM 3 RAM 3 RAM 3 INT 
OOEO 11100000 RAM 3 BASIC BASIC I/O EXT 
OOE1 11100001 RAM 3 BASIC BASIC RAM 3 EXT 
OOE2 11100010 RAM 3 RAM 3 BASIC I/O EXT 
O0E3 11100011 RAM 3 RAM 3 BASIC RAM 3 EXT 
OOE4 11100100 RAM 3 BASIC INT I/O EXT 
O0OE5 11100101 RAM 3 BASIC INT RAM 3 EXT 
OOE6 11100110 RAM 3 RAM 3 INT I/O EXT 
OOF? 11100111 RAM 3 RAM 3 INT RAM 3 EXT 
OOE8 11101000 RAM 3 BASIC EXT I/O EXT 
OOE9 11101001 RAM 3 BASIC EXT RAM 3 EXT 
OOEA 11101010 RAM 3 RAM 3 EXT I/O EXT 
OOEB 11101011 RAM 3 RAM 3 EXT RAM 3 EXT 
OOEC 11101100 RAM 3 BASIC RAM 3 I/O EXT 
OOED 11101101 RAM 3 BASIC RAM 3 RAM 3 EXT 
OOEE 11101110 RAM 3 RAM 3 RAM 3 I/O EXT 
OOEF 11101111 RAM 3 RAM 3 RAM 3 RAM 3 EXT 
OOFO 11110000 RAM 3 BASIC BASIC I/O RAM 3 
OOF1 11110001 RAM 3 BASIC BASIC RAM 3 RAM 3 
OOF2 11110010 RAM 3 RAM 3 BASIC I/O RAM 3 
00F3 11110011 RAM 3 RAM 3 BASIC RAM 3 RAM 3 
OOF4 11110100 RAM 3 BASIC INT I/O RAM 3 
OOFS 11110101 RAM 3 BASIC INT RAM 3 RAM 3 
OOF6 11110110 RAM 3 RAM 3 INT I/O RAM 3 
OOF? 11110111 RAM 3 RAM 3 INT RAM 3 RAM 3 
OOF8 11111000 RAM 3 BASIC EXT I/O RAM 3 
OOF9 11111001 RAM 3 BASIC EXT RAM 3 RAM 3 
OOFA 11111010 RAM 3 RAM 3 EXT I/O RAM 3 
OOFB PLT 1011 RAM 3 RAM 3 EXT RAM 3 RAM 3 
OOFC 11111100 RAM 3 BASIC RAM 3 I/O RAM 3 
OOFD 11111101 RAM 3 BASIC RAM 3 RAM 3 RAM 3 
OOFE 11111110 RAM 3 RAM 3 RAM 3 I/O RAM 3 
OOFF 11111111 RAM 3 RAM 3 RAM 3 RAM 3 RAM 3 
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BASIC = BASIC rom. 

EXT = EXTernal rom (plug in CARTRIDGE). 

INT = INTernal rom (This is a spare socket inside the computer which 
is not used at this time.) 

KERN = KERNal rom. 

RAM = RAM bank x (NOTE: RAM 3 and RAM 4 are currently UNUSED and not 


available on the current model of the C-128. 


625 


descriptor 
floating point 
function 
integer 
string 

ASC 

ATN 

AUTO 


BACKUP 

BANK 

BASIC IRQ routine 
BASIC jump table 
BASIC statement execute 
Bitmap 

BLOAD 

BOOT 

BOX 

BSAVE 

BUMP 


CATALOG 
CHAR 
Character memory 
CHKIN 
CHKOUT 
CHKSPRN 
CHRS$ 
CHRGET 
CHRGOT 
CIRCLE 
CLOSE 

CLR 

CMD 
COLLECT 
COLLISION 
COLOR 


457 
133-134 
542-543 


27-29 


425-426 
498-499 
203 


553-554 
71-80,281-282 
584-588 
99-100 
123-124 

71-80 

547-548 
320-321 
79-80,246-250 
546 

403-404 


539-541 
262-267 
73-76 
476 

476 

286 

419 
59-68,95 
59-68,95 
258-261 
481 
160-161 
178-190 
551-552 
312-313 
271-274 
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Color memory 
CONCAT 
CONT 

COPY 

COS 


DATA 

DCLEAR 

DCLOSE 

DEC 

DEF FN 

DELETE 

DIM 

DIRECTORY 

DIRECT mode 

Direct Memory Access (DMA) 
Division (/) function 

DLOAD 

DO 

DOPEN 

DOS initialization data 

DRAW 

DSAVE 

Dual token commands and functions 
DVERIFY 


ELSE BEGIN 

END 

ERRS 

Execute Direct Memory Access (EDMA) 
EXP 


FAST 
FETCH 
FILL 
EN 

FOR 
FRE 
FROMTO 
Functions 
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76-77 
552-553 
208-209 

552 
496 


163 

551 
543-544 
385-387 
414-418 
227-229 
197-198 
539-541 
3 


43-52 
451-453 
545-546 
8-9,234 
541-542 
554-564 


79,261-262 


544 
110-111 
545 


168-169 
129-130 
388-389 

49-52 
470-473 


339-340 


415-418 


22,225-227 


382-384 
229 
128-131 


GET 

GET# 
GETKEY 
GOSUB 
GOTO 
GSHAPE 
GRAPHIC 
Graphic CLR 
Graphics 


HEADER 

HELP 

HEXS 

High resolution graphics 


IF 

INPUT 

INPUT# 

INSTR 

INT 

Interrupt ReQuest (IRQ) 


JOY 
Jump tables 


KEY 
KEYOFF 
KEYON 


Least Significant Bit (LSB) 


LEFTS 
LEN 


LESS THAN (<) function 


LET 

Line link address 
LIST 

LOAD 

LOCATE 

LOG 

LOOP 

LOOP /WHILE 


184-186 

186 

185 
6-7,205-206 
206-208 
255-258 
279-281 
278-279 
71-80 


548-549 
204-205 
390-391 

71-80 


165-168 

186-188 

187 

513-517 

459-460 
3-4,82,83,584-589 


394-396 
592-594 


240-243 
55,57-64 
55,57-64 


13,23 
419-421 
424-425 
134-135 

170 

13 

154-155 
478-480 
268 
443-444 
8-9,237-240 
234-235 


Memory expansion 40-53 


MIDS 422-423 
MONITOR 12,23 
Most Significant Bit (MSB) 13,23 
MOVSPR 287-290 
NEW 158-159 
NEXT 195-197 
NORMAL 417-418 
NOT 347 
ON 169 
OPEN 480-481 
OR 133 
PAINT 76-77,243-246 
PEEK 387 
PEN 398-399 
PLAY 87-89,292-312 
POINTER 400 
POKE 388 
POS 412 
POT 396-397 
PRINT 179-182 
PRINT# 178 
PRINT USING 161,500-513 
Pseudo stack 5-11 
PUDEF 230 
RAM Expansion Module (REM) 41-42 
RAM Expansion Controller (REC) 41 
Random Access Memory (RAM) 41-53 
RCLR 392-394 
RDOT 517-521 
READ 188-191 
Read Only Memory (ROM) 54-56 
READY 136 
RECORD 550-551 
REM 164 
RENAME 553 
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RENUMBER 214-225 


Reserved words 104-1 16,603-605 
RESTORE 212-213 
RESUME 231-234 
RESUME LINE NUMBER 233-234 
RESUME NEXT 232 
RETURN 6-7,162-163 
RGR 391-392 
RIGHTS 421-422 
RND 407-408 
RREG 200-201 
RSPCOLOR 402-403 
RSPPOS 404-405 
RSPRITE 401-402 
RUN : 210-212 
RWINDOW 406-407 
SAVE 477 
SAVE with REPLACE 564-566 
SCALE 268-271 
SCNCLR 77,274-276 
SCRATCH 549-550 
SGN 456 
SID | 87-89,292-312 
SIN 496-497 
SLEEP 282-283 
SLOW 340 
SOUND 315-318 
SPC 182 
SPRCOLOR 313-314 
SPRDEF 322-336 
SPRITE 284-286 
SPRSAV 336-339 
SOR 470 
SSHAPE 251-255 
Stack 5-11 
Stack pointer 5 
STASH 589-590 
STOP 128-129 
STRS$ 418-419 
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SWAP 
SYS 
System "crashes" 


TAB 

TAN 

Tokens 

Top Of Stack (TOS) 
TROFF 

TRON 

TRAP 


unNEWing BASIC programs 
UNTIL 


VAL 
Variable descriptor 
Variable Dump program 
Variable pointers 
Variables 
complex—see Arrays 
floating point 
function 
integer 
reserved 
simple 
string 
VERIFY 
VIC chip 
Video bank 
VOLUME 


WAIT 
WIDTH 
WINDOW 


XOR 


590-591 
198-199 
16 


182 

497-498 
102-119 
6-11 

199 

199 
127,230-231 


15-16, 158-159 
235-236 


384-385 
20,23,24-25 
36-39 

33-35 


17-18,20 

17-18 
17-18,23,170-171 
17-18 

19 
17-18,24,171-178 
477-478 
67-69,71-72 
68-72,74 

306-307 


283-284 
314 
318-320 


405-406 
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Optional Diskette 


BASIC 7.0 Internals 
Optional diskette 





For your convenience, the program listings contained in this book are 
available on an 1541 formatted floppy disk. You should order the diskette if 
you want to use the programs, but don't want to type them in from the 
listings in the book. | 


All programs on the diskette have been fully tested. You can change the 
programs for your particular needs. The diskette is available for $14.95 plus 
$2.00 ($5.00 foreign) for postage and handling. 


When ordering, please give your name and shipping address. Enclose a 
check, money order or credit card information. Mail your order to: 


Abacus Software 
P.O. Box 7219 
Grand Rapids, MI 49510 


Or for fast service, call (616) 241-5510. 
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=] 80 column monitor output 


| tion. ‘128 Compiler's ex- 
ey tensive 80-page pro- 
Make your BASIC programs run LIGHTNING SPEED! 


p ry usage, andling, 80 column hi-res graphics, faster, 


higher precision math functions, speed and space saving tips, more. A great 


package that no software library should be without. 128 Compiler $59.95 
64 Compiler $39.95 





For school or software 
development. Learn C on 










E,REDUGED. + 
ROQ+.i.. 


grams into fast machine 
language. C-128 version has 
added features: Unix™-like 
operating system; 60K RAM 
disk for fast editing and 
| compiling Linker combines 
up to 10 modules; Combine 
M/L and C using CALL; 51K 

: . available for object code; 
Fast loading (8 sec. 1571, 18 sec. 1541); Two standard I/O librarys plus 
two additional libraries—math functions (sin, cos, sqrt, etc.) & 20+ graphic 
commands (line, fill, dot, etc.). C-128 $59.95 


C64 $59.95 





colsiggnatad, 
whil{ celsius<-erd ) 

{ fabwn(® 05 @*celsiuee 32 0, 
STICK G7 Ife catniue tah , 
Coldua=celpive+tap, 


DOMESTIC AUTO SALES 
QO» OENERAL MOTORS 


Easily create professional 


Seron oe S ee high quality charts and 


BE=CHRVSLER 
G2=AMERICAN MOTORS 


] graphs without programming. 
You can immediately change 
the scaling, labeling, axis, 
bar filling, etc. to suit your 
needs. Accepts data from 
CalcResult and MultiPlan. 
C-128 version has 3X the 
resolution of the '64 version. 
Outputs to most printers. 
C-128 $39.95 
C-64 $39.95 








PowerPlan 
One of the most powerful spreadsheets with integrated 
graphics. Includes menu or keyword selections, online help 
screens, field protection, windowing, trig functions and more. 
PowerGraph, the graphics package, is included to create 


integrated graphs and charts. C-64 $39.95 
Technical Analysis System for the C-64 $59.95 
Ada Compiler for the C-64 $39.95 
VideoBasic Language for the C-64 $39.95 


iThe complete compiler 
1 and development pack- 
| age. Speed up your pro- 
| grams 5x to 35x. Many 
4 options: flexible memory 
=] Management; choice of 
“| compiling to machine 
4 code, compact p-code or 
= both. '128 version: 40 or 


3] and FAST-mode opera- 
=] grammer's guide covers 


compiler directives and 
Bee options, two levels of 





your Commodore with our in- 
depth tutorial. Compile C pro- 


n PROVEN 
sei PERFORMANCE 


Remarkably easy-to-use 
interactive drawing pack- 
age for accurate graphic 
designs. New dimension- 
ing features to create 
exact scaled output to all 
major dot-matrix printers. 
Enhanced version allows 
you to input via keyboard 
or high quality lightpen. 
Two graphic screens for 
COPYing from one to the 
other. DRAW, LINE, BOX, 
CIRCLE, ARC, ELLIPSE 
available. FILL objects 
with preselected PAT- 


TERNS; add TEXT; SAVE and RECALL designs to/trom disk. Define your own 
library of symbols/objects with the easy-to-use OBJECT MANAGEMENT 
SYSTEM-store up to 104 separate objects. 


C-128 $59.95 
C-64 $39.95 


Not just a compiler, but a 
complete system for develop- 
_|ing applications in Pascal 
.with graphics and sound 
features. Extensive editor 
with search, replace, auto, 
renumber, etc. Standard J & 
W compiler that generates 
fast machine code. !f you 
want to learn Pascal or to 
develop software using the 
best tools available-SUPER 
Pascal is your first choice. 
C-128 $59.95 

C-64 $59.95 


OTHER TITLES AVAILABLE: 


COBOL Compiler 
Now you can learn COBOL, th st widely used commercial 
programing language, an L on your 64. COBOL 
is easy to learn because i read. COBOL Compiler 
package comes complet Editor, Compiler, Interpreter 
and Symbolic Debugger. C-64 $39.95 


Compiler and Software 
Development System 













Personal Portfolio Manager 
Complete portfolio management system for the individual or 
professional investor. Easily manage your portfolios, obtain 
up-to-the-minute quotes and news, and perform selected 
analysis. Enter quotes manually or automatically through 
Warner Computer Systems. C-64 $39.95 


Xper 

XPER is the first "expert system" for the C-128 and C-64. While 
ordinary data base systems are good for reproducing facts, 
XPER can derive knowledge from a mountain of facts and help 
you make expert decisions. Large capacity. Complete with 
editing and reporting. C-64 $59.95 
C-128 and C-64 are tademarks of Commodore Business Machines Inc. 

Unix is a tademark of Bell Laboratories 





Abacus 


Giri 
HA 


Software 


P.O. Box 7219 Dept.H8 Grand Rapids, Ml 49510 - Telex 709-101 - Phone (616) 241-5510 


Call now for the name of your nearest dealer. Or to order directly by credit card, MC, AMEX of VISA call (616) 
241-5510. Other software and books are available—Call and ask for your free catalog. Add $4.00 for shipping 
per order. Foreign orders add $12.00 per item. Dealer inquires welcome—1400+ nationwide. 
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BASIC 7.0 INTERNALS 


A DATA - BECKER BOOK PUBLGHED BY 


A QATA: BECKER BOOK PUL ISHED BY 


este & vasy ie Baa] DO 
teciniques far C 128 


-COMMODORE 


The descriptive 
Quide of ine 1571 


AUTHORITATIVE 
BOOKS 


Abacus Software 


Detailed guide presents the 128's 
operating system, explains graphic 
chips, Memory Management Unit, 80 
column graphics and commented 
ROM listings. 600pp $19.95 


BASIC source 


A DATA: BECKER BOOX PUDLIGHED BY 


Abacus RHE Software 


Introduction to Programing; problem 
analysis; thorough description of all 
BASIC commands with hundreds of 


Abacus RERUN Software 


‘Get all the inside information on 


BASIC 7.0. This exhaustive hand- 
book is complete with commented 
BASIC 7.0 ROM listings. Coming 


Summer ‘86. $19.95 


-~GOMMODORE 


Veotul pragramrning 
quich haters 


ADATA- BECKER 300K PUBLIGHED BY 
Abacus Software 


Presents dozens of programming 
quick-hitters. Easy and useful 
techniques on the operating system, 


ee 
A DATA - BECKTA NOOK PUBLIGHED BY 


Abacus ERR Software 


Filled with info for everyone. Covers 
80 column hi-res graphics, win- 
dowing, memory layout, Kernal 
routines, sprites, software pro- 
tection, autostarting. 300pp $19.95 





COMMODORE 
The C-128 CPA 
eourcebook 


A OATA. BECKER BOOK PUBLIBHED BY 


Abacus ER Sof tware 





Essential guide for everyone inter- 
ested in CP/M on the 128. Simple 
explanation of the operating system, 


eT 
A DATA - BECKER BOOK PUBLIGHED BY 


Abacus RR Software 


Insiders’ guide for novice & ad- 
vanced users. Covers sequential & 
relative files, & direct access com- 
mands. Describes DOS routines. 
Commented listings. $19.95 





ANATOMY) 
Ot THE 
COMMODORE 


A DATA: BECKER BOOK PUBLISHED BY 
Abacus Software 


‘Learn fundamentals of CAD while 
developing your own system. Design 
objects on your acreen to dump to a 
printer. includes listings for "64 with 
Simon's Basic 300pp $19.95 
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examples; monitor commands; util- 
ities; much more. $16.95 


ANATOMY OF C-64 Insider's guide to the 
‘64 internals. Graphics, sound, VO, kernal, 
memory maps, more. Complete commented 
ROM iistings. 300pp $19.95 


ANATOMY OF & DRIVE Best 
handbook on APP dl all. Many 
exampies and . y commented 
1541 ROM lstin 500pp $19.95 


MACHINE LANGUAGE C-64 Learn 
6510 code write fast programs. Many sam- 
ples and listings for complete assembler, 
monitor, & simulator. 200pp $14.95 


GRAPHICS BOOK C-64 - best reference 
covers basic and advanced graphics. 
Sprites, animation, Hires, Multicolor, 
lightpen, 30-graphics, IRQ, CAD, pro- 
Jections, curves, more. 350pp $19.95 


stacks, zero-page, pointers, 
BASIC interpreter and more. $16.95 


the 


TRICKS & TIPS FOR C-64 Collection of 
easy-to-use techniques: advanced graphics, 
improved data input, enhanced BASIC, 
CP/M, more. 27Spp $19.95 


1541 REPAIR & MAINTENANCE 
Handbook describes the disk drive hard- 
ware. Includes schematics and techniques 
to keep 1541 running. 200pp $19.95 


AOVANCED MACHINE LANGUAGE 
Not covered elsewhere: - video controller, 
interrupts, timers, clocks, VO, real time, 
extended BASIC, more. 210pp $14.95 


PRINTER BOOK C-64/VIC-20 Under- 
stand Commodore, Epson-compatible print- 
ers and 1520 plotter. Packed: utilities; gra- 
phics dump; 30-plot; commented MPS801 
ROM listings, more. 3Wpp $19.95 


Cus 





memory usage, CP/M utilly pro- 
grams, submit files & more. 


RdLE2500004 


TT: 


$19.95 


SCIENCE/ENGINEERING ON C-64_ In 
depth intro 40 computers in science. Topics: 
chemistry, physics, biology, astronomy, 
electronics, others. 350pp $19.95 
CASSETTE, BOOK C-684/VIC-20 
Comprehensive guide; many sample 
programs. High speed operating system 
fast file loading and saving. 225pp $14.95 
IDEAS FOR USE ON C-64 Themes: 
auto expenses, calculator, recipe file, stock 
lists, diet plannes,’ window advertising, 
others. Includes listings: 200pp $12.95 


COMPILER BOOK? C-64/C-128 All you 
need to know about gompilers: how they 
work; designing and‘ writing your own; 
generating machine code. With working 
example compiler. 300pp $19.95 








Adventure Gamewriter's Handbook 

Step-by-step guide to designing and writing 
your own adventure games. With automated 
adventure game generaior. 200pp $14.95 


PEEKS & POKES FOR THE C-64 

Includes In-depth expianations of PEEK, 
POKE, USA, and other BASIC commands. 
Learn the “inside” tricks to get the most out 
of your ‘64. 200pp $14.95 


Optional Diskettes for booke 

For your convenience, the programs 
contained In each of our books are avail- 
able on diskette to save you time entering 
them from your keyboard. Specify names of 
book when ordering. $14.95 each 


C-128 and C-64 are vademerks of Commodore Business Machines inc. 


Software 


P.O. Box 7219 Dept. H8 Grand Rapids, Ml 49510 - Telex 709-101 -Phone (616) 241-5510 


Optional diskettes available for all book titles - $14.95 each. Other books & software also available. Call for the name of your 
nearest dealer. Or order directly from ABACUS using your MC, Visa or Amex card. Add $4.00 per order for shipping. Foreign 
orders add $10.00 per book. Call now or write for your free catalog. Dealer inquires welcome--over 1400 dealers nationwide. 
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BASIC 7.0 Internals is the most comprehensive book about the 
BASIC interpreter built into the C-128. It begins with an extensive 
explanation of how the BASIC interpreter works. The main section of 
BASIC 7.0 Internals contains the complete, fully-commented 
BASIC 7.0 ROM listings. It thoroughly explains how each routine 
functions and what registers are used. With a thorough knowledge 
of BASIC 7.0, you can create BASIC extensions or use BASIC 7.0 
routines to your best advantage. Some of the subjects include: 


* how variables are used (simple, floating, integer, string, arrays) 
* ROM/RAM memory expansion on the C-128 using the DMA 
controller 
how to “wedge” into BASIC 
managing graphic memory 
moving the bit-map screen 
over 450 pages of fully-commented BASIC 7.0 ROM listings 


ISBN 0-91L64359-?1-e 


Commodore 128™ is a trademark of Commdore Electronics, Ltd. 
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